ник: Аноним
у меня существуе процедура переброса данных в exel, она работает если в referenses подключена библиотека exel.
как программно можно подключить в эту процедуру эту библиотеку?
Public Sub IntoExcel(TableName As String)
Dim exc As Excel.Application
Dim Filename As String
On Error GoTo Etrap
Filename = TableName & "_Excel"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, TableName, Filename, True
Set exc = CreateObject("Excel.Application")
exc.Workbooks.Add CurDir & "\" & Filename & ".xls"
exc.Visible = True
Etrap:
Select Case Err.Number
Case 0
Case Else
MsgBox Err.Description, , Err.Number
End Select
End Sub