Probleme bei der Ausführung eines VB-Scriptes

Hallo zusammen,

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-ID: 284133

Url: https://administrator.de/forum/probleme-bei-der-ausfuehrung-eines-vb-scriptes-284133.html

Ausgedruckt am: 10.07.2025 um 01:07 Uhr

1 Kommentar

Moin,

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 