Probleme bei der Ausführung eines VB-Scriptes
Hallo zusammen,
ich habe folgendes Script geschrieben:
Leider bekomme ich bei der Ausführung den Fehler
Was mache ich falsch??
Ach ja, das ganze soll unter Win7 32bit laufen.
THX
Auric
ich habe folgendes Script geschrieben:
Option Explicit
Dim oExcel, oWbk, fname
Dim lst as String = {"Test1.xlsm", "Test2.xlsm"}
For Each fname As String In lst
Set oExcel = CreateObject("Excel.Application")
'--- sichtbar
oExcel.visible = true
'--- Datei öffnen, Dateiname, Updatelinks, ReadOnly
Set oWbk = oExcel.Workbooks.Open (fname, false, true)
'--- Makro ausführen
oExcel.Run "Test"
Next
Leider bekomme ich bei der Ausführung den Fehler
Was mache ich falsch??
Ach ja, das ganze soll unter Win7 32bit laufen.
THX
Auric
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 284133
Url: https://administrator.de/contentid/284133
Ausgedruckt am: 28.03.2024 um 23:03 Uhr
1 Kommentar
Moin,
Gruß jodel32
Option Explicit
Dim oExcel, oWbk, fname, lst
lst = Array("c:\Pfad\Test1.xlsm", "c:\Pfad\Test2.xlsm")
Set oExcel = CreateObject("Excel.Application")
'--- sichtbar
oExcel.visible = true
For Each fname In lst
'--- Datei öffnen, Dateiname, Updatelinks, ReadOnly
Set oWbk = oExcel.Workbooks.Open (fname, false, true)
'--- Makro ausführen
oExcel.Run "Test"
Next
Gruß jodel32