Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Makro mit Lotus Notes Script starten

Excel Makro mit Lotus Notes Script starten
14.08.2015 14:26:28
Matthias
Hallo,
über ein Lotus Notes Script öffne ich eine Excel Arbeitsmappe, füge ein Sheet hinzu und befülle es mit Daten aus einem Notesdokument. Das funktioniert prime.
Die weitere Verarbeitung der Daten soll nun ein Excelmakro übernehmen. Dieses Makro will ich vom Lotus Notes Script aus starten.
Das soll der letzte Befehl in diesem Script sein. Es gibt aber eine Notes Fehlermeldung, dass die Instanz Run nicht existiert.
Sub Initialize
Dim s As New notessession
Dim ws As New notesuiworkspace
Dim uiv As notesuiview
Set uiv = ws.currentview
Dim db As notesdatabase
Set db = s.currentdatabase
Dim Doc As notesdocument
Dim coll As notesdocumentcollection
Set coll = db.unprocesseddocuments
Print "Connecting to Excel..."
Set Excel = CreateObject("Excel.Application")
Excel.visible = True
Excel.Workbooks.Open ("H:\Eigene Dateien\ExcelDatei.xlsm")
Excel.ActiveWorkbook.WorkSheets.Add
Set xlWorkbook = Excel.ActiveWorkbook
Set xlSheet = xlWorkbook.ActiveSheet
xlsheet.Name = "Datenexport"
Dim counter As Integer
Dim row As Integer
row = 1
Set doc = coll.getfirstdocument
While Not (doc Is Nothing)
xlSheet.cells(row,1).value = doc.Firma(0)
xlSheet.cells(row,2).value = doc.DocID(0)
xlSheet.cells(row,3).value = doc.PTN_Firma(0)
xlSheet.cells(row,4).value = doc.ProductRange(0)
xlSheet.cells(row,5).value = doc.ModSelecList(0) & ";" & doc.Mod3PSelecList(0)
Set doc = coll.getnextdocument(doc)
row = row +1
Wend
Excel.Rows("1:" & row).select
Excel.selection.columns.Autofit
xlSheet.cells(1,1).select
Excel.ActiveWorkbook.Run ("Auswahlhilfe")
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro mit Lotus Notes Script starten
17.08.2015 09:31:24
Matthias
Hallo Michael,
danke für den Tip. Das dort Beschriebene funktioniert allerdings nicht. "Variant does not contain an object".

keine Ahnung, wieder offen
17.08.2015 15:57:14
Michael
Hi Matthias,
ich stelle wieder auf offen.
Gruß,
Michael

Anzeige
AW: keine Ahnung, wieder offen
18.08.2015 13:24:30
Matthias
Hallo,
folgende "Lösung" funktioniert:
Im Lotus Script aktiviere ich Sheet1 und danach wieder das hinzugefügte Sheet.
Im Scheet1 benutze ich dann die Sub
Private Sub Worksheet_Deactivate()
If ActiveSheet.Name = "Datenexport" Then Call Daten_Export
End Sub
Ist vielleicht nicht schön, funzt aber.

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige