Otwieranie pliku Excel z Accessa

Czesc,

Mam problem z otwarciem pliku excela z poziomu accessa.
Mam dwie bazy danych. W jednej jakiś czas temu to ustawiłem.
W drugiej wydaje mi sie, że zrobiłem wszystko dokładnie tak samo, ale mimo to excel nie chce sie otworzyc a ja dostaje error message "User defined - type not defined".
Nie bardzo wiem co tutaj moge poprawic. Pierwszy wiersz jest podswietlony po bledzie.

Public Function OpenExcelFile(strFilePath As String) As Boolean
'Required: Tools > Refences: Add reference to Microsoft Excel Object Library
Dim appExcel As Excel.Application
Dim myWorkbook As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(strFilePath)
appExcel.Visible = True
'Do Something or Just Leave Open
Set appExcel = Nothing
Set myWorkbook = Nothing
End Function
Sub OpenExcel()
Call OpenExcelFile("D:\Praca\WG Automation projekt\an2.xlsx")
End Sub

A do dodałeś referencje do obiektów excela?

@Panczo: Kurde nie wiedzialem, ze to trzeba dodac dla kazdej bazy danych :D
OMG, tyle sie zastanawialem.
Dzieki!

Ten kod jest niespójny, bo miesza late binding z early...
Generalnie w tego typu skryptach stosuje się late binding, na wypadek jakbyś nie miał Excel a na komputerze.

Public Function OpenExcelFile(strFilePath As String) As Boolean

Dim appExcel As Object
Dim myWorkbook As Object

Set appExcel = CreateObject("Excel.Application")
If not appexcel is nothing then
Set myWorkbook = appExcel.Workbooks.Open(strFilePath)
appExcel.Visible = True
'Do Something or Just Leave Open

Set myWorkbook = Nothing
Set appExcel = Nothing
End if
End Function

I nie potrzebujesz dodawać tej referenjii