Hallo zusammen,
ich habe ein Problem mit einem Makro - ich schreibe es in Access und es soll mir unter anderem Daten in Excel kopieren und diese Exceldatei oeffnen (und sie nicht schliessen, wenn das Makro endet).
Das mit dem Kopieren hat geklappt, aber ich kriege die Exceldatei einfach nicht geoeffnet.
Mein Code lautet wie folgt:
Private Sub Command31_Click()
On Error GoTo Err_Command21_Click
Dim AppExcel As Object
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _
"EnterManualCountsQuerydif", "X:\Daten.xls"
'Die Daten aus der 'Abfrage "EnterManual…" werden in das Excelsheet "Daten" kopiert
Set AppExcel = GetObject("X:\Daten.xls") 'Zugriff auf dieses Excelsheet
AppExcel.Application.Visible = True 'Sichtbar machen von diesem ExcelSheet
AppExcel.Worksheets("EnterManualCountsQuerydif").Visible = True
'Noch ein Versuch das Ganze sichtbar zu machen
Exit_Command21_Click:
Exit Sub
Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click
End Sub
Das Problem ist, dass nur Excel selber geoeffnet wird OHNE meine Datei :-(. Mir gehen langsam die Ideen aus. Leider hat es auch nicht mit AppExcel.Workbooks.Open geklappt...
Kann mir da jemand weiterhelfen??
|