Помогите, как открыть файл *.xls из под Access?
Вообще, мне нужно импортнуть таблицу из Аксеса и открыть её в виде PivotTable. Я пишу вот такую функцию:
Function Export_Report(qryName, FileName)
Dim strPath As String, strFile As String, A As Integer
Dim appXls As Excel.Application, WS As Workbook
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel10, qryName, strPath & "\" & FileName, True, ""
A = MsgBox("Экспорт в файл " & strPath & "\" & FileName & завершен" открыть сейчас?", vbYesNo, "Export data")
If A = 7 Then Exit Function
Set appXls = New Excel.Application
With appXls
.Workbooks.Open (strPath & "\" & FileName)
.Visible = True
End With
Set appXls = Nothing
End Function
При запуске ругается вот такой ошибкой: User-defined type not defined
Подскажите, пожалуйста, как по уму это сделать.