从 Excel 导入数据 - VB.NET

Question

我正在尝试使用 VB.net 从 Excel 电子表格导入一些数据，

我的步骤是：

首先用户将文件上传到服务器，

然后我想从服务器读取文件，然后填充网格视图，

这就是我所拥有的：

Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        Dim filepath As String = ""
        If FileUpload1.HasFile Then
            Try
                If (FileUpload1.PostedFile.ContentType = "application/vnd.ms-excel") Then
                    Dim filename As String = Path.GetFileName(FileUpload1.FileName)
                    'Session("userid") & "-" & Date.Now()
                    filepath = "\excel\" & Session("userid") & "_" & Now.Date().ToString("Mdy") & "_" & filename
                    FileUpload1.SaveAs(Server.MapPath("~/") & filepath)
                    ReadExcel(filepath)

                Else
                    StatusLabel.Text = "Only Excel file types are accepted"
                End If

            Catch ex As Exception
                StatusLabel.Text = "Upload status: The file could not be uploaded. The following error occured: " + ex.Message
            End Try

        End If
    End Sub
    Sub ReadExcel(ByVal filepath As String)
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim DtSet As System.Data.DataSet
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
        MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & filepath & "';Extended Properties=Excel 8.0;")
        MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [NSTS]", MyConnection)
        MyCommand.TableMappings.Add("Table", "Net-informations.com")
        DtSet = New System.Data.DataSet
        MyCommand.Fill(DtSet)
        gwResults.DataSource = DtSet.Tables(0)
        MyConnection.Close()
    End Sub

错误发生在“MyConnection”上，它尝试查看“C:/”而不是服务器：

'c:\excel\3_41911_Sample.xls' 不是有效路径。确保路径名拼写正确并且您已连接到文件所在的服务器。

我如何设置 OleDb 连接以从服务器获取源文件？

谢谢你！

---

没关系，我明白了

，我添加了： Server.MapPath("~/") &文件路径，现在它可以工作了。但是，现在我收到错误： Microsoft Jet 数据库引擎找不到对象“NSTS”。确保该对象存在，并且其名称和路径名称拼写正确。

NSTS 是我的第一个电子表格的名称。我做错了什么？ :(

---

我错过了一个 Studip 美元符号 :) 啊，现在一切正常了！

"select * from [NSTS$]"

谢谢！

Answer 1

在查询中的工作表名称中使用 $：

"select * from [NSTS$]"

Answer 2

您的 c:\excel\ 路径不是本地路径，但它是运行应用程序的本地路径。

如果您从本地计算机运行此应用程序，为了映射 c:\excel\ 路径，您应该将服务器驱动器映射到 Windows 并使用该驱动器名称或使用 \\excel 作为路径值。

Answer 3

首先 - 您是否确切知道文件保存在服务器路径上的位置？我首先对路径进行硬编码，以确保没有其他奇怪的事情发生。

看看您的代码，您正在此处保存文件...

FileUpload1.SaveAs(Server.MapPath("~/") & filepath)

那么...首先，您确定它保存在那里吗？如果是这样，那么看看您正在通过此调用读取文件的位置...

                ReadExcel(filepath)

您尝试过 -

ReadExcel(Server.MapPath("~/") & filepath) 吗？