Thema Datum  Von Nutzer Rating
Antwort
Rot Datei noch nicht geöffnet, soll anschließend geschlossen werden
 25.09.2019 21:18:55 Andreas Kra
NotSolved

Ansicht des Beitrags:
Von:
Andreas Kra		 Datum:
25.09.2019 21:18:55		 Views:
1307		 Rating:
     
Antwort:
  Ja
Thema:
Datei noch nicht geöffnet, soll anschließend geschlossen werden
Einen schönen guten Abend :) Ich bin ein VBA-Neuling, kenne mich also kaum aus, versuche mich aber trotzdem an ein kleines Projekt: Mittels SAP Recorder versuche ich gewisse Schritte im SAP ablaufen zu lassen. Wo ich aktuell hänge: Es soll aus SAP eine Datei als Tabellenkalkulation gespeichert werden. Nachdem man aus SAP eine Datei speichert, wird diese mit einem Versatz von wenigen Sekunden auch automatisch geöffnet. Ich möchte nun, dass erst abgewartet wird, bis die Datei geöffnet ist, damit diese wieder geschlossen werden kann (bei einer anderen Datei werde ich warten müssen, bis die Datei geöffnet wurde, anschließend soll der Inhalt einer Spalte kopiert und woanders eingefügt werden, anschließend Datei wieder schließen). Könntet ihr mir hier bitte helfen? Ich komme nicht mehr weiter - so nervig! Hier der Code, inkl. Zeilen vom SAP-Recorder sowie auch einige Versuche von mir, die aber irgendwie nicht klappten... :( objSess.findById("wnd[1]/usr/ctxtDY_PATH").Text = "J:\Test\Test" objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "Input_Query_Masse1.xlsx" objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 18 objSess.findById("wnd[1]/tbar[0]/btn[11]").press geladen = False Do For Each wb In Workbooks If wb.Name = "Input_Query_Masse1.xlsx" Then geladen = True Next wb Loop Until geladen = True End Function Sub DateiSchließen_ohne_speichern() ' Datei schließen Workbooks("Input_Query_Masse1.xlsx").Close SaveChanges:=False End Sub Function ProcessRow1(iRow) Dim lineitems As Long Dim W_Tagesdatum Dim W_QuellID ' Workbooks(„Input_Query_Masse1.xlsx“).Close ' Set objWorkbook1 = Workbooks(Input_Query_Masse1.XLSX) ' Call objWorkbook1.Close ' Set objWorkbook1 = Workbooks(Input_Query_Masse1.XLSX) 'Open("J:\Kundenservice\Verbrauchsabrechnung\Abrechnung\MOS Billing\Durchführung MOSB\Input_Query_Masse1.XLSX") ' Call objWorkbook1.RefreshAll ' Call objWorkbook1.Close(SaveChanges:=True) ' Set objWorkbook1 = Nothing

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 Datei noch nicht geöffnet, soll anschließend geschlossen werden
 25.09.2019 21:18:55 Andreas Kra
NotSolved