|
макрос в Excel, использующий dbf
|
|||
---|---|---|---|
#18+
В Excel, через макрос, выполняется заполнение ячеек данными из файла dbf , формируемого досовской программой, с кодовой страницей 866. Доступ к dbf организован в макросе через OLEDB Dim rs As Object Dim conn As Object Set rs = CreateObject("ADODB.Recordset") Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.Path + ";Extended Properties=DBASE III" conn.Open rs.Open "select nomp, nazn, s, sp, dat from platt.dbf", conn С какого-то момента данные в ячейках перестали отображаться адекватно (т.е. «абракадабра» - так бывает, когда неверная кодовая страница). Сделала нулевую кодовую страницу (вместо 866)– результат тот же. При этом на другом компе все нормально. Т.е. что-то произошло на уровне системы (реестра). Можете что-нибудь посоветовать, кроме переустановки системы? ... |
|||
:
Нравится:
Не нравится:
|
|||
02.06.2009, 21:52 |
|
макрос в Excel, использующий dbf
|
|||
---|---|---|---|
#18+
Marina_pn, добрый день Помогло следующее - установка MS Visual FoxPro ODBC DRIVER изменил строку .ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" + ThisWorkbook.Path + ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO" ... |
|||
:
Нравится:
Не нравится:
|
|||
17.07.2009, 21:26 |
|
|
start [/forum/topic.php?fid=41&msg=36022261&tid=1586222]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
25ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
others: | 12ms |
total: | 119ms |
0 / 0 |