vba把excel导入mysql_VBA实用技巧-导入excel

时　间:2015-11-24 00:13:04

作　者:摘　要:导入excel

正　文:

Sub Button1_Click()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

'引用Microsoft ActiveX Data Objects 2.x Library

'引用Microsoft AD0 Ext 2.8 for DDL and Security

Dim cnn As New ADODB.Connection

Dim rs As ADODB.Recordset

Dim Cat As New ADOX.Catalog

Dim myPath As String

Dim p

Dim sh As Worksheet

Dim SQL As String

Dim F As Boolean

Dim wk As Workbook

myPath = ThisWorkbook.Path & "\"

myData = ThisWorkbook.Path & "\data.accdb"

p = Dir(myPath & "A list *.xls?")

Set wk = Workbooks.Open(ThisWorkbook.Path & "\" & p)

If Not wk Is Nothing Then

If Dir(myData) = "" Then

Cat.Create "Provide