|
Private Sub CommandButton1_Click()
Dim sSheetName As String 'Excel表名
Dim sAccessTable As String 'Access 表名
Dim sAccessDBPath As String 'Access 数据库路径及名称
sAccessDBPath = ThisWorkbook.Path & "学生管理.mdb" ' 此处填写Access 数据库路径及名称
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
For Each wsheet In Worksheets
sSheetName = ThisWorkbook.Sheets("汇总处分表").Name
sAccessTable = 学生处分表
mysql = "Select * into " & sAccessTable & " in '" & sAccessDBPath & "' FROM [" & sSheetName & "$]"
con.Execute (mysql)
Next wsheet
End Sub
学习了,我这样编写,不知哪里错了,谢谢 |
|