ブックを安全確実に開く方法(Open)
マクロVBAの中で、他のブックを開く事はよくあります、
ブックが存在しているか、
既に開いてないか
これらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。
Sub Bookを開く()
Dim wb As Workbook
Dim buf As String
Dim
BookPath As String
BookPath = "C:\Book1.xls"
'ブックの存在チェック
buf =
Dir(BookPath)
If buf = "" Then
MsgBox BookPath & vbCrLf &
"は存在しません。"
Exit Sub
End If
'同名ブックのチェック
For Each wb In
Application.Workbooks
If wb.Name = buf
Then
wb.Activate'指定ブックに移動
MsgBox buf & vbCrLf &
"は既に開いています"
Exit Sub
End If
Next
'イベントを停止
Application.EnableEvents = False
'ブックを開く
Workbooks.Open
BookPath
Application.EnableEvents = True
End
Sub
要点は、
・同名ブックのチェック
この2点です。
エクセルでは、別ファイルでも、同一名称のブックは2重に開くことが出来ません。
Application.EnableEvents = False
これは、開いたブックにWorkbook_Openマクロがあった場合で、それを起動したくない場合の指定です。
同じテーマ「マクロVBAサンプル集」の記事
ブックを閉じる(Close)
新着記事NEW ・・・新着記事一覧を見る
エクセル関数辞典 AI版|エクセル入門(6月10日)
生成AIと100本ノック 28本目:シートをブックに分割|生成AI活用研究(6月8日)
生成AIと脱Excelの時代:ブラックボックスと共に進む知的変革|生成AI活用研究(2025-06-08)
生成AIと100本ノック 27本目:ハイパーリンクのURL|生成AI活用研究(6月7日)
生成AIと100本ノック 26本目:ファイル一覧作成|生成AI活用研究(6月6日)
AI時代のプログラミング再考:記述の自由と知の民主化|生成AI活用研究(2025-06-06)
Excel×スプレッドシート連携:HTTP GETで学ぶGAS API設計入門|生成AI活用研究(2025-06-04)
AI×ひらめき ― 「ネタ」が飛躍する創造の増幅プロセス|生成AI活用研究(2025-06-03)
Googleカレンダーの日本の祝日をGASとExcelで取得する ~APIキー不要、XML連携ガイド~|生成AI活用研究(2025-06-02)
究極のVBA転記プロンプト公開!あなたの事務作業を劇的に効率化|生成AI活用研究(2025-06-02)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.変数宣言のDimとデータ型|VBA入門
3.繰り返し処理(For Next)|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.RangeとCellsの使い方|VBA入門
6.FILTER関数(範囲をフィルター処理)|エクセル入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
10.マクロとは?VBAとは?VBAでできること|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- ブックを安全確実に開く方法(Open)
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。