Я пытаюсь создать SQL-запрос в Excel VBA, который будет создавать таблицу в Access на основе параметров ячейки в Excel.Обычно я мог использовать запрос на выполнение для запуска предварительно созданного запроса в базе данных, но, поскольку мне нужно изменить его на основе параметров, введенных в ячейку, мне нужно сделать это таким образом.Параметр будет только для критериев Где.В этом примере мы можем сказать, что он также выбирает фиксированные поля «Продажи» и «Продукт», а поле «Где» - «Модель».Мне также нужно будет удалить существующую таблицу с тем же именем, поскольку я столкнулся с ошибкой, что таблица уже существует.Как бы выглядел код VBA для этого?
Step 1: Delete table with the same name
Step 2: Create a new table in Access with the "Where" criteria pointing to a cell.
Sub CreateTable()
On Error GoTo SubError
Const DbLoc As String = "C:\Folder to Excel\Database1.accdb"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim xlBook As Workbook
Dim xlSheet As Worksheet
Dim recCount As Long
Dim SQL As String
Set xlBook = ActiveWorkbook
Set xlSheet = xlBook.Worksheets(1)
Set db = OpenDatabase(DbLoc)
SQL = "SELECT Sales, Product " & _
"FROM Table1 " & _
"WHERE Model IN (1, 2);"
Если бы я мог передать параметры в существующий запрос make table, я тоже был бы рад!