vb如何将本地excel导入sql数据库

Imports System.Data.OleDb
Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\file.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;"";"
        Dim sqlConnectionString As String = "Data Source=your_server;Initial Catalog=your_database;Integrated Security=True"

        Using excelConnection As New OleDbConnection(excelConnectionString)
            excelConnection.Open()

            Dim sqlAdapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", excelConnection)
            Dim dataTable As New DataTable()
            sqlAdapter.Fill(dataTable)

            Using sqlConnection As New SqlConnection(sqlConnectionString)
                sqlConnection.Open()

                Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(sqlConnection)
                    bulkCopy.DestinationTableName = "YourTable"
                    For Each column As DataColumn In dataTable.Columns
                        bulkCopy.ColumnMappings.Add(column.ColumnName, column.ColumnName)
                    Next
                    bulkCopy.WriteToServer(dataTable)
                End Using
            End Using
        End Using
    End Sub
End Module