ExcelVBA、Bookを開かずデータを取得する方法

Question

いつもお世話になっています。

今回は
「ExcelVBAで、Excelファイルを開かずにデータを取得する方法」
についてご質問いたします。

###前提条件・要望
0. 対象のExcelBookを開かずに、VBAでセルのデータ・存在するシート名一覧などを取得できる
0. 対象Bookはネットワーク上に置いてあり、複数のユーザが同時に開く・編集する可能性がある
0. 自他問わず対象Bookを開いていても、VBAから取得できるようにしたい

###現在の状況
Bookを開かずに値を取得する事は成功しました。
しかしVBAプログラムを持つExcelファイルを作業後閉じて再度開くと、
開かなかったはずの対象Bookが一緒に開かれてしまうという症状が出てしまいました。
オブジェクトの解放も問題なくできているはずですし、
そもそもExcelファイルが開いたときに何かをするマクロも入れていません。

###ソースコード
https://teratail.com/questions/37322
こちらの質問を参考に、Excel.Applicationを用いたプログラムを作成しました。
以下がソースコードになります。

'ネットワーク上の自分の親の親フォルダをカレントする
With CreateObject("WScript.Shell")
.CurrentDirectory = ThisWorkbook.Path & "...."
End With

'ファイル読み込みダイアログを開く。選択されたファイルのフルパスを取得する
fn = Application.GetOpenFilename("ファイルフルパステキスト,*.xls?")


'正常にファイルが選択されファイルパスを取得できていなければエラーフラグを立てる
If fn = "False" Then
    ErroeFlag = True
    
'そうでなければ、選択ファイルをCreateObjectで生成する
Else
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open fileName:=fn, ReadOnly:=True
    Set tergetBook = xlApp.Workbooks(Dir(fn))
End If

'エラーﾌﾗｸﾞが立っていなければ、取得作業を行う
If ErroeFlag = False Then

'取得作業

End If

'オブジェクトを解放する
Set xlApp = Nothing

Answer 1

Workbookオブジェクトを開いたら、閉じなければいけません。
大雑把な流れとして、

Dim xlApp as Excel.Application
Dim xlWB as Excel.Workbook

Set xlApp = CreateObject("Excel.Application")

Set xlWB = xlApp.Workbooks.Open([ファイルのパスを指定])

' ・・・・・・開いたブックに対する処理 ・・・・・・・

' Excel ワークブックオブジェクトを閉じて解放
xlWB.Close False  ' 上書き保存せずに閉じる場合
Set xlWB = Nothing

' Excel アプリケーションオブジェクトを閉じて解放
xlApp.quit
Set xlApp = Nothing

こんな流れになります。
なお、この処理自体がExcel VBAで書いている場合、xlApp は省略可能です。
（すでに起動されているExcel上での処理となるため）

VBAを動かすExcelとは別にExcelアプリケーションを起動させる場合は上記のコード例のような書き方となります。

Comments

[kaz.Suenaga]

蛇足ですのでコメントで入れますが、「ブックを開かずに値を取得する」のは原理的に不可能です。
やれることは、「自動的に（バックグラウンドで）ワークブックを開き、処理後閉じる」です。

そのため、質問で上げられているコードでも実際にやっていることは、

- （アプリケーションとしての）Excelを起動する
- 起動したExcelでWorkbookを開く
- 処理
- アプリケーションを閉じる

という処理を書いていますね。

[退会済みユーザー]

ありがとうございます。
修正をして、正常に動かすことができました。

「ファイルを開かずに中身を見ることはできない」
「ファイルの2重展開を避けるためにアプリケーションで開く」
この2つをしっかり覚えていこうと思います。

[退会済みユーザー]

追加報告をいたします。

回答では「xlAppでアプリケーションから開くのは省略可能」とありましたが、
省略して記述すると、ファイルの2重展開ができないことが分かりました。
省略せずに記述すると、既に開いているファイルを対象に取っても2重展開のマクロエラーが出ず、正常に動作しました。

おそらく
・同一アプリケーションで同名ファイルを開こうとすると、2重展開の判定がされる
・アプリケーションを別に定義（開く？）してアプリケーションごとにファイルを開くと、2重展開の判定がされない
のだと思いますが、あくまで想像なので確信が持てません。
この考え方で合っているでしょうか？

[kaz.Suenaga]

VBAでやれることは、基本的に手作業でやった際の動作と同じです。

Excelを（ファイルをダブルクリックではなく）スタートメニューから1つ起動した際、ファイルを開くで同一ファイルは開けませんよね。
（既に開いています、が出ますよね）

その「Excel」が xlApp に当たります。
省略した場合は今扱っている（VBAを動かした）Excel上で操作する、となります。

そのためVBA内で扱うファイルのうち、すでにExcelで開いている可能性があるものがあるのであれば、たしかにxlApp を省略すると2重起動のアラートが出ると思います。

ただ、Excelの多重起動はそもそもバッティングした時の動作等の危険度は高いので、なるべくそのような状態が起こらないロジックを組む方が適切です。
例えば、既に開かれている場合で

- そのブックは読み取りしかしないのであれば改めて開かない
- 読み書きがあり得るのであれば、「警告を表示」「1度閉じて開きなおす」「処理のキャンセル」などの処理を加える

といった仕様を考えた方がいいかと思います。

[退会済みユーザー]

ありがとうございます。
多重起動は作成依頼者様からの要望だったので、バッティングの危険性も踏まえて説得してみようと思います。