Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

Automatisch aus Excel heraus Dokumente in LN-DB erstellen

(1/4) > >>

Silki:
Hallo an Alle,

ich bin total neu hier und bin auch nicht sicher, ob ich hier richtig bin.
Ich bin ein ganz "normaler" Notes User (Lotus Notes 7), meine Excel Version ist Excel 2003.

Mein Problem:
Ich habe eine Excel Tabelle in welcher sich 204 "Datensätze" befinden.
Die einzelnen Spalten beinhalten:
DocumentAuthors
From
Subject
Categories
Pfadangabe des Anhangs

Nun möchte ich automatisch aus Excel heraus in einer Lotus Notes Datenbank diese 204 Dokumente erstellen aus den Angaben in der Tabelle.

Es funktioniert auch alles (also die Dokumente werden angelegt) nur die Anhänge werden nicht erstellt.

Mein Code schaut folgendermaßen aus:


--- Code: ---Sub Test()
Dim i As Integer
Dim Session As Object
Dim db As Object
Dim doc As Object

Dim AttachME As Object
Dim EmbedObj As Object

'Erstellt Dokumente in Lotus Notes DB aus den Angaben in Tabelle1 inkl. Anhänge
i = 1
    Do While Cells(i, 1).Value <> ""
        'Debug.Print Cells(i, 1)
            Set Session = CreateObject("Notes.Notessession")
            Set db = Session.GetDatabase("ZZ", "ZZ\test\MSystem.nsf") 'Server, Ordner
            Set doc = db.createdocument()
                doc.Form = "Document"                       'Dokumenttyp in Lotus Notes
                doc.DocumentAuthors = Cells(i, 4).Value     'Werte aus Spalte D
                doc.From = Cells(i, 3).Value                'Werte aus Spalte C
                doc.Subject = Cells(i, 1).Value             'Werte aus Spalte A
                doc.Categories = Cells(i, 2).Value          'Werte aus Spalte C
               
                Set rtBody = doc.CreateRichTextItem("body")
                Set AttachME = doc.CreateRichTextItem("attachment")
                Set EmbedObj = AttachME.EmbedObject(1454, "", "C:\Eigene Dateien\data.xls", "") 'Werte aus Spalte E
                'Set EmbedObj = AttachME.EmbedObject(1454, "", Cells(i, 2).Value, "") 'Werte aus Spalte E funktioniert nicht
               
            Call doc.Save(True, True)
        i = i + 1
    Loop
MsgBox "FERTIG"
End Sub
--- Ende Code ---

Für die Angaben zum Anhang sollen die Werte aus Spalte E genommen werden (siehe auskommentierter Code), aber das funktioniert leider nicht.

Wenn ich den Pfad manuell angebe, dann funktioniert es.

Könnt ihr mir helfen? Wie muss der Code lauten, damit ich die Pfadangaben aus Spalte E verwenden kann?

Vielen Dank schonmal für eure Hilfe.

Gruß
Silke

Mitch:
Sicher, dass du die richtige Spalte ansprichst?

Ohne jetzt den Code an sich durchgeschaut zu haben, sehe ich, dass du den Pfad aus "Cells(i, 2).Value" (im auskommentierten Teil) anhängen willst. Du schreibst, dass das die Spalte E wäre. Vier Zeilen darüber schreibst du aber die gleiche Zelle in das Feld "Categories" und sagst da, dass das Spalte C wäre...

Kann es sein, dass es bloß daran liegt? ;)

Gruß,

Mitch

Silki:
Hallo Mitch,

ja ich meine tatsächlich Spalte E, ich habe nur vergessen die auskommentierte Zeile entsprechend anzupassen (hatte sie vorher schonmal versehentlich rausgelöscht).


Gruß
Silki

koehlerbv:
Und was sagt der Debugger?

Bernhard

Silki:
Hallo Bernhard,

es kommt eine Fehlermeldung:

Laufzeitfehler '7063':
Anwendungs- oder objektdefinierter Fehler


Wenn ich auf OK klicke passiert nichts, also es wird auch im Code nichts markiert oder so.

Gruß
Silke

Navigation

[0] Themen-Index

[#] Nächste Seite