0

这里我试图将 excel 工作表数据保存到数据集中。帮助我摆脱这个错误 Microsoft Jet 数据库引擎找不到对象“Sheet1$”。确保对象存在并且正确拼写其名称和路径名。Dim ds As System.Data.DataSet Dim RecTab As Data.DataTable Dim RecTab1 As Data.DataTable Dim Rectab2 As Data.DataTable Dim ds1 As System.Data.DataSet Dim HFCell As String Dim HTCell As String Dim FilePath As String

    HFCell = "A1"
    HTCell = "B1"
    m_FileName = "Data.xls"
    FilePath = Server.MapPath("..\TankGauge\Data_Mgr") & "\" & m_FileName
    Try
        Dim connectionString As String = ""
        Try
            connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + FilePath + ";" + "Extended Properties=Excel 8.0;"
            MyConnection = New OleDbConnection(connectionString)
            MyConnection.Open()

            dataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", MyConnection)

            ds = New Data.DataSet
            dataAdapter.Fill(ds)
            RecTab = ds.Tables(0)
            MyConnection.Close()
4

2 回答 2

0

在您的 Excel 工作簿中，是否有一个名为 Sheet1 的工作表？如果没有，请重命名工作表或更改代码以调出要从中获取数据的工作表。

于 2013-05-29T16:30:36.710 回答
0

我相信您使用的数据库驱动程序将无法正常工作。尝试改变：

connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + FilePath + ";" + "Extended Properties=Excel 8.0;"

至：

connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" + "Data Source=" + FilePath + ";" + "Extended Properties=Excel 8.0;"
于 2013-05-30T16:01:14.737 回答