Set Excel workbook from Access

Hallo Peter,
<br />hatte ich schon gemacht.
<br />Danke, Gruss
<br />Peter
<br />

Hallo Peter,
<br />das Thema ist immer noch nicht ausgestanden. Der Code sieht z.Zt. so aus:
<br /> Sub YYIsWorkBookOpen(FileName As String)
<br /> Dim Db As DAO.Database
<br /> Dim rsEPRT As DAO.Recordset
<br /> Set Db = Application.CurrentDb
<br /> Set rsEPRT = Db.OpenRecordset("qry_Process_Data_Abfrage_Export", dbOpenDynaset)
<br /> Dim ExcelApp As Object
<br /> Dim I As Long
<br /> Set ExcelApp = GetObject(, "Excel.Application")
<br /> On Error GoTo 0
<br /> If ExcelApp Is Nothing Then
<br /> Err.Clear
<br /> Set ExcelApp = CreateObject("Excel.Application")
<br /> ExcelApp.Visible = True
<br /> Else
<br /> Debug.Print ExcelApp.Workbooks.Count
<br /> For I = 1 To ExcelApp.Workbooks.Count
<br /> If ExcelApp.Workbooks(I).Name = "Process_Data_Analysis.xlsm" Then
<br /> ExcelApp.Workbooks(I).Activate
<br /> Exit For
<br /> End If
<br /> Next I
<br /> End If
<br /> With ExcelApp
<br /> .Visible = True
<br /> .UserControl = True
<br /> .Worksheets("source").Activate <=== Fehlermeldung hier.
<br /> .Sheets("source").Select
<br /> .Worksheets("Source").Range("A2").CopyFromRecordset rsEPRT
<br /> End With
<br /> Set ExcelApp = Nothing
<br /> Set rsEPRT = Nothing
<br /> Set Db = Nothing
<br /> End Sub
<br />Die Fehlermeldung erscheint bei: .Worksheets("source").Activate mit der nervigen Meldung : Subscript out of range.
<br />

Hallo,
<br />

[...] Ich will die geöffnete Excel Tabelle zur aktiven Tabelle machen [...]

Ah, ja. Wie bereits erwähnt, wäre es hilfreich, wenn du die Stelle postest, an der die entsprechende(n) Objektzuweisung(en) gemacht werden, sprich IsWorkBookOpen.
<br />Gruss - Peter
<br />

Hallo Peter,
<br />danke für deine schnelle Antwort.
<br />Im Prinzip ist mir das bekannt aber in der Zeile: IsWorkBookOpen("C:/TDB_DataBase/Process_Data_Analysis.xlsm") funktioniert das Problemlos, deshalb habe ich einfach Kopiert. Habe es mit Backlash probiert, Fehler nach wie vor, also am Backlash kann es nicht liegen.
<br />Gruss
<br />Peter
<br />

Hallo,
<br />Bevor ich ins Detail gehe, du weißt, dass der Pfad durch Backslash getrennt werden muss? Also "C:\TBD_Database\Process_Data_Analysis.xlsm".
<br />Gruss - Peter
<br />