Sub 将工作表数据自动导入ACCESS数据库()
Dim cnn As Object, SQL" & Range("A1").CurrentRegion.Address(0, 0) & "]"
cnn.Execute SQL
MsgBox "数据导入成功。", vbInformation, "数据导入"
cnn.Close
Set cnn = Nothing
End Sub
Sub 将工作表数据自动导入ACCESS数据库()
Dim cnn As Object, SQL" & Range("A1").CurrentRegion.Address(0, 0) & "]"
cnn.Execute SQL
MsgBox "数据导入成功。", vbInformation, "数据导入"
cnn.Close
Set cnn = Nothing
End Sub
本文标题：VBA 导入Access
本文链接：https://www.haomeiwen.com/subject/cbllhctx.html
网友评论