タイトル : Re^3: オブジェクト参照エラー 投稿日 : 2009/02/04(Wed) 18:08 投稿者 : Abyss
YuOさんの仰るとおり、両方のInstanceは 全く別のものです。であれば、繋ぎの紐が 必要ですね。Classの設計の問題はありますが、 現状のコードで処理したいのであれば、以下の ような方法も考えられます。 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.TargetClass = Excel ' 書込み ExcelInsert.BBBB() End Class : : Public Class clsBBB Public TargetClass As clsAAA Public Sub BBBB() '--DB接続しデータ取得 '--書き込み Do While -- TargetClass.xlSheet.Cells(1, 1) = "aaa" TargetClass.xlSheet.Cells(1, 2) = "bbb" Loop End Sub End Class |