Probleme mit QueryTable (Schreibgeschützt)
Hockmock
Per Makro und definierten Queries importiere ich eine ganze Zahl von daten. Das funzt soweit auch problemlos. Allerdings habe ich immer dann ein Problem, wenn die zugrunde liegende datei bereits durch einen anderen User geöffnet ist. Dann gerät alles ins stocken, eine fehlermeldung geht auf die man mit "Abbrechen" wegdrücken muss und dann geht's weiter im Programm.
Idealerweise hätte ich gerne im Vorfeld bereits eine Prüfung ob die QueryDatei bereits geöffnet ist. Wenn nein dann Aktualisierung; wenn ja dann protokiollierung in einem separaten tabellenblatt (z.B. "History")
Ist sowas möglich?
Hier mein bisheriger Code:
Sub Import_Abfragewerte()
' Alle Tabellenblätter mit hinterlegten Abfragen werden aktualisiert
Dim LQuery As Long
Dim myTab As Worksheet
On Error Resume Next
For Each myTab In ThisWorkbook.Worksheets
For LQuery = 1 To myTab.QueryTables.Count
myTab.Select
myTab.QueryTables.Item(LQuery).Refresh
Next LQuery
Next myTab
Sheets("History").Select
End Sub