excel导入access

最新推荐文章于 2024-07-12 14:09:05 发布

孤独剑_LPZ

最新推荐文章于 2024-07-12 14:09:05 发布

阅读量1.9k

点赞数

分类专栏： VB编程技术文章标签： excel string database access security command

本文链接：https://blog.csdn.net/asftrhgjhkjlkttttttt/article/details/4914132

版权

VB编程技术专栏收录该内容

41 篇文章 3 订阅

订阅专栏

'excel导入access ,引用ADO
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/dbemp.mdb;" & "Persist Security Info=False"
conn.Open
conn.Execute "Drop Table [Emptable]"
conn.Close
ExportExcelSheetToAccess "Sheet1", "D:/Test.xls", "Emptable", "D:/dbemp.mdb"
End Sub

Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]")
MsgBox "导入成功！", vbInformation, "提示"
'ReShow
End Sub