ADO. Как получить данные из закрытой книги?

Пользователь

Сообщений: 87 Регистрация: 30.12.2019

30.12.2019 16:42:25

Здравствуйте подскажите, что я сделал ни так .Скопировал код ADO отсюда КАК ПОЛУЧИТЬ ДАННЫЕ ИЗ ЗАКРЫТОЙ КНИГИ?, но почему то выдает "#знач!"

Прикрепленные файлы

Андрей Лящук

Пользователь

Сообщений: 564 Регистрация: 18.02.2013

31.12.2019 00:22:55

Ну дык написано же

Цитата

Важно: если данные извлекаются только из одной строки, то следует все равно указать минимум две строки: А1:B10. Это особенность работы с запросами. При попытке указать только одну строку А1:A10 функция вернет значение ошибки. При этом первая строка воспринимается как заголовки. Т.е. данные должны начинаться как минимум со второй строк(A2), а в A1 - заголовок

замените в коде

Код
.Open "Driver={Microsoft Excel Driver (.xls, .xlsx, .xlsm, .xlsb)};ReadOnly=1;DBQ=" & sFullFileName & ";"

на

Код

Dim sFileType$
Select Case Right(sFileName, 1)
    Case "s": sFileType = "8.0"
    Case "b": sFileType = "12.0"
    Case "x": sFileType = "12.0 xml"
    Case "m": sFileType = "12.0 macro"
End Select
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel " & sFileType & _
      ";HDR=no;IMEX=1;"";Data Source=" & sFullFileName & ";"

Voltz Пользователь Сообщений: 87 Регистрация: 30.12.2019	#3 02.01.2020 12:24:52 Спасибо!