VBSでExcelファイルを起動するときに、VBSファイルをクリックすれば
同じファイルがどんどん重複して開きます。コードは下記の通りなのですが、
どうすれば、重複して開かないようにできるでしょうか。
重複したら開いていますとMsgbox表示し、開かせない動作にしたいのです。
ただ、開くだけのコードです。
Const File_Name = "任意のファイルパス"
Dim app
Set app = CreateObject("Excel.Application")
With app
.Visible = True
Dim wb
Set wb = .Workbooks.Open(File_Name)
End With
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
>どうすれば、重複して開かないようにできるでしょうか。
現在対象ブックが開いているかどうかをチェックして、分岐すれば良いのではないでしょうか?
以下は、チェックするだけの一例です。
(APIを利用すれば、もう少し簡単になるかも知れませんが)
ご参考にでもなれば。
Dim exl, bk
Const p = "C:\Users\fuga\hoge\piyo.xlsx" ' 対象ブックのパス
On Error Resume Next
Set exl = GetObject(, "Excel.Application")
if Err.Number = 0 then
For Each bk In exl.Workbooks
If bk.Path & "\" & bk.Name = p Then Msgbox "すでに開いています"
Next
End If
On Error Goto 0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBS Bookを閉じるコード 1 2023/02/16 17:31
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word VBA MSGBOX 内で降順表示
-
公文書のxmlファイルの開き方が...
-
ファイルが開かれているかどう...
-
jarファイル
-
binファイルを解凍したいの...
-
リンクの張り付けかたを教えて...
-
コマンドプロンプトで、指定し...
-
exeファイルの中身を見る方法は...
-
HTMLからのBATファイル実行
-
アクセス 壊れた? 「ファイ...
-
参照するファイルをワイルドカ...
-
「ブルーファイル」と「グリー...
-
exeファイルをデータ転送サービ...
-
Seasar2のdiconファイルの読み方
-
C言語---ファイルに出力したデ...
-
iPhoneでXMLファイルを開くには...
-
ディレクトリの監視と変更ファイル
-
ラッパーって何なんでしょう・...
-
APKファイルに署名をつけると複...
-
.NETアプリを作ったときの .man...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
公文書のxmlファイルの開き方が...
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
iPhoneでXMLファイルを開くには...
-
.NETアプリを作ったときの .man...
-
binファイルを解凍したいの...
-
Latexで図番号だけを「図1.1」...
-
Seasar2のdiconファイルの読み方
-
リンクの張り付けかたを教えて...
-
jarファイル
-
CSSを1ページに1枚作るのって変...
-
エクセルvbaについて
-
バッチ処理で追記コピーしたい
-
exeファイルの中身を見る方法は...
-
コマンドプロンプトで、指定し...
-
実行ファイル(.exeファイル)...
-
参照するファイルをワイルドカ...
-
C言語---ファイルに出力したデ...
-
CRCが一致する確率
-
監視ツールを入れさせられまし...
おすすめ情報