Salvete!

Ich habe in einer Excel-Datei Daten über MS-Query eingebunden.
Beim Öffnen soll sich die Datei Refreshen (ja, Denglisch, ich weiß)
Code :
1
2
3
4

Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
 
End Sub

In einer Access-DB füllt ein Skript die Datenquelle (txt-file) für jene Excel Datei und öffnet dann ebendiese:
Code :
1
2
3
4

Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")
xlapp.workbooks.Open ("F:\WINAPPS\EUROMED\BTSAccessStatistik\Statistik-ITM\ProdStat.xls")
xlapp.Application.Visible = True

Nur leider wird in diesem Fall die Aktualisierung nicht durchgeführt.
Öffne ich die Excel-Datei direkt (Doppelklick im Ordner), funktioniert der Refresh.

Falls es von Belang ist: Die Excel-Datei habe ich schreibgeschützt (rechte Maustaste auf Datei im Ordner, Haken bei "schreibgeschützt"), da die Anwender sich die mit den Daten aktuell erzeugte Version woanders selbst benannt speichern sollen.