Помогите установить связь с файлом excel.

Среда, 19 Ноября 2014 г. 07:47 + в цитатник

Необходимо установить связь с таблицей excel. Заголовки столбцов находятся в 8 строке. Пытаюсь так:

Sub test()
 
AddLinkTable "[Excel 8.0; HDR=Yes;DATABASE=C:\Users\ARM_Fin_info_27807160.xlsx].[Лист1$A8:AF50000]", "Лист1", "Данные"
End Sub


Public Sub AddLinkTable(connect As String, tblName As String, newTblName As String)
    Dim NewTableDef As TableDef
    Set NewTableDef = CurrentDb.CreateTableDef(newTblName)
 
    NewTableDef.connect = connect
    NewTableDef.SourceTableName = tblName
    CurrentDb.TableDefs.Append NewTableDef
 End Sub