セル内に「CC569545」や「AA895266」といった文字列があります。
この文字列を含む「ASD_CC569545_M45.pdf」や「EDR_AA895266_kkkk.pdf」といった ファイルが、「C:\Temp」というフォルダにあるのですが、
このファイルに「自動的」 にリンクを張る方法はあるのでしょうか?
例えば、セルAに「CC569545」と入力すると、「C:\Temp」内の複数のファイルの中の 「CC569545」という文字列を含む「ASD_CC569545_M45.pdf」に自動的にリンクが設定されて、
これをクリックすると「ASD_CC569545_M45.pdf」が開くような方法を探しています。
フォルダ内には「CC569545」の文字列を含むファイルが複数存在することも考えられます。
もしくは、セルの「CC569545」をクリックすると、ウィンドウズの検索が実行されて、検索結果として「C:\Temp」の「CC569545」を含むファイルが検索結果として表示されるといった方法はあるでしょうか?
面倒な件ではありますが、ご教授頂ければ幸いです。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
VBAの力が必要になりますが、大丈夫でしょうか。
http://oshiete1.goo.ne.jp/qa4478102.html
の方のスレのコードを利用させていただきました。
新しいブックを作成して 検索したいフォルダに一度保存してください。
A列に検索する文字を入れておきます。
A
CC569545
AA895266
・・・
ツール=>マクロ=>VBエディター開いて 挿入=>標準モジュール
モジュールに以下をコピィします。
Sub macro1()
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "リンク"
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", ThisWorkbook.Path)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets(1).Rows("3:65536").ClearContents
i = 3
For j = 1 To Range("A65536").End(xlUp).Row
For Each fx In Fil
If fx.Name Like "*" & Cells(j, 1).Value & "*" Then
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = fx.Name
ThisWorkbook.Sheets(1).Cells(i, 6) = fx.Path
ThisWorkbook.Sheets(1).Cells(i, 5).FormulaR1C1 = "=HYPERLINK(RC[1],RC[-3])"
'ファイル種別
ThisWorkbook.Sheets(1).Cells(i, 3) = fx.Type
'最終更新日
ThisWorkbook.Sheets(1).Cells(i, 4) = fx.DateLastModified
i = i + 1
End If
Next
Next j
End Sub
VBエディター閉じて、マクロを実行
ツール=>マクロ macro1を実行します。
試してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- フリーソフト テキストファイル内を検索したい 1 2022/06/01 08:33
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- その他(ソフトウェア) 一太郎付属の”全件検索”ツールの不具合 3 2023/07/25 15:03
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) vbaサブフォルダーをワイルドカードで取得したい 2 2022/11/15 08:04
- WordPress(ワードプレス) WordPressのサイトにPDFをアップロードした際にGoogleなどの検索結果に出ないでほしい 1 2022/08/03 10:44
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルでPDFリンクを大量にしたいです。
Access(アクセス)
-
フォルダ名をだすには
PowerPoint(パワーポイント)
-
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
-
4
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
5
Excelで条件をつけてハイパーリンクで飛ばしたいのですが・・・
Excel(エクセル)
-
6
参照するファイルをワイルドカードで指定したい
Visual Basic(VBA)
-
7
HYPERLINK関数でファイル名が取得できなくて困ってます
Excel(エクセル)
-
8
HYPERLINKとADDRESSとMATCHの組み合わせ技
Excel(エクセル)
-
9
エクセルにクリックすると指定したPDFを開く様に
Windows 7
-
10
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
11
サブフォルダから部分一致のエクセルファイルを検索、選択して開くマクロについて
Excel(エクセル)
-
12
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
13
大量のフォルダへのハイパーリンクを簡単に貼りたい
Excel(エクセル)
-
14
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
15
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
-
16
エクセルマクロについて質問です ファイルを開くマクロをワイルドカードを使用して作成したいです
Excel(エクセル)
-
17
対象セル内(複数)が埋まったら文字を表示させたい
Excel(エクセル)
-
18
Excel VBAでリンク切れをチェックしたい。
Excel(エクセル)
-
19
ExcelVBAでフォルダへのハイパーリンクを
Excel(エクセル)
-
20
部分検索でフォルダ名を検索するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
エアコンの冷媒 R410Aの重...
-
e-taxで送信ファイルの拡張子が...
-
A4の紙に印刷されている文字を...
-
ガラケーからPCへの写真の取り込み
-
stdio.hの中身
-
クリッカブルマップ(イメージ...
-
VBS フォルダ内にあるすべての...
-
エクセルで「特定の文字を含む...
-
Access2016のExcelインポートの...
-
flash (.swf) を編集したい
-
SDカードを挿してるのに挿入し...
-
GIMP separate+プラグイン クラ...
-
リストビューで選択行の背景を...
-
多数の見開き画像を自動で二分割
-
スマホでtxtファイルを編集する...
-
celeron550 と AMD TK-57
-
CSVを取り込んで、画像を表示す...
-
指定したフォルダーを開いてフ...
-
microsdカード保存物をPCで見る...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
e-taxで送信ファイルの拡張子が...
-
エクセルで「特定の文字を含む...
-
スマホでtxtファイルを編集する...
-
複数のブックを新しいブックのS...
-
A4の紙に印刷されている文字を...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
ビデオファイルのプロパティの...
-
エアコンの冷媒 R410Aの重...
-
ガラケーからPCへの写真の取り込み
-
拡張子「.IDJ」を、windo...
-
Fortniteのクラッシュについて
-
2枚、マイクロSDカードを入...
-
VBA:カウンターの i の値が開放...
-
ファイル数と合計サイズの取得方法
-
stdio.hの中身
-
TextBoxにフォーカスを与えると...
-
PC内で速度を遅くした音源をCD...
-
リストビューの選択状態を取得...
-
GIMP separate+プラグイン クラ...
おすすめ情報