FC2ブログ

HyperLinkをマクロで作成する。

2017–05–14 (Sun) 14:57
1.検索したい言葉を含むファイルが一つの場合。

sub ハイパーリンクの作成
Const cnsDIR = "\*.*"
Const cnsTitle = "フォルダ内のファイル名一覧取得"

If VarType(vntPathName) = vbBoolean Then Exit Sub
strPathName = 検索アドレス
' フォルダの存在確認
If Dir(strPathName, vbDirectory) = "" Then
End If

strFileName = Dir(strPathName & cnsDIR, vbNormal)
' ファイルが見つからなくなるまで繰り返す
mitsu = 0

Do While strFileName <> ""
If InStr(strFileName, 検索したいファイル名) <> 0 Then

ActiveSheet.Hyperlinks.Add Anchor:=activecell, Address:=strPathName & "\" & strFileName

mitsu = 1
End If

strFileName = Dir()

end sub

運転免許証リストなどを作成するときに重宝しています。
スポンサーサイト



« VLOOKUPとINDEX&MATCH早いのはどちらか | HOME |  主任技術者 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク