エクセルvba

質問

エクセルvbaなのですが

Sub test()
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)

'コード・・・

Set xlApp = Nothing
Set xlBook = Nothing
End Sub

これだと
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)
の部分で、エラーになります。

実行時エラー1004です。

自身ファイルをオブジェクトに格納して操作したいのですがどうすればいいでしょうか？

回答No.1

K Kazz（@JazzCorp） · ベストアンサー

自分は、既にオープンされているわけね？
ThisWorkbook、で十分では？？
あえてやるなら、Set xBook = ThisWorkbook

お礼

どうもありがとうございました。