Hallo Alle
Aus Access sollen Daten in ein Excel-Sheet übertragen und dann dort per vba Code aufbereitet werden. Mit dem folgenden Code hae ich das versucht:
DoCmd.OpenQuery "FZproLerngruppe_Kreuztabelle", acNormal, acEdit
DoCmd.OutputTo acQuery, "", "MicrosoftExcel(*.xls)", "\\Server-szr\awk\AWK_BGy\Ausgabe.xls", True, ""
AppActivate "Microsoft Excel"
Range("B2").Activate
...
Der Code wird durch Click auf eine Schaltfläche ausgelöst. Nach dem Start von Access und Aufruf des Formulars mit der entpsrechenden Schalfläche wird der Export erledigt, dann allerdings der Ablauf mit einer Fehlermeldung unterbrochen, die besagt, dass die Methode "Range" des Objekts "Global" nicht gefunden wurde. Breche ich jetzt die Ausführung des Codes ab und klicke nochmals auf die Schaltfläche funktioniert das Ganze bestens. Schön wäre es aber, wenn es bereits beim ersten Mal funktionieren würde. Hinweis: Das Definieren von Objekten (Dim BlaBla As Excel.Application ...) und die Anbindung des Range-Objekts an diese ändert an dem beschriebenen Sachverhalt nichts.
Vielen Dank für die Denkmühen
leone
|