読み取り専用で開かれているブックをチェックしたい

前提・実現したいこと

読み取り専用のブックを開く前に、既に開かれているかチェックし、
開かれていた場合は保存せずに閉じることで下記エラーを防ぎたい。

発生している問題・エラーメッセージ

"通常のブック"が既に開いているかチェックする方法は理解しましたが、
"読み取り専用のブック"をチェックしたいため IsBookOpened = False
となってしまい、下記エラーとなります。

VBA
1実行時エラー '1004'
2同じ名前のファイルが既に開いています。

試したこと

既に開いているかチェックするには下記のコードを使いました。

VBA
1Sub FileCheck()
2
3    If (IsBookOpened(Path1) = True) Then
4        Workbooks(Book1).Close SaveChanges:=False
5    End If
6
7    Workbooks.Open Filename:=Path1, ReadOnly:=True
8
9End Sub
10
11Function IsBookOpened(a_Path1) As Boolean
12
13    On Error Resume Next
14    
15    Open a_Path1 For Append As #1
16    Close #1
17    
18    If Err.Number > 0 Then
19        IsBookOpened = True
20    Else
21        IsBookOpened = False
22    End If
23
24End Function

補足情報

OS：windows 10
ツール：Microsoft Excel 2010

何卒、宜しくお願い致します。

Y.H.

2020/03/26 04:29

タグでExcel , VBA ってのがわかるのでタイトルに冗長な情報つけなくてもいいですよ :-)

aminothan

2020/03/26 05:03

ご指摘いただきありがとうございます。

行動規範の内容に同意します

回答2件

ベストアンサー

Excel-vba Fn IsBookOpen() 指定ファイルが開いているかを確認するという記事が参考になりませんか？

投稿2020/03/26 05:38

coco_bauer

総合スコア6915

aminothan

2020/03/26 07:06

そちらの記事を参考にしたところ、"IsBookOpen = True"となり思い通りの動作となりました。ご回答いただきありがとうございました。

行動規範の内容に同意します

なんかもう有無を言わさずCloseしちゃえばいいんじゃないかという気がする。

VBA
1    Path1 = "c:\temp\readonly.xlsx"
2    bookName = Dir(Path1)
3    
4    On Error Resume Next
5    Workbooks(bookName).Close SaveChanges:=False
6    On Error GoTo 0
7    Workbooks.Open Filename:=Path1, ReadOnly:=True

ReadOnly プロパティで判断できますよ
(docs.microsoft.com)excel.workbook.readonly

投稿2020/03/26 04:30

編集2020/03/26 07:16

Y.H.

総合スコア7918

aminothan

2020/03/26 05:41

ご回答いただきありがとうございます。しかし、今回の例にReadOnlyプロパティを組み込む箇所が分かりません。 (A)Book1が開かれている⇒閉じる⇒開きなおす (B)Book1が閉じている⇒開く

Y.H.

2020/03/26 06:00 編集

>読み取り専用のブックを開く前に、既に開かれているかチェックし、 >開かれていた場合は保存せずに閉じることで下記エラーを防ぎたい。これが何をやりたいのかよくわからないのですが・・・下記エラーを防ぐロジックじゃなくて、本当にやりたい事を質問に記載ください。・ファイルを開きたい。（同名のBookを開いている場合は閉じてから開く）・でも読取専用のファイルの場合は開きたくない（保存せずに閉じたい）ということですか？それとも・ファイルを読取専用で開きたい。（同名のBookを開いている場合は閉じてから開く）

aminothan

2020/03/26 06:48

・ファイルを読取専用で開きたい。（同名のBookを開いている場合は閉じてから開く）に該当します。

aminothan

2020/03/26 07:38

エラーを無視する手段を知らなかったため参考になりました。ご回答いただきありがとうございました。

Y.H.

2020/03/26 07:43

>エラーを無視する手段を知らなかったえ？IsBookOpened()の処理で同じ事してますよね。

aminothan

2020/03/26 08:01

参考にしたものをコピーしたままだったのですっかり忘れていました。。。