Automatische Aktualisierung mit VBA
20.10.2006 12:19:05
MartinCH
Es will nicht klappen, alles habe ich nun versucht, doch es will einfach nicht.
Mit untenstehendem Makro öffne ich eine Datei im Netz und befülle diese mit Daten. Danach sollte die Datei automatisch einen MS Querry laufen lassen und die Ergebnisse anzeigen. Nun das geht auch wie gewünscht, leider kann ich diese Abfrage aber nicht mit einem Makro komplett ablaufen lassen, es wird beim öffnen der Datei eine Meldung angezeigt welche immer zuerst angeklickt werden muss, bevor die Daten aktualisiert werden.
Ist das nicht mit einem VBA Befehl möglich?
das habe ich alles versucht:
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.RefreshAll
Calculate
aber eventuell nicht richtig angewendet.
Sub Orderset_prüfen()
Dim Art_Nr
Dim KD_Nr
Art_Nr = Range("U13").Value
KD_Nr = Range("S1").Value
'jetzt wird eine Abfragedatei geöffnet welche mit MS-Querry eine SQL Abfrage startet.
Workbooks.Open Filename:="G:\SAP\SAPA\04-DM-Tools\Orderset.xlt", UpdateLinks:=3
'leider muss hier immer die Meldung "Automatische Aktualisierung Aktivieren" manuell angeklickt werden.
'kann man das nicht automatisieren?
Workbooks("Orderset.xls").Sheets("Orderset").Range("A3").Value = Art_Nr
Workbooks("Orderset.xls").Sheets("Orderset").Range("D3").Value = KD_Nr
End Sub
Danke Euch allen die es eventuell wisst wie es geht....;0)
MartinCH
