Thema Datum  Von Nutzer Rating
Antwort
Rot Datei öffnen daten rausholen und schliessen
07.02.2024 22:26:40 GTA
Solved
08.02.2024 00:23:30 ralf_b
Solved
08.02.2024 07:53:12 Mase
Solved
09.02.2024 00:57:13 Gast26535
NotSolved
09.02.2024 01:26:13 xlKing
NotSolved
09.02.2024 01:45:54 xlKing
NotSolved
09.02.2024 08:51:45 Mase
NotSolved
09.02.2024 16:44:09 GTA
Solved
09.02.2024 20:53:55 Mase
NotSolved
09.02.2024 23:01:00 xlKing
NotSolved
10.02.2024 11:44:58 Mase
NotSolved
13.02.2024 11:37:15 GTA
NotSolved

Ansicht des Beitrags:
Von:
GTA
Datum:
07.02.2024 22:26:40
Views:
202
Rating: Antwort:
 Nein
Thema:
Datei öffnen daten rausholen und schliessen

Hallo liebe VBA Gemeinde

Ich scheitere beim Versuch die geöffnete Datei zu schliessen.
Kurzer Beschrieb was geschieht:
Das Script öffnet eine Datei. Wartet bis eine Zelle ausgewählt ist. Schreibt Daten in Variablen und schliesst die Datei anschliessend wieder.

 

  On Error Resume Next 'Excel neue Instanz aufbauen
  Set ExcApp = CreateObject("Excel.Application")
  On Error GoTo 0

Set ExcWb2 = ExcApp.Workbooks.Open(ExtDateipfad)
Set ExcWs2 = ExcWb2.Sheets(Tabellenname)
ExcWb2.Activate
ExcApp.Visible = True
ExcApp.ActiveWindow.WindowState = xlMaximized
ExcWs2.Activate
ExcWs2.Visible = True
ExcWs2.Cells(ExcWs2.Cells(Rows.Count, 1).End(xlUp).Row, 1).Select
   'wartet auf Nutzereingabe und Zelle auswählen
Dim rng As Range
Set rng = ExcApp.Selection
Do
DoEvents
Loop Until ExcApp.Selection.Address <> rng.Address
Debug.Print ExcApp.Selection.Address
Debug.Print rng.Address

'Schliessen der Datei
ExcApp.Visible = True '=> hier kommt der Anwendungs oder Objektdefinierter Fehler
 With ExcWb2
   .Activate 'Instanz schliessen
   .Saved = True
   .Close
 End With
ExcApp.Quit
Set ExcWb2 = Nothing

Vermutung liegt dabei an der Reihenfolge der Fenster. Hat jemand einen Tipp wie ich das lösen kann? Mit F8 lässt sich das Programm dann im Debugger beenden. Was mich erstaunt, da ja ein Fehler vorliegt.


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 öffnen daten rausholen und schliessen
07.02.2024 22:26:40 GTA
Solved
08.02.2024 00:23:30 ralf_b
Solved
08.02.2024 07:53:12 Mase
Solved
09.02.2024 00:57:13 Gast26535
NotSolved
09.02.2024 01:26:13 xlKing
NotSolved
09.02.2024 01:45:54 xlKing
NotSolved
09.02.2024 08:51:45 Mase
NotSolved
09.02.2024 16:44:09 GTA
Solved
09.02.2024 20:53:55 Mase
NotSolved
09.02.2024 23:01:00 xlKing
NotSolved
10.02.2024 11:44:58 Mase
NotSolved
13.02.2024 11:37:15 GTA
NotSolved