0

ここでは、Excel シート データをデータ セットに保持しようとしています。このエラーから抜け出すのを手伝ってください。オブジェクトが存在すること、およびその名前とパス名のつづりが正しいことを確認してください。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

お使いのデータベース ドライバは動作しないと思います。変更してみてください:

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 に答える
0

Excel ブックに、Sheet1 という名前のワークシートがありますか? そうでない場合は、シートの名前を変更するか、コードを変更して、データを取得するシートを呼び出します。

于 2013-05-29T16:30:36.710 に答える