Не могу импортировать файл Excel

Вторник, 20 Июня 2017 г. 16:50 + в цитатник

Всем добрый день!

Не могу проимпортировать данные из файла Excel 2007 в Access 2003, вернее даже подключиться к этому файлу - выдает постоянно ошибки, подскажите как их можно обойти, если можно.

В Excel 2003 открывает с ошибками, а в Excel 2007 без вопросов

С другими делал так:

 Dim ExlApp As Object
 Dim WrkBk As Object
 Set ExlApp = CreateObject("Excel.sheet")
 Set WrkBk = ExlApp.Parent
 With WrkBk
     .DisplayAlerts = False
     .AskToUpdateLinks = False
     .Workbooks.Open ExcelPath 'открываем файл ексель
     .Visible = False '= False делаем невидимым
 End With

     Set rs = CurrentDb.OpenRecordset("tmp_PL")
     For i = j + 1 To ExcelRow
     rs.AddNew
     rs.Update
     rs.Bookmark = rs.LastModified
     rs.Edit
     rs.Fields(0) = WrkBk.Cells(i, a(1)) 
     rs.Fields(1) = WrkBk.Cells(i, a(2)) 
     .... 
     rs.Update
     rs.Bookmark = rs.LastModified
     Next i
     Set rs = Nothing