Ошибка при добавлении записи с помощью ADO

[ZOD]

Передаю значения в excel так как написано тут http://support.microsoft.com/kb/247412

Создал два именованых диапазона Info (R2C3) и MyTable (R8C1:R8C7)

В Инфо добавляется только один элемент, при добавлении следующего (всего надо 3) выдается ошибка "не удается дополнить именованный диапазон". В MyTable все добавляется без ошибок. Подскажите, пожалуйста, в чем косяк.

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

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.xls;Extended Properties=""Excel 8.0;HDR=No"";"

conn.Execute "Insert into Info values ('" & User.DateNow & "')"
conn.Execute "Insert into Info values ('" & User.Firm & "')"    ' в этом месте выдает ошибку
conn.Execute "Insert into Info values ('" & User.City & "')"

'дальше работает нормально
conn.Execute "Insert into MyTable " & _
   " values ('1', '234', 'текст', '500,00', '2', '1000,00','wow!')"
   
conn.Execute "Insert into MyTable " & _
   " values ('1', '234', 'текст', '500,00', '2', '1000,00','wow!')"
   
conn.Close


[Antonariy]

Возможно надо указать название поля.

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

conn.Execute "Insert into Info (fielname) values ('" & User.Firm & "')"

Или дописать значения по умолчанию для всех полей.

[alibek]

Кроме того, в User.Firm наверняка есть кавычки.

[Antonariy]

Кавычки не должны влиять, если они не апострофы.

[alibek]

Я имел ввиду одинарные кавычки.

[ZOD]

Antonariy
Properties=""Excel 8.0;HDR=No""
навания звголовка указывать не обязательно, кроме того, еще и нечего - ячейка пустая.

alibek
кавычек нет

[burik]

Ну раз первая запись добавляется, то дело, вероятно, в User.Firm.

[ZOD]

burik
Нет. Если переставить их местами, то добавляется запись с User.Firm, а на второй все равно вылетает ошибка.

Данные я разместил не в столбик, а в строку, поэтому добавляется только 1 запись и ошибка не появляется, но все же хотелось бы узнать в чем проблема. Так, на будущее.
Возможно, проблема связана со вторым диапазоном, который находится на 5 строк ниже.

[alibek]

Попробуй в конце строки ставить точку с запятой.
Но тогда это больше похоже на глюки.

[HandKot]

вероятно проблема в том, что у вас диапозон начигнается не с 1 колонки

попробуйте диапозон "Info" определить как R2C1

[ZOD]

HandKot
Большое спасибо!
Проблема действительно была в этом.

PS Диапазон, правда, я взял R3C1:R3C6 так что м.б. ошибка была из-за одного столбца, но вряд ли.