vba 批量导入mysql_VBA将Excel数据导入到数据库 | 学步园

1、如果Excel中的数据是标志格式的，即标题栏+数据这种类型，那么导入数据库将非常方便，示例代码如下：

'函数：导入

Private Function F_K_Import() As Boolean

Dim cnCurrent As ADODB.Connection

Dim rcdTemp As ADODB.Recordset

Dim rcdChecker As ADODB.Recordset

Dim strSql As String

Dim ExcelApp

Dim ExcelWorkBook

Dim strWorkSheetName As String

On Error GoTo ErrHandle

F_K_Import= False

DoCmd.SetWarnings False

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = False

Set ExcelWorkBook = ExcelApp.WorkBooks.Open(Trim(Me.txt_Import.Value))

strWorkSheetName = ExcelWorkBook.WorkSheets(1).Name

ExcelWorkBook.Close

Set ExcelWorkBook = Nothing

Set ExcelApp = Nothing

strSql = "SELECT * INTO [T_K] FROM [Excel 5.0;HDR=YES;IMEX=2;DATABASE=