Script per Batch o.ä. ausführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
kommt darauf an wie ausfühlich Du den Code aufbaust.
Da VBS eine Abwandlung von VBA (nicht rein Excel-VBA) ist,
kann der der Code bei VBA gut leicht angepasst werden.
Man muss nur daran denken, dass VBS nur den Datentyp Variant kennt.
Was ich jetzt nicht getestet habe,
ob der Code (in der Excel) auch immer ausgeführt wird wenn die Datei aus einen
nicht Vertrauenswürdigen Ort ausgeführt/geöffnet wird.

Dim xlsApp
Dim  ws
Dim sFullPath
Dim sFileName
Dim  sCode
Dim oWB
'ExcelFile *****************
sFileName = "Ex Excel.xlsm"
'Pfad zur Excel anpassen *******************
sFullPath = "D:\Test\" & sFileName
' Code Namen anpassen *******************
sCode = "'" & sFileName & "'!Test_Beispiel"
'für evtl. eine Pause einzulegen
Set ws = CreateObject("Wscript.shell")
'________________________________________________
On Error Resume Next
Set xlsApp = GetObject(, "Excel.Application")
if Not  xlsApp Is Nothing then
set oWB = xlsApp.Workbooks(sFileName)
end if
if oWB  Is Nothing  then
if xlsApp Is Nothing Then
'Excel Instanz
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
end if
set oWB = xlsApp.workbooks.open (sFullPath)
end if
'_________________________________________________
if Not oWB is Nothing then
'Code in der Excel ausführen
xlsApp.Run sCode
'evtl. Pause in ms groß genug bis Code ausgeführt ********************************************
'kommt auf den Code an (zBsp. bei Verwendung von OnTime), austesten bzw. auch wieder löschen
WScript.sleep 1000
'speichern **********************************
if xlsApp.ActiveWorkbook.ReadOnly = False then
xlsApp.ActiveWorkbook.Close True
else
xlsApp.ActiveWorkbook.Close False
end if
if xlsApp.Workbooks.Count = 0 then
xlsApp.EnableEvents = False
xlsApp.Quit
end if
end if
'_________________________________________________
Set oWB = Nothing
Set ws = Nothing
Set xlsApp = Nothing

Gruß Tino

wbPath = "N:\Excelstuff\" wbName = "Test.xlsm" macroName = "Makro1" On Error Resume Next Set objExcel = CreateObject("Excel.Application") If Err 0 Then MsgBox Err.Description, _ vbCritical + vbOKOnly, "EXCEL nicht gefunden!" Else objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open (wbPath & wbName) if Err 0 Then MsgBox Err.Description, _ vbCritical + vbOKOnly, "Open " & wbName Else objExcel.Run wbName & "!" & macroName if Err 0 Then MsgBox Err.Description, _ vbCritical + vbOKOnly, "Run macro " & macroName Else objWorkbook.Close True if Err 0 Then MsgBox Err.Description, _ vbCritical + vbOKOnly, "Close&Save " & wbName End If End If End If End If objExcel.Quit Msgbox "...und Tschüss!"

Beliebteste Forumthreads (12 Monate)

Script per Batch o.ä. ausführen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread