下記のマクロは以前教えて頂いたマクロを少し変更したマクロです。
マクロを実行するとマクロを設定しているブックのサブフォルダ内にある
ファイル名「前青紙.xlsx」が開きます。
以前のマクロは
Sub 前青紙を開く()
On Error Resume Next
Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査(フタット用)\前青紙.xlsx"
End Sub
となっており、サブフォルダ名を直接「\前審査(フラット用)\」と指定しておりましたが
「(フラット用)」の部分が物件により変更になりますので
変更マクロ
Sub 前青紙を開く()
On Error Resume Next
Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査*\前青紙.xlsx"
End Sub
「\前審査*\」を変更をしましたが、
マクロが実行できませんでした。
サブフォルダ先をワイルドカードで
「\前審査*\」として
マクロを実行できる方法を教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>「(フラット用)」の部分が物件により変更になりますので
ThisWorkbook.Path に該当するフォルダが複数ある場合はどうするのでしょう?
・・・1つだけという事で 一例です
Sub 前青紙を開く()
On Error Resume Next
Dim fol As String
fol = Dir(ThisWorkbook.path & "\前審査*", vbDirectory)
If fol <> "" Then
Workbooks.Open Filename:=ThisWorkbook.path & "\" & fol & "\前青紙.xlsx"
End If
End Sub
回答ありがとうございます。
該当するフォルダは一つだけでしたので
教えて頂きましたコードで上手くできました。
感謝いたします。
何時も助けて頂きましてありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/07/13 12:31
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 2 2022/11/18 15:34
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
Cellsのコードが打てません
Visual Basic(VBA)
-
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
6
VBAのことで質問です
Visual Basic(VBA)
-
7
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
8
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
9
エクセルのマクロ
Excel(エクセル)
-
10
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
Visual Basic(VBA)
-
11
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
12
VBAのコードを教えてください
Visual Basic(VBA)
-
13
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
14
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Visual Basic(VBA)
-
15
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Visual Basic(VBA)
-
16
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
17
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
18
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
19
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
20
Excelの別ブックの表を1つにまとめたい Book1(会社A)とBook2(会社B)があります。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
組んだマクロをメールで送る
-
VBAにて別ワークブック上の実行...
-
ExcelVBAでPDFを閉じるソース
-
【Excel】複数のマクロをまとめ...
-
TeraTermマクロの文字列結合
-
Sub ***( ) と Private Sub ***...
-
バッチファイルでEXCELを起動し...
-
Excelで特定の文字のところで自...
-
Teraterm 1行空白を入れたい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報