auricgoldfinger
Goto Top

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
b6bec902c48222fd5a73d9172a0fe6ae

Was mache ich falsch??

Ach ja, das ganze soll unter Win7 32bit laufen.

THX

Auric

Content-Key: 284133

Url: https://administrator.de/contentid/284133

Ausgedruckt am: 28.03.2024 um 23:03 Uhr

Mitglied: 114757
114757 29.09.2015 um 14:43:35 Uhr
Goto Top
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 

Gruß jodel32