Domino 9 und frühere Versionen > Entwicklung

object variable not set im notes to word

(1/3) > >>

adminnaddel:
guten morgen liebe gemeinde,

beim ausführen des scriptes kriege ich jedesmal die o.g. meldung und nun bin ich am verzweifeln.

Sub Click(Source As Button)
   Dim ntNotes As NotesDocument
   Dim path As Variant
   path="c:tempwordexp.doc"
   Dim dbNotes As NotesDatabase
   Dim ssNotes As New NotesSession
   Set dbNotes = ssNotes.CurrentDatabase
                Set wvNotes = dbNotes.Getview ("Server")
                Set ntNotes = vwNotes.GetFirstDocument
   Do While Not (ntNotes Is Nothing)
   Set wordObj = GetObject(path)
   tempfield=ntNotes.fldCaratulaContents
   Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))
      wordObj.Save
      wordObj.Application.Quit
      Set wordObj = Nothing
      
      Set ntNotes = vwNotes.GetNextDocument(ntNotes)
   Loop
   Set wordObj = Nothing
   Msgbox "File has been exported to -->: " + path
End Sub

wenn einer der LS-EXPERTEN eine idee hat, bitte ich doch mir dieses mitzuteilen! :-\
mfg

Glombi:
Zunächst einmal würde ich den Debugger aktivieren und dann Schritt für Schritt durch den Code laufen, damit Du siehst, wo genau das Script aussteigt.

Es kann bspw. sein, dass die View "Server" nicht da ist. Ausserdem scheint mir der Wert für path nicht korrekt zu sein. Muss es nicht "C:\tempwordexp.doc" heissen?

Gruß
Andreas

manuel:
Hi,
ich hätte da schon mal so eine Idee, was hier nicht ganz klappen könnte.

In der einen Zeile deklarierst du die Variable so
Set wvNotes = dbNotes.Getview ("Server")

In der nächsten verwendest du aber eine andere
Set ntNotes = vwNotes.GetFirstDocument


Hast wohl unabsichtlich die Buchstaben v und w vertauscht.
Noch eine Frage wenn's jetzt noch immer nicht klappt. Funktioniert das mit der Pfadangabe "c:tempwordexp.doc", benötigt man hier nach dem c: keinen Backslash?

Schönen Gruß
Manuel

adminnaddel:
ich trottel.......ich hatte vergessen zu sagen, dass ich die geschicht natürlich durch den debugger hab laufen lassen.
- die view server ist vorhanden und das der path falsch ist, bin ich auch der meinung.
die meldung mit "object variable" erscheint in dem teil
Set ntNotes = vwNotes.GetFirstDocument
mfg

manuel:
Yo, dann ist der Grund die vertauschten Buchstaben, ändere diese Zeile

Set vwNotes = dbNotes.Getview ("Server")

Navigation

[0] Themen-Index

[#] Nächste Seite