从 Excel 文件创建表格

Question

我正在尝试根据用户上传的 Excel 文件在我的数据库中创建一个临时表。我不明白问题出在哪里以及为什么 Visual Studio 会抛出该异常。

代码

  Private Sub Excel_Load(ByVal filePath As String)
    Dim myConn As SqlConnection
    Dim myCmd As SqlCommand
    Dim sqlCmd As String

    Dim filename As String = Path.GetFileNameWithoutExtension(filePath)

    'Setting up Connection'
    myConn = New SqlConnection("Server=*****;Database=*****;User ID=*****;Password=*****;Integrated Security=SSPI;")
    myConn.Open()

    'Create table'
    sqlCmd = "CREATE TABLE XlsTemp AS (SELECT * FROM EXCELLINK [" & filename & "$])"

    'Execute Query'
    myCmd = myConn.CreateCommand()
    myCmd.CommandText = sqlCmd
    myCmd.ExecuteNonQuery()
    myConn.Close()
End Sub

例外

SqlException：对象名称“EXCELLINK”无效。

Peu_UNRAE 是我的 Excel 文件。

Answer 1

最后我想出了这个解决方案：

  Dim MyConnection As System.Data.OleDb.OleDbConnection
  Dim fileExcelType As String

  //Get the file extension in order to use the propper provider
  If IO.Path.GetExtension(fileExcel.ToUpper) = ".XLS" Then
     fileExcelType = "Excel 8.0"
     MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fileExcel & "';Extended Properties=" & fileExcelType & ";")
  Else
     fileExcelType = "Excel 12.0"
     MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileExcel & "';Extended Properties=" & fileExcelType & ";")
  End If

  //Opening excel connection
  MyConnection.Open()

  Dim myTableName = MyConnection.GetSchema("Tables").Rows(0)("TABLE_NAME")
  Dim MyCommand As OleDbDataAdapter = New OleDbDataAdapter(String.Format("SELECT * FROM [{0}] ", myTableName), MyConnection)
  MyCommand.TableMappings.Add("Table", "    ")
  MyCommand.Fill(dt)

  //Closing connection
  MyConnection.Close()

备注：

我将// 用于 cmets，因为标准 ' 在 StackOverflow 上出现了一些问题