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
Please also mark the comments that contributed to the solution of the article
Content-Key: 284133
Url: https://administrator.de/contentid/284133
Printed on: April 24, 2024 at 05:04 o'clock
1 Comment
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