VBプログラマ質問スレ(6.0以前) Part45
■ このスレッドは過去ログ倉庫に格納されています
0060デフォルトの名無しさん
2005/12/18(日) 14:19:44Excelファイルをパス指定して、取得したオブジェクトを使いまわしたいのですが、
こんなことできますでしょうか?
Private Sub Form_Load()
Dim xlGet As getExcelObject
Dim xlApp2 As Excel.Workbook
Set xlGet = New getExcelObject
xlGet.xlPath = "C:\MyApp\SampleData\xls\Simple.xls"
xlApp2 = xlGet.openExcelWorkbook
End Sub
*** クラスモジュール ***
Public xlPath As String
Public Function openExcelWorkbook()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xlPath) 'Excelワークブックの読み込み
openExcelWorkbook = xlBook
End Function
*********************
■ このスレッドは過去ログ倉庫に格納されています