エクセルにファイルを添付したい

質問

エクセルで表を作成しています。そこに他のＰＤＦ文書を貼り付けたいと思います。どのようにしたら良いでしょうか？

問題点
１　ＰＤＦファイルは画像のように貼るのではなくハイパーリンクでつけたい
２　このＰＤＦファイル自体がときどき更新されるため、ＰＤＦファイル名を～20061201.pdfのように、いつＰＤＦファイルが更新されたかわかるようにしたい
３　エクセル自体はあまり更新しない予定なので、ハイパーリンクでつけたＰＤＦファイルが常に最新のものにしたい

以上のような状態です。現在はふつうにＰＤＦファイルをハイパーリンクでつけていますが、このままではＰＤＦファイルを更新した時、すべて同じように更新しなければならないので困ってます。ファイルではなくフォルダに日付を入れることも検討したのですが、フォルダ名を変更するとハイパーリンクでは検索されなくなってしまいますよね？
お力添えお願いします。

回答No.2

Wendy02

こんばんは。

私も考えてみました。状況がはっきりしていないので、ある程度、こちらできめてしまいました。ファイル名自体は、何にしようが、そのブックの下位フォルダーのどこに入れようが別に問題はありません。そのブックの上位フォルダは、現在は探しません。

もっとも新しいpdfファイルを探すマクロです。

ファイルの日付は、ハイパーリンクのポップアップに入れました。ファイル名とは別です。

ただし、あまり、上のフォルダでファイルが多いと時間が掛かります。
ハイパーリンクは、一つしかないことを条件にして、それが書き換わります。

なお、Excel 2000 以下では、このマクロは、やってみないと分からないです。また、IE は、5.0 以上を条件としています。

'--------------------------------------------------

Sub NewHyperLinkChanging()
'ハイパーリンクを最新のファイルに書き換えるマクロ
Dim r As Range
Dim d As Date
Dim Fname As String
Dim f As Variant
Dim Disp As String
'ハイパーリンクの一つに対して、最新のファイルに書き換えられる
'日付は、ヒントに出てくる
If ActiveSheet.Hyperlinks.Count = 0 Then
　　MsgBox "Hyperlink がありませんので、終了します。": Exit Sub
Else
　 Set r = ActiveSheet.Hyperlinks(1).Range
End If

With Application.FileSearch
　 .NewSearch
　　.LookIn = ThisWorkbook.Path　'親パス
　　.SearchSubFolders = True
　　.Filename = "*.pdf"　　'なるべく頭出しを限定したほうがよい
　　'特徴のある語でもよい。例06*.pdf
　　.MatchTextExactly = False
　　.FileType = msoFileTypeAllFiles
　If .Execute() > 0 Then

　　　 For Each f In .FoundFiles
　　　 If FileDateTime(f) > d Then
　　　　 d = FileDateTime(f)
　　　　 Fname = f
　　　 End If
　　　 Next f
　　Else
　　　　MsgBox "検索条件を満たすファイルはフォルダにはありません。"
　　　　Set r = Nothing
　　　　Exit Sub
　　End If
End With

　　Disp = Mid$(Fname, InStrRev(Fname, "\") + 1)
　　With r.Hyperlinks(1)
　　　　 .Address = Fname
　　　　 .ScreenTip = Format(d, "yymmdd")
　　　　 .TextToDisplay = Disp
　　End With
　　Set r = Nothing
End Sub

'--------------------------------------------------

お礼

丁寧な回答ありがとうございます。マクロで対応するしかないのですね。未知の領域ですがためしてみたいと思います。ありがとうございました。