Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Automatisierung per Skript und Aufgabenplanung
16.02.2021 17:47:47 Abba123
*
NotSolved
16.02.2021 20:38:53 Gast84106
NotSolved
17.02.2021 10:55:54 Gast37122
NotSolved
17.02.2021 18:20:52 Gast34293
NotSolved
18.02.2021 08:44:26 Abba123
NotSolved
18.02.2021 12:08:10 Gast6873
NotSolved
18.02.2021 18:57:48 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Abba123
Datum:
16.02.2021 17:47:47
Views:
780
Rating: Antwort:
  Ja
Thema:
Makro Automatisierung per Skript und Aufgabenplanung

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!!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Automatisierung per Skript und Aufgabenplanung
16.02.2021 17:47:47 Abba123
*
NotSolved
16.02.2021 20:38:53 Gast84106
NotSolved
17.02.2021 10:55:54 Gast37122
NotSolved
17.02.2021 18:20:52 Gast34293
NotSolved
18.02.2021 08:44:26 Abba123
NotSolved
18.02.2021 12:08:10 Gast6873
NotSolved
18.02.2021 18:57:48 Trägheit
NotSolved