如何將excel中的多張工作表導入sql數據庫？網？

嘗試

Dim xlsConn為String，xlscmd為String，SourcePath為String = Server。MapPath & amp" ~/Excel1.xls "

Dim ExcelConnection作為新OleDb。oledb connection(" Provider = Microsoft。ACE . oledb . 12.0；數據源= ' " & amp源路徑& amp；擴展屬性= " " Excel 12.0 Xml；HDR =是””)

xlsConn = ExcelConnection。連接字符串

將連接用作新的OleDbConnection(xlsConn)

聯系。Open() : ExcelConnection。打開()

Dim SheetName As String = "Sheet2 "

xls cmd = " SELECT[columnA]FROM[" & amp；工作表名稱和名稱。"$]"

Dim命令作為新OleDbCommand(xlscmd，連接)

將DbDataReader創建到數據工作表

將dr用作OleDbDataReader =命令。ExecuteReader()

dim cmd As String = " truncate table " & amp；表名

SqlCmd = New OleDbCommand(cmd，SqlConn)

SqlCmd。ExecuteNonQuery()

批量復制到SQL Server

Dim sqlConnectionString作為字符串

sqlConnectionString = " Data Source = " & amp；data source & amp；";初始目錄= " & ampSqlConn。數據庫& amp";Persist安全信息= True用戶ID = sa密碼= "

將bulkCopy用作新的SqlBulkCopy(sqlConnectionString)

批量拷貝。destination tableName = " tableName "

批量拷貝。寫服務器

返回True

結束使用

將ex作為異常捕獲

返回False

結束嘗試

類似這樣的。。。