tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: オブジェクト参照エラー
投稿日: 2009/02/04(Wed) 17:10
投稿者masa
解りにくくてすみません。
ボタンが押されたらExcelを起動させDB接続したのちに
そのデータをExcelに書込んでいます。
Excel起動、データ取得までは上手くいってますが書込み時にエラーになってしまいます。
宣言もしてるしどこがおかしいか検討がつきません。

Imports Microsoft.Office.InteropはclsBBBで設定しました。

Public Class FrmMain

    '//// クラス変数 ///
    Private ExcelInsert As clsBBB = New clsBBB()
    Private Excel As clsAAA = New clsAAA()

    '接続ボタンを押した時の処理
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            ' EXCELテンプレートを開く
            Excel.AAAA()

            ' 書込み
            ExcelInsert.BBBB()

    End Sub

End Class

Public Class clsAAA

    Inherits clsCCC

    Public Sub AAAA()

      xlBook = xlBooks.Open(C:\Test.xls)
      xlSheets = xlBook.Worksheets
      xlSheet = xlSheets.Item(1)

      '// Excelの表示
      xlApp.Visible = True
    End Sub

End Class

Public Class clsBBB

     Public Sub BBBB()

    Dim cls As New clsAAA

    --DB接続しデータ取得

    --書き込み
    Do While --
      cls.xlSheet.Cells(1, 1) = "aaa"
      cls.xlSheet.Cells(1, 2) = "bbb"
    Loop

     End Sub

End Class

Public Class clsCCC

    '// Excel操作
    Public xlApp As New Excel.Application
    Public xlBooks As Excel.Workbooks = xlApp.Workbooks
    Public xlBook As Excel.Workbook = Nothing
    Public xlSheets As Excel.Sheets = Nothing
    Public xlSheet As Excel.Worksheet = Nothing
    '// Excel操作

End Class

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。