下記のマクロは以前教えて頂いたマクロを少し変更したマクロです。
マクロを実行するとマクロを設定しているブックのサブフォルダ内にある
ファイル名「前青紙.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)
-
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
Cellsのコードが打てません
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
VBAのことで質問です
Visual Basic(VBA)
-
6
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
7
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
8
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
9
エクセルのマクロ
Excel(エクセル)
-
10
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
Visual Basic(VBA)
-
11
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
12
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Visual Basic(VBA)
-
13
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
14
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
15
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
16
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Visual Basic(VBA)
-
17
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
18
Excelの別ブックの表を1つにまとめたい Book1(会社A)とBook2(会社B)があります。
Visual Basic(VBA)
-
19
VBA コード
Visual Basic(VBA)
-
20
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
エクセルのマクロについて教え...
-
一つのTeratermのマクロで複数...
-
Excel VBAからAccessマクロを実...
-
Excelで特定の文字のところで自...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
EXCELのVBAでRange("A1:C4")を...
-
VBAコードについて教えてくださ...
-
マクロの記録を使用したマクロ...
-
ExcelVBAでPDFを閉じるソース
-
プリプロセッサのエラー対策が...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
【EXCEL VBA】オートシェイプを...
-
オートフィルターとExcelマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
wordを起動した際に特定のペー...
-
マクロの記録を使用したマクロ...
-
ダブルクリックで貼り付けた画...
おすすめ情報