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.1
- 回答日時:
> デスクトップ上「test」フォルダ内にある「”I11セル”に入力された文字列の入ったフォルダ名」のフォルダを開きたかった
だと、
item = Range("I11").Value
targ= Dir("C:\Users\Desktop\test\*" & item & "*", vbDirectory)
Shell "~
とかでは。
動作確認してないですが。
> VBA初心者の為、わからない所が多く。
文字列の操作
Dir関数の動作
なんかを勉強でしょうか。
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 …
一応、見付からなかった時に、メッセージを表示する様にしています。
お探しの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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
-
4
vbaサブフォルダーをワイルドカードで取得したい
Visual Basic(VBA)
-
5
サブフォルダから部分一致のエクセルファイルを検索、選択して開くマクロについて
Excel(エクセル)
-
6
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
7
エクセルで「特定の文字を含むファイルへのリンク」or「特定の文字を含むファイルの検索の実行」
Excel(エクセル)
-
8
部分検索でフォルダ名を検索するマクロ
Excel(エクセル)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
excel VBA Dirにて検索したフォルダのパスを取得してハイパーリンクを貼る方法
Excel(エクセル)
-
11
参照するファイルをワイルドカードで指定したい
Visual Basic(VBA)
-
12
VBA、ファイル名検索から開く、部分一致
Visual Basic(VBA)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
14
ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします
Visual Basic(VBA)
-
15
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
16
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
17
VBA ディレクトリ名をワイルドカードで指定して固有のファイルを開きたい
AJAX
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
20
ファイル名から該当フォルダへ移動
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大量のフォルダへのハイパーリ...
-
【マクロ】エクセルにかいてあ...
-
フォルダのサムネイル画像
-
元のフォルダに矢印キーで帰りたい
-
excel VBA 部分一致の名前をパ...
-
C:\\Documents and Settingsが...
-
お気に入りフォルダの名前はど...
-
ディレクトリ数のみを取得する...
-
excel VBA 特定の文字列を含む...
-
マイピクチャのフォルダ!?を...
-
Explorerのフォルダウインドウ...
-
空フォルダを一挙に作成する方...
-
謎のフォルダ「ドネュメント」
-
【マクロ】フォルダを2つのモ...
-
メールフォルダの折りたたみ・...
-
エクセルのマクロについて教え...
-
バッチファイルの親フォルダを...
-
【マクロ】フォルダを3つ、PO...
-
【VBA】環境文字を含んだVBAの...
-
Window10ショートカットキーで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
【マクロ】エクセルにかいてあ...
-
C:\\Documents and Settingsが...
-
excel VBA 特定の文字列を含む...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
撮影後、SDカードに作成される...
-
excel VBA 部分一致の名前をパ...
-
【マクロ】フォルダを3つ、PO...
-
AccessVBAで特定の文字を含むフ...
-
I386フォルダの役目とは
-
Windows11でフォルダを開いた時...
-
【マクロ】フォルダを2つのモ...
-
エクセルVBAで相対パスでフォル...
-
バッチファイルの親フォルダを...
-
エクセルVBA、フォルダ選択時の...
-
お気に入りフォルダの名前はど...
-
エクスプローラ、「上へ」でフ...
-
ディレクトリ数のみを取得する...
-
謎のフォルダ「ドネュメント」
おすすめ情報
回答ありがとうございます。
すみません。上記試してみたのですが動作せずで、何かもっと試してみれるようなものあったりしますでしょうか。