Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Подскажите, как открыть файл *.xls из под Access ?  [new]
Kwazimoda
Member

Откуда:
Сообщений: 24
Помогите, как открыть файл *.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

Подскажите, пожалуйста, как по уму это сделать.
16 сен 04, 14:33    [964911]     Ответить | Цитировать Сообщить модератору
 Re: Подскажите, как открыть файл *.xls из под Access ?  [new]
kedzo
Member

Откуда: Москва
Сообщений: 964
подключи библиотеку MS Excel
16 сен 04, 14:35    [964926]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить