Добрый день,

на VBA всего второй день, а надо написать макрос.

Задача такова: в файл xls вставляются записи в первый столбец, затем во второй и другие необходимо добавить записи из таблички БД, приравнивая по первому столбцу.
Нашел несколько примеров, но до конца сделать не получается. Подскажите, в чем неправ?

Option Compare Text
Dim WithEvents Cnn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim WithEvents QT As QueryTable
' INSERTING DATA
Private Sub ImportButt_Click()

'------------------------------------Inserting data---------------------------

i = 2
Set Cnn = New ADODB.Connection
Cnn.ConnectionString = "Provider=SQLOLEDB;Server=***,***;Trusted_Connection=Yes"
Cnn.ConnectionTimeout = 0
Cnn.CommandTimeout = 0
Cnn.Open
Application.StatusBar = "Inserting data..."
Set Rst = New ADODB.Recordset
Rst.Open "Select *** From *** where ***", Cnn, adOpenDynamic, adLockOptimistic
With Sheets("Import")
Do While Not (.Cells(i, 1) = "")
Rst.AddNew
Rst.Fields(0) = .Cells(i, 2)
Rst.Fields(1) = .Cells(i, 3)
Rst.Fields(2) = .Cells(i, 4)
Rst.Fields(3) = .Cells(i, 5)
Rst.Fields(4) = .Cells(i, 6)
Rst.Fields(5) = .Cells(i, 7)
Rst.Fields(6) = .Cells(i, 8)
i = i + 1
Loop
End With
Rst.Update
Rst.Close
Set Rst = Nothing
Cnn.Close
Set Cnn = Nothing
Application.StatusBar = False
MsgBox "Done!"
End Sub



В ответ на это, при запуске он ругается,что нет прав на запись в таблицу ***, но ведь я туда писать и не хочу совсем..Что не так?


Спасибо всем большое заранее!

Еще подскажите плиз доку для начинающих

QValD,

да, я уже потом понял,что делаю в обратную сторону.


посоветуйте простенькую доку для чтения. Чтобы не задавать тупых вопросов тут