У меня есть макрос, который будет загружать данные из нескольких рабочих книг в базу данных.Таблица будет отличаться в зависимости от того, какой тип значения / данных вставляется.У меня есть таблицы.Я могу просто вставить значение в первую таблицу, но когда дело доходит до второй таблицы, значение не вставляется, и я использую тот же код, что и первый, но с другими переменными.
Set conn = CreateObject("ADODB.Connection")
Dim connection, insertData As String
connection = "Provider=; Database= Database; Integrated Security=SSPI;"
'open connection
conn.Open connection
insertData = "INSERT INTO Table2 ([Name], [AScore], [BScore], [CScore], [DScore], [EScore], [FScore]) " & _
" VALUES ('" & _
SummWb.Sheets("Sheet 2").Cells(13, "I").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(11, "J").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(6, "J").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(7, "J").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(3, "J").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(9, "J").Value & "' , '" & _
SummWb.Sheets("Sheet 2").Cells(10, "J").Value & "')"
conn.Execute insertData
conn.close
Я попытался проверить, не является ли мой код неправильным, и я также попытался удалить таблицу и создать новую таблицу, а также использовать новую книгу для проверки кода, но результат остается тем же.Не могли бы вы помочь увидеть, что не так с моим кодом?Я использую SQL Server Management Studio.