Доброго времени суток.
Столкнулся с такой проблемой:
Беру данные из закрытой книги Excel:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim str_shtBD as string: str_shtBD= "Лист1"
Dim path_db as string: path_db= "c:\книга1.xls"
Dim cnn As ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path_db & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
rst.Open "SELECT * FROM [" & str_shtBD & "$A1:AA3000]", cnn
ThisWorkbook.Worksheets("ЛИст1").Range("A1").CopyFromRecordset rst: rst.Close
В итоговых данных пропущены значения некоторых ячеек (возвращает Null), которые есть в источнике. Обратив внимание, что пропущены строковые данные в столбцах, а числовые остались, на первый взгляд, причина :
Rows to Scan: Excel does not provide ADO with detailed schema information about the data it contains, as a relational database would. Therefore, the driver must scan through at least a few rows of the existing data in order to make an educated guess at the data type of each column. The default for "Rows to Scan" is eight (8) rows. You can specify an integer value from one (1) to sixteen (16) rows, or you can specify zero (0) to scan all existing rows. This is done by adding the optional MaxScanRows= setting to the connection string, or by changing the Rows to Scan setting in the DSN configuration dialog box.
How To Use ADO with Excel Data from Visual Basic or VBA
добавив в начале талбици строку с непустыми значениями в каждом поле, проблема решилась (пока что так кажется...).
НО! Самое интересное, что в СТАРОМ варианте ВСЕ ДАННЫЕ выгружались абсолютно корректно на компьютерах с Dual-Core, а на Pentium 4 наблюдалась описанная проблема. Каких либо иных закономерностей связанных с установленным ПО выявить не смог (версии и SP Excel'я и ОС)
Потому решение "методом тыка" настораживает.
Есть у кого-то опыт работы с подобными проблемами и пути корректного решения?
Либо какие-то другие дельные соображения?
PS: замечания о том, что книги Excel не стоит использовать как БД (и т.п. высказывания), в данной теме не будут рассматриваться как дельные.
Спасибо.
