Ansicht exportieren nach MSWord

[mahir]

Weiss jemand wie man Daten aus einer Ansicht nach MSWord exportiert?
Wäre sehr dankbar!

[Silent_Bob]

in word direkt weiß ichs gar nicht so genau, aber EKNORI hat einen export2excel agenten geschrieben, der jede beliebige ansicht nach excel exportiert. und von excel aus könntest du diese tabelle dann in word einfügen. wäre zwar ein kleiner umweg, aber machbar.

such mal hier im forum-archiv nach "ansicht exportieren excel", oder guck hier im "r5 tools" forum nach. oder auf www.eknori.de.

ich habs nicht getestet, aber der agent sollte auch unter notes 6 laufen.



 

[Silent_Bob]

hab hier noch was gefunden:

http://eknori.dyndns.org/knowledge/devidea.nsf/703257f00a483fb180256879002c0178/66e68af11573dee5c1256aa90021060b?OpenDocument

[Silent_Bob]

und hier der direkte link zum export2excel agenten. das teil ist echt genial

http://www.eknori.de/downloads/Export2Excel.zip

[mahir]

Danke für die Tips. Werde mal schauen. Das war echt nett von dir. Danke.

[Silent_Bob]

kein problem.

wie du mit dem agenten umgehst, weißt du?

am besten in eine schaltfläche einbauen.

ansonsten melde dich nochmal bei mir. das kriegen wir hin (ich hab die leute hier damals auch ziemlich genervt, weil ich mit dem agenten nicht direkt klargekommen bin. aber wenn man einmal dahinter gestiegen ist, ist das ziemlich einfach)

[mahir]

Also so direkt habe ich das noch nicht gelöst.

Der Script auf einer der Seiten, die du geschickt hattest habe ich eingebaut. Bringt aber eine Meldung:

"Type mismatch"

auf Zeile:
Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))

Das ist der komplette Script:

Sub Initialize
   Dim ntNotes As NotesDocument
   Dim path As Variant
REM You should have document in the dir temp of the C drive named wordexp.doc or
REM whatever name you wish to call it.
   path="F:\Testpanel\wordexp.dot"
   Dim dbNotes As NotesDatabase
   Dim ssNotes As New NotesSession
   Set dbNotes = ssNotes.CurrentDatabase
REM make sure you change "viewName" by REM the actual name of the view you
REM wish to import from
   Set vwNotes = dbNotes.Getview ("Alphabetisch")
   
   Set ntNotes = vwNotes.GetFirstDocument
   
   Do While Not (ntNotes Is Nothing)
REM set field values
REM Get the Word object from a file.
      Set wordObj = GetObject(path)
REM Get value of field from Notes fld
      tempfield=ntNotes.fldCaratulaContents
REM Set Field value and a add a
REM carriage return at the end
      Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))
REM Save document
      wordObj.Save
      wordObj.Application.Quit
REM Clean from memory
      Set wordObj = Nothing
      
      Set ntNotes = vwNotes.GetNextDocument(ntNotes)
   Loop
   Set wordObj = Nothing
   Msgbox "File has been exported to -->: " + path
End Sub


Vielleicht fäält dir was ein, was das sein könnte. Du musst wissen, das ist erst meine zweite Datenbank in Lotus.

[Silent_Bob]

... ich bin kein programmierer. jedenfalls noch nicht.
das heißt, ich kann mit dem quellcode auch nicht viel anfangen.

ich kann dir nur sagen, wie ich das mit dem excel agenten gelöst habe.

ich hab mir die datenbank runtergeladen. hab gesagt:"datenbank-->gehe zu agenten", hab den agent da raus kopiert und in meine DB reinkopiert. dann hab ich im designer in der ansicht je eine aktion angelegt und dort aktion die funktion "einfache aktionen"-->"agent starten" hinzugefügt. und das wars.

aber das hilft dir jetzt wahrscheinlich nicht mit dem export nach word weiter, oder?

[mahir]

Man müsste einiges ändern.
Das andere ist besser. Mal sehen wie ich das löse

[ata]

... tmpfield ist in dem Fall ein Variant und muß als Array angesprochen werden => tmpfield(0) sollte das Problem lösen...

ata

[mahir]

Habe es geändert zu...

Call WordObj.ActiveWindow.Selection.TypeText(tempfield(0)+Chr$(13))

Jetzt läuft der Agent aber sehr lange und es kommt nichts. Was muss ich noch beachten?

[JoJo]

Wieso versuchst du es nicht einfach mit der anderen - von Silent_Bob angeführten - Möglichkeit: dem Export2Excel-Agenten?

Der funktioniert wunderbar.

[mahir]

Schon, aber ich bin noch neu in Lotus.
Ich müsste Adressen, die ich von der Ansicht Exportiere gleichzeitig so formatieren, dass diese als Etiketten gedruckt werden können. Nebeneinander, untereinander usw. Ich müsste also dieses Export to Excel ziemlich umstricken. Das kann ich leider nicht. Wenn ich es in Word bekomme (Dieses Script hab ich auch aus dem Netz), dann könnte ich vielleicht das weniger schwierig hinkriegen.

[eknori]

Dann lade dir mal

http://www.eknori.de/downloads/Label.zip herunter

Dort kannst du direkt Labels erstellen

gibts auch hier:

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/86a9c89f2bf406a185256b6e004f7a29?OpenDocument&Highlight=0,Label

[mahir]

Super eknori,


Ist ja geil. Problem gelöst.

Vielen dank