![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
excel VBA 部分一致の名前をパスに指定する方法 が知りたいです。
ワイルドカードやfilesystemobject等を使って、部分一致のフォルダ名をパスに埋め込み、フォルダの場所を開きたいです。
Dim item As String
item = Range("I11").Value
Dim key As String
key = Dir("*item*", vbDirectory)
Dim targ As String
targ = "C:\Users\Desktop\test\" & key
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
部分一致の出来るものとしてワイルドカード等調べてみたのですが、よくわからず。
上記:デスクトップ上「test」フォルダ内にある「”I11セル”に入力された文字列の入ったフォルダ名」のフォルダを開きたかった感じです。うまくいきません。
良い方法ありますでしょうか。
VBA初心者の為、わからない所が多く。
教えて頂けますと嬉しいです。
何卒宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
おはようございます。
No.1と、殆ど同じ様な感じですが、
Sub sample()
Dim xFld As String
Const xParent As String = "C:\test\"
xFld = Dir(xParent & range("I11").value & "*", vbDirectory)
If xFld <> "" Then
Shell "C:\Windows\Explorer.exe " & xParent & xFld, vbNormalFocus
else
msgbox xParent & xFld & ":該当するフォルダが見つかりません。"
End If
End Sub
プログラムの内容は、下記を参考にしています。
https://detail.chiebukuro.yahoo.co.jp/qa/questio …
一応、見付からなかった時に、メッセージを表示する様にしています。
No.1
- 回答日時:
> デスクトップ上「test」フォルダ内にある「”I11セル”に入力された文字列の入ったフォルダ名」のフォルダを開きたかった
だと、
item = Range("I11").Value
targ= Dir("C:\Users\Desktop\test\*" & item & "*", vbDirectory)
Shell "~
とかでは。
動作確認してないですが。
> VBA初心者の為、わからない所が多く。
文字列の操作
Dir関数の動作
なんかを勉強でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
-
4
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
5
vbaサブフォルダーをワイルドカードで取得したい
Visual Basic(VBA)
-
6
サブフォルダから部分一致のエクセルファイルを検索、選択して開くマクロについて
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
エクセルで「特定の文字を含むファイルへのリンク」or「特定の文字を含むファイルの検索の実行」
Excel(エクセル)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
11
VBA、ファイル名検索から開く、部分一致
Visual Basic(VBA)
-
12
excel VBA Dirにて検索したフォルダのパスを取得してハイパーリンクを貼る方法
Excel(エクセル)
-
13
部分検索でフォルダ名を検索するマクロ
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
16
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
17
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
エクセルの関数について教えて...
-
エクセルでセルに標準で入力さ...
-
Microsoft1Officeの互換ソフト...
-
シフト表をエクセルで作るとき...
-
ユーザー定義関数をアドイン登...
-
Excel VBAで全ての矢印を赤色に...
-
VBA Private Sub Worksheet_Cha...
-
2列に入っているデータを1列...
-
Excelに詳しい方! B列が「日...
-
excel2013 MonthDays 関数が使...
-
エクセルのクイックアクセスツ...
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
C:\\Documents and Settingsが...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
フォルダについて。
-
excel VBA 部分一致の名前をパ...
-
撮影後、SDカードに作成される...
-
excel VBA 特定の文字列を含む...
-
【マクロ】フォルダを2つのモ...
-
I386フォルダの役目とは
-
お気に入りに追加したのに表示...
-
お気に入りフォルダの名前はど...
-
バッチファイルの親フォルダを...
-
エクセルVBAで相対パスでフォル...
-
謎のフォルダ「ドネュメント」
-
AccessVBAで特定の文字を含むフ...
-
iPhoneでフォルダに分けして整...
-
【マクロ】フォルダを3つ、PO...
-
ファイル検索結果をフォルダパ...
-
写真や動画を保存する、これら...
おすすめ情報
回答ありがとうございます。
すみません。上記試してみたのですが動作せずで、何かもっと試してみれるようなものあったりしますでしょうか。