No.2
- 回答日時:
No.1です。
カレントフォルダをオプションで指定されているのですね。
それでは、
FileName = Dir("*.xls")
の行を、
FileName = Dir(ThisWorkbook.Path & "\*.xls")
に変更してみてください。
オプションで指定したカレントフォルダ外のフォルダにファイルを移して実行すると、以下のエラーが☆の行に出てしまいます。
実行時エラー1004
XXXXファイル(ファイルAと同じフォルダ内のファイル)が見つかりません。ファイル名およびファイル保存場所が正しいかどうか確認して下さい。
オプションでカレントフォルダを指定しなければうまくはいきますが。オプションで指定していてもうまくいく方法ありませんでしょうか?
Sub OpneAllBook()
Dim FileName As String
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean
FileName = Dir(ThisWorkbook.Path & "\*.xls")
Do While FileName <> ""
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName) ⇒☆
End If
FileName = Dir()
Loop
End Sub
No.1
- 回答日時:
ちょうど先日そのマクロを作ったところでした。
同じフォルダにある開かれてない*.xlsファイルを全て開きます。
Sub OpenAllBooks()
Dim FileName As String
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean
FileName = Dir("*.xls")
Do While FileName <> ""
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName)
End If
FileName = Dir()
Loop
End Sub
ファイルAからこの「OpenAllBooks」マクロを実行したときに、ファイルAが現在あるフォルダ(例えばフォルダX)の中にある全てのファイルを開きたいのです。また、ファイルAをフォルダXからフォルダY内に移した場合はフォルダY内のファイルA以外のファイルを開くようにしたいのです。
回答頂いたやり方ですと、ファイルAがどのフォルダにあるかは関係なく「ツール>オプション>カレントフォルダ」で設定したフォルダ内のファイルが開かれてしまいます。
何か解決法はありますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Winmerge ファイルの中身は同じ...
-
同期センターのマークが出てま...
-
ファイルの先頭行を全て削除したい
-
教えてください!困ってます。
-
onedriveの中身を削除したらパ...
-
emlをtxtに変換するには?
-
ファイルの単位
-
バッチファイルで変数の中身を...
-
iMovieとgifファイルの読み込み...
-
リンクステーションの不具合
-
パワーポイントで毎回TMPフ...
-
信頼済みサイトの追加(レジス...
-
コマンドプロンプトによるフォ...
-
Windows10 フォルダ内の自動並...
-
ショートカットアイコンと、元...
-
BAKファイルを非表示にする方法
-
teratrermを使ったデータの送信...
-
複数のファイルのプロパティの...
-
cshでのリンクファイルの存在確...
-
クラリスワークスのファイルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Winmerge ファイルの中身は同じ...
-
onedriveの中身を削除したらパ...
-
同期センターのマークが出てま...
-
ファイルの先頭行を全て削除したい
-
バッチファイルで変数の中身を...
-
Windows10 フォルダ内の自動並...
-
クラリスワークスのファイルを...
-
教えてください!困ってます。
-
コマンドプロンプトによるフォ...
-
emlをtxtに変換するには?
-
ファイルの単位
-
macのdmgファイル(動画)をMP4...
-
office365 ファイルを削除したい
-
Excellにて→ファイルエラー:デ...
-
mrl→midファイルへ
-
大切なファイルが何故かウイル...
-
Windows11 でのファイル削除
-
exeファイルを無効化するには
-
VScodeでjarファイルを開く方法
-
フォルダ内の一覧を印刷するには?
おすすめ情報