新建一个vb项目将excel导入数据库的代码

以下是将Excel文件中的数据导入到数据库的完整代码：

Private Sub btnImport_Click()

    '打开Excel文件
    Dim xlApp As Object
    Dim xlBook As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\MyExcelFile.xls")

    '获取要导入的工作表
    Dim xlSheet As Object
    Set xlSheet = xlBook.Worksheets("Sheet1")

    '打开数据库连接
    Dim conn As New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;User ID=your_user_name;Password=your_password;"

    '遍历Excel文件中的数据，并插入到数据库中
    Dim i As Integer
    For i = 2 To xlSheet.UsedRange.Rows.Count
        strSQL = "INSERT INTO your_table_name (col1, col2, col3, ...) VALUES ('" & xlSheet.Cells(i, 1).Value & "', '" & xlSheet.Cells(i, 2).Value & "', '" & xlSheet.Cells(i, 3).Value & "', ...)"
        conn.Execute strSQL
    Next i

    '关闭数据库连接
    conn.Close

    '关闭Excel文件
    xlBook.Close False
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

    '提示导入完成
    MsgBox "数据导入完成！"

End Sub

这段代码假设你要导入的Excel文件名为“C:\MyExcelFile.xls”，要导入的工作表名称为“Sheet1”，要插入的数据表名称为“your_table_name”，需要插入的列名为“col1”、“col2”、“col3”等。你需要将这些名称替换为你自己的实际情况。

另外，这里使用了ADO的方式来操作数据库，因此需要在项目中添加对“Microsoft ActiveX Data Objects x.x Library”的引用。