[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セル値と同じ名前のファイルにハイパーリンクを貼る』(tette)
シート一括で、ファイル名が入力されているセルに、 セル値と同じ名称のファイルが任意のフォルダ内にあればハイパーリンクを貼る、 というようなことはできないでしょうか? 同じ名前のファイルが無い場合はリンクは貼らないようにしたいのですが。 ファイル名が入力されているセルは1列にまとまってはいません。 よろしくお願いします。 - - - - たぶん上記の相談文だけでは前進しないので。 ・セルの値がファイル名であることはどうやって判断するのか。 ・リンクしたいファイルの保存されているフォルダは固定か。 ・リンクしたいファイルの種類が不明 処理的にマクロでやるしかないのですが、セルの値を総当りで、 なおかつ、どこに保存されているファイルか分らない、種類も不 明なものを確認していく、というコードは書きようがないのでは ないかと。 私は具体的コードを書いて差し上げる時間がなさそうなので 申し訳ありませんが、上記の指摘のみとさせていただきます。 (みやほりん)(-_∂)b
- - - - 説明不足ですみません。 ファイルが保存されているフォルダは固定で1つです。 ファイルの種類はすべて画像(JPEG)ファイルです。
- - - - またファイルの名前は0000000のように7桁の数字になっています。 ファイル名以外のセルにはこれと同じ形式のセルはありません。
おやっ、↓と同じ質問に思えるのですが・・・、 [[20080707083859]]『マクロを使った画像表示について』(ミッキー) でも、HNが違いますね・・・ 同じ人?それとも違う人? (Hatch)
>ファイルの名前は0000000のように7桁の数字になっています。 表示形式を文字列に設定した状態でのリンク設定を想定しています。 フォルダは Const myPath As String = "C:\temp\" の部分を 調整してください。 Sub JPEGLINK() Const myPath As String = "C:\temp\" Const myExt As String = ".jpg" Dim myRng As Range, myFile As String Set myRng = ActiveSheet.UsedRange myFile = Dir(myPath & "*" & myExt) Do While myFile <> Empty myFile = Replace(myFile, myPath, "", , , vbTextCompare) myFile = Replace(myFile, myExt, "", , , vbTextCompare) On Error Resume Next ActiveSheet.Hyperlinks.Add _ Anchor:=myRng.Find(myFile), _ Address:=myPath & myFile & myExt, _ TextToDisplay:=myFile On Error GoTo 0 myFile = Dir() Loop Set myRng = Nothing End Sub とにかく拡張子を除いたJPEGファイル名と同じセルの値があれば 節操なくハイパーリンクを埋め込みます。 複数ある場合は考慮していません。 既存のリンクのリンク切れもチェックありません。 JPEGファイルがあって、シートに記載がない場合も無視するだけの不親切設計。 (みやほりん)(-_∂)b
[[20080707003241]]『セル値と同じ名前のファイルにハイパーリンクを貼る』(tette)
と似ている質問ですが、教えて下さい。
ファイルが保存されているフォルダは固定で1つです。
その中に、ハイパーリンクを作成するためのエクセルファイル(仮にA.xls)と、
リンク付けするファイルが保存されています。
リンク付けするファイルは、Word、Excel、パワーポイント、pdf、メモ帳の5種類です。
A.xlsの中でファイル名が記述されている列があるのですが、このファイル名と
リンク付けをしたと思っています。
一つずつ手でリンクさせるのも非効率なので、マクロで解決できないでしょうか。
よろしくお願いします。
↑tatteさんではないですよね? 似ている質問かもしれませんが、新規で記事を建てたほうがいいんじゃないかな。 もちろん、きちんと自分の名前を入れて。(kr)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.