VB.NETでエクセルを操作するときに出るエラーの解決方法をおしえてください。 (ID:114531)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB.NETで作ったアプリケーションをOS９８のパソコンにインストールして動作させたのですがエクセルの1つのセルに文字を入れるところでエラーが出てしまします。
「System.Runtime.InteropServices.COMEException(0x80020008)変数の種類が不良です。」と出てしまいます。開発環境では何の問題もなく動きます。
FrameWork1.1もいれてありますし、データベース操作をしているのでMSデータアクセスコンポーネントも入れてあります。
プログラムです。参考にしてください。
☆印まではちゃんと動作するみたいです。

Private Sub BtnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnd.Click
        'エクセル起動
        Dim oExcel As Object
        Dim oBook As Object
        Try
            oExcel = CreateObject("Excel.Application")
            oExcel.Visible = True

oExcel.workbooks.Open(Application.StartupPath & "\ガスメータチェック一覧.xls") 'アプリケーションの現在地の絶対パス

oExcel.UserControl = True 'これを設定しておけば勝手に終了しない。

oExcel.worksheets("Sheet1").Range("B5:G100").Select()
            ☆oExcel.Selection.ClearContents()
            'データグリッド表示()
            Call DbgDisp()
            Dbg_Master.Visible = False
            Dim i, cnt As Long
            '該当レコード数探索のクラス
            'cnt = oDB.RecCount
            cnt = Dbg_Master.VisibleRowCount
            Dim j As Long
            'データグリッドのデータをエクセルに書き込む
            For i = 0 To cnt - 2
                j = i + 5
                oExcel.Cells(j, 2).Value = i + 1
                oExcel.Cells(j, 3).Value = Dbg_Master.Item(i, 5)
                oExcel.Cells(j, 4).Value = Dbg_Master.Item(i, 1)
                oExcel.Cells(j, 5).Value = Dbg_Master.Item(i, 2)
                oExcel.Cells(j, 6).Value = Dbg_Master.Item(i, 3)
                oExcel.Cells(j, 7).Value = Dbg_Master.Item(i, 4)
            Next i
            oExcel.Cells(5, 2).Activate()

Catch oExcept As Exception
            '例外が発生した時の処理
            MsgBox(oExcept.ToString, MsgBoxStyle.OKOnly)

Finally
            oExcel = Nothing
            oBook = Nothing
        End Try

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る