Excel Daten aus dem WeB aktualisieren, Excel nach fertigstellung im Anschluss schließen

Hallo,

ich lade Daten in eine Excel Datei aus dem web hinein, DATEN - AUS DEM WEB.
das klappt beim öffnen soweit ganz gut, nur wie bekomme ich es hin, dass im Anschluss die Excel Datei automatisch wieder geschlossen wird?

Geht dieses überhaupt?
Habe leider hierzu keine Einstellung in Excel gefunden.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 258523

Url: https://administrator.de/forum/excel-daten-aus-dem-web-aktualisieren-excel-nach-fertigstellung-im-anschluss-schliessen-258523.html

Ausgedruckt am: 15.04.2025 um 17:04 Uhr

11 Kommentare

Neuester Kommentar

Moin,
aktualisiere die QueryTable via VBA und schließe sie dann auch damit

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
    'Querytables auf dem  
ersten Sheet aktualisieren (SheetIndex 
ist anzupassen)
for each qt in Worksheets(1).Querytables
    qt.Refresh BackgroundQuery:=False
next
'Workbook speichern und schließen  
ThisWorkbook.Close True
'Excel beenden  
Application.Quit
End Sub

Gruß jodel32

Dieses dann als openmakro?

yip, oder in das Workbook_Open() Event kopieren...

Bin von excel komplett raus, workbook_open event??
Sorry für die frage

Zitat von @thomas1972:
workbook_open event??
Sorry für die frage

guckst du hier
http://support.microsoft.com/kb/265113/de

Irgendwie löscht er mir das makro aus "diesearbeitsmappe" immer wieder heraus.
Beim speichern kam auch immer ein hinweis das das makro nicht gespeichert werden kann.

kann es mit excel2010 zusammen hängen?

Du musst die Mappe als *.xlsm speichern !!!
Und Makros musst du natürlich im Sicherheitscenter von Excel auch aktivieren !! Optionen -> Trustcenter .....
http://office.microsoft.com/de-de/excel-help/andern-der-einstellungen-f ...

Mann das sind VBA-Grundlagen oder hast du noch nie was mit VBA gemacht ?

Ich arbeite meist eher über Access und habe solche Einstellungen dort nicht vornehmen müssen,
aber vielleicht bekomme ich es auch anders hin.

ich öffne über Access eine Excel Datei, welche Webabfragen automatisch durchführt
Hintergrund, Access ist nicht in der Lage Websiten ohne Endung (html, htm) einzulesen, daher der Umweg über Excel

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Dim xlApp As Object, xlWB As Object

     Set xlApp = CreateObject("Excel.Application")  
     xlApp.Visible = True
     Set xlWB = xlApp.Workbooks.Open("f:\Test.xlsx", , True)  
     Set xlWB = xlApp.Workbooks(1).RefreshAll
     
End Sub

Hierbei wird aber das Excel Sheet immer nur Schreibgeschützt geöffnet
Wie bekomme ich es hin,

1. das das Excel Sheet nicht schreibgeschützt geöffnet wird
2. dass Access mitbekommt, dass das Excel Sheet fertig ist und dann das Sheet speichert und Excel beendet

Die Zeile Set xlWB = xlApp.Workbooks(1).RefreshAll
erzeugt einen Laufzeitfehler 424 Objekt erforderlich

na das Hammer gerne, von Access hast du kein Wort erwähnt

... einmal kurz in die Doku schauen und du hättest es gewusst:
http://msdn.microsoft.com/de-de/library/office/ff194819(v=office.15).as ...

1
2
3
4
Set xlWB = xlApp.Workbooks.Open("f:\Test.xlsx")  
xlWB.RefreshAll
xlWB.Close True
xlApp.Quit

Die Query darf dabei nicht als Background-Query angelegt sein, dann wartet der Code bis alles aktualisiert ist ! Ansonsten kannst du die Querytable wie oben bereits geschrieben mit Angabe der BackgroundQuery-Parameters dazu zwingen Ihre Daten im Vordergrund zu aktualisieren.

Der Fehler 424 bleibt dennoch weiter in der Zeile Set xlWB = xlApp.Workbooks(1).RefreshAll
erhalten, auch genannte URL hilft mir hier nicht weiter.

Hintergrundaktualisierung ist bereits abgeschaltet.

code>

Private Sub Form_Load()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Open("f:\drucker_prod4.xlsx", , ReadOnly:=false)
Set xlWB = xlApp.Workbooks(1).RefreshAll
xlWB.Close True
xlApp.Quit
End Sub

Falsch ....

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
     Dim xlApp As Object, xlWB As Object, qt as Object
     Set xlApp = CreateObject("Excel.Application")  
     xlApp.Visible = True
     xlApp.DisplayAlerts = False
     Set xlWB = xlApp.Workbooks.Open("f:\Test.xlsx")  
     for each qt in xlWB.Worksheets(1).Querytables
        qt.Refresh BackgroundQuery:=False
     next
     xlWB.Close True
     xlApp.DisplayAlerts = True     
     xlApp.Quit
End Sub