如何使用Visual Basic将Excel导入到访问表中? [英] How can I import excel to acess tables using visual basic for application?

问题描述

我正在尝试创建一个程序，可以将excel数据直接导入到访问表中

我尝试过的事情:

I am trying to create a program that can import excel data straight into an access table

What I have tried:

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

推荐答案

这篇关于如何使用Visual Basic将Excel导入到访问表中?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！