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
Comment
Share
Share on Facebook
Share on X (Twitter)
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-ID: 284133
Url: https://administrator.de/forum/probleme-bei-der-ausfuehrung-eines-vb-scriptes-284133.html
Printed on: May 14, 2025 at 02:05 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