|
Hallo Liebe Forummitgliedern,
aktuell habe folgendes Problem:
Ich habe einen Ablauf (CSV Export) in Excel mit einem Makro automatisiert und es funktioniert soweit prima.
Nun möchte ich dieses Makro mit der Aufgabenplanung (per Skript/exe/bat/ etc.) ausführen.
Ich habe bereits ein Skript im Internet gefunden und versucht, es zu implementieren, aber es funktioniert leider nicht.
Dies ist das VBS-Skript:
--------------------------------------------------------------------
Dim args, objExcel
Set args = WScript.Arguments
Set objExcel = CreateObjects("Excel.Application")
objExcel.Workbooks.Open args(0)
objExcel.Visible = True
objExcel.Run "makroexample"
objExcel.ActiveWorkbook.Close(0)
objExcel.Quit
--------------------------------------------------------------------
Hier ist der entsprechende Bat-Code:
cscript script.vbs "test.xlsm"
Leider wird damit nichts ausgeführt, wie kann ich herausfinden, wo das Problem liegt?
--------------------------------------------------------------------
Das ist das Makro, das ich verwende:
Sub Jiraimport()
Dim wkb As Excel.Workbook
Application.Calculation = xlCalculationAutomatic
Set wkb = Workbooks.Open("\\Test.xlsx")
Call wkb.RefreshAll
Call Application.CalculateUntilAsyncQueriesDone
wkb.Save
Dim rngZ As Range, arrV, strE As String, kk As Integer, ss As Long
Const Tabu As String = ";"
ActiveSheet.ListObjects("Jira_Import").Range.Select
For Each rngZ In Selection.Rows
arrV = Application.Transpose(Application.Transpose(rngZ.Value))
For ss = 1 To UBound(arrV)
arrV(ss) = Replace(arrV(ss), ",", ".")
Next ss
If strE <> "" Then strE = strE & vbCrLf
strE = strE & Join(arrV, Tabu)
Nächstes rngZ
kk = FreeFile(1)
Open "\\Test_" & Datum & ".csv" For Output As kk
Print #kk, strE
Close kk
Workbooks("TLSMQA_Rohdaten.xlsx").Close SaveChanges:=False
End Sub
----------------------------------------------------------------------
Wenn Ihr eine Idee habt oder Verbesserungsvorschläge wäre ich wirklich sehr dankbar!!
|