Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel / 4 сообщений из 4, страница 1 из 1
10.05.2007, 18:36:29
    #34517352
prostoNUT
prostoNUT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel
Убилось полдня понять почему при Refreshe Excel выдает ошибку:
Initialization of the data source failed.
Run-time error '1004'
Format of the initiatliztuon string does nit conform to the OLE DB specifacation.
(для справки porject="555.xls" - например) Если делать импорт через графический интерфейс - все в порядке.
Но задача требует "программного" импорта
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
strDataSource = "C:\work\project\Reporting Time Sheets on Nuriev\DEV\worksheets\worksheets"

For Each project In arrayProject 'file name
strDataSource = strDataSource & "\" & project
strConnection = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & _
strDataSource & _
";Mode=Share Deny Write;=""Excel 8.0;HDR=Yes;"""

Set qt = Worksheets(project).QueryTables.Add(Connection:=strConnection, Destination:=Worksheets(project).Range("A1"))


With qt
.CommandType = xlCmdDefault
.CommandText = "Select * from [Week hours$]"
.Name = "Worksheets example"
.Refresh
End With

Next
PLEASE HELP!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2007, 18:57:12
    #34517400
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel
prostoNUTУбилось полдня понять почему при Refreshe Excel выдает ошибку:
Initialization of the data source failed.
Run-time error '1004'
Format of the initiatliztuon string does nit conform to the OLE DB specifacation.
Чего-чего он выдает???
А вообще, если моя телепатия не подводит, то у тебя неправильно написана строка коннекта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 10:26:25
    #34518189
prostoNUT
prostoNUT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel
White Owl prostoNUTУбилось полдня понять почему при Refreshe Excel выдает ошибку:
Initialization of the data source failed.
Run-time error '1004'
Format of the initiatliztuon string does nit conform to the OLE DB specifacation.
Чего-чего он выдает???
А вообще, если моя телепатия не подводит, то у тебя неправильно написана строка коннекта.
выдает он как раз те ошибки, что выше описаны. на connect я тоже грешу, но так мною и не было выявлено что именно там не правильно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 10:49:12
    #34518277
prostoNUT
prostoNUT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel
ааа, сорри за дурацкий пост!
Но надо было всего лишь подправить Extended Properties (забылось вставить атрибут), но строка коннекшена кристализовалась у меня час так точно, потому как было проблематично найти пример имеено подключение к OLE DB провайдеру а не ODBC и при этом без использования атрибута SQL в строке подключения
Работающий код здесь (может быть кому нить сгодится):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
'import external data table for each project
For Each project In arrayProject
strConnection = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & _
strDataSource & "\" & project & _
";Mode=Share Deny Write;Extended Properties=""Excel 8.0;HDR=Yes;"";"

Set qt = Worksheets(project).QueryTables.Add(Connection:=strConnection, Destination:=Worksheets(project).Range("A1"))


With qt
.CommandType = xlCmdDefault
.CommandText = "Select * from [Week hours$]"
.Name = project
.Refresh = False 

End With
MsgBox Worksheets(project).QueryTables( 1 ).Name
Next



Resp = MsgBox("The data will be refresh from WorkSheet", vbYesNoCancel)
If Resp <> vbNo Then
ActiveWorkbook.RefreshAll
Else
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / QueryTables (OLE DB) колизии при импорте внешних данных из Excel в Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 274ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182990]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 186ms
total:  274ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]