Nil Jay Ответов: 1

Как я могу импортировать excel в таблицы acess с помощью visual basic for application?


Я пытаюсь создать программу, которая может импортировать данные excel прямо в таблицу access

Что я уже пробовал:

Sub AccParam() 'Excel VBA to import a parameter query from Access into Excel
Dim MyDatabase As DAO.database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset

Set MyDatabase = DBEngine.OpenDatabase("C:\Users\User\Desktop\rtu\1 kurss\Datubāzes\db6\DB6.accdb") 'DB Name
Set MyQueryDef = MyDatabase.QueryDefs("qryStates") 'Query Name

Sheet1.Range("A11:T100").ClearContents 'Range to Clear
MyQueryDef.Parameters("[ChooseRegion]") = Sheet1.[f6].Value
Set MyRecordset = MyQueryDef.OpenRecordset 'Open the query
Sheet1.Range("A11").CopyFromRecordset MyRecordset

End Sub