Excel достал. Что то не так, а вот что?

[Vini]

Привет, Форумчане!
Ну вот дошел до той точки когда все не работает.

Код: Выделить всё

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim sql As String

Private Sub Workbook_Open()
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = M:\02.xls;Extended Properties = Excel 8.0;"
Conn.Open (ConnStr)
    sql = "Select DCN from [Sheet2$]"
    rs.Open sql, ConnStr
   

Conn.Close
End Sub

Все ссылки расставил.
Если убрать sql запрос и rs , и прогнать соединение, то ошибок не возникает.
Значит ошибка в sql, а где?
Помогите, пожалуйста.!

[GSerg]

Мож таки не тот connection string?
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

То есть все extended в кавычках...

[Vini]

Да, но если не тот COnnection String то вот тут уже бы была ошибка
Conn.Open (ConnStr)

А ее нет, она возникает когда SQL запрос идет.

[GSerg]

Если не указать HDR=Yes в соединении, то как он найдёт столбец DCN?

[Vini]

Если не указать HDR=Yes в соединении, то как он найдёт столбец DCN?

Спасибо, ваша строчка заработала, спасибо за науку.
Вот как еще мне удалось подключиться и без всяких вопросов заработало

Код: Выделить всё

ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=excel;Initial Catalog=E:\db\01"
Conn.Open (ConnStr)


[Vini]

Продолжает доставать.
Теперь проблема:
В столбце нет заголовка, (ну и ф.г с ним), пытаюсь проверить или все ОК.
select sum(f2) from [sheet1$]

а он сволоч начинает сумировать со второй строки.
А если всунуть заголовок столбца и попросить
select sum(summa) from [sheet1$]

Тогда все в полном ажуре.

Что я не так делаю?
Помогитеееееееееееееееее!!!!

[GSerg]

Мож в строке указать HDR=No?

[Gloom]

Продолжает доставать.
Теперь проблема:
В столбце нет заголовка, (ну и ф.г с ним), пытаюсь проверить или все ОК.
select sum(f2) from [sheet1$]

а он сволоч начинает сумировать со второй строки.
А если всунуть заголовок столбца и попросить
select sum(summa) from [sheet1$]

Тогда все в полном ажуре.

Что я не так делаю?
Помогитеееееееееееееееее!!!!

Используй джетовский провайдер oledb:
BUG: Excel ODBC Driver Disregards the FirstRowHasNames or Header Setting

[Vini]

Спасибо, вот что помогло.
http://support.microsoft.com/default.as ... us;Q295646

Но теперь все нормально, данные сортирую на втором листе, но вот другая беда подкралась.

На Sheet1 есть поле Charges в виде General(Основной), и поле User
Пытаюсь сгруппировать по User

Код: Выделить всё

    sql = "Insert INTO [Excel 8.0;Database=" & App.Path & _
    "\" & reportName & "].[Sheet2$] (user, Charges) Select User, sum(Charges) FROM [Sheet1$] group by User order by User "
    Conn.Execute (sql)


И все бы ничего, только данные на Sheet2 приходят как текст. Я попробовал перед началом ввода данных
Перевести столбец в NumberFormat = "0.00"
Все едино, как побороть то этот недуг?
Спасибо.

[GSerg]

IMEX=0?

[Vini]

IMEX=0?

Спасибо, огромное. Только скажите, а где об этом звере хорошо по русски написано?

[GSerg]

Ну не то чтобы по-русски, но www.connectionstrings.com

[Vini]

Я с этого сайта и брал строку, а вот не засек что мелким шрифтом написано. Спасибо.