Код ниже (данный мне) работает, но я не понимаю значения (строка 9). Я продолжаю получать сообщения об ошибках, когда я пытаюсь добавить больше ячеек. Im новой для VBA может кто-то добавить больше полей, так что я могу лучше понять, например, как:Экспорт конкретных ячеек из Excel в MS Access
C5 в Ingredient2 C6 в Ingredient3 C7 в Ingredient L5 в Lot2 L6 в Lot3 L7 в Lot и целый букет Больше.
Значения ниже произвольны только для тестирования. Пожалуйста, лавировать посмотреть на моей электронной таблице электронной таблицы Я использую здесь: https://mega.co.nz/#!2cZ3kKAZ!BL-HJM...1tZewrw-CH-1Dc
Sub Button10_Click()
Dim strSQL As String
Set appAccess = CreateObject("Access.Application")
appAccess.Visible = False
strSQL = "INSERT INTO [Finished Batches] ([Production Date],[Lot_Number],[Ingredient1],[Amount1]) " & _
"VALUES (#" & Range("C5") & "#,'" & Range("D5") & "','" & Range("F23") & _
"'," & Range("G23") & ")"
With appAccess
.OpenCurrentDatabase ("C:\users\jay neuh\desktop\database\ss database.mdb")
.DoCmd.RunSQL strSQL, dbFailOnError
.CloseCurrentDatabase
End With
Set appAccess = Nothing
End Sub
Спасибо за любую помощь
Какое полное сообщение об ошибке вы получаете при запуске этого кода? – HansUp