最後の列にハイパーリンクを作成したい
いつもお世話になっております。
今回もよろしくお願いいたします。
システムからダウンロードしたエクセルのデーターをAccessにインポートしたいと思っています。
その際、最後の列にハイパーリンクのデーターを入れたいのですが
Range(Cells(i, n)).FormulaR1C1 = "s & "#" folder & "\" & s & ".pdf#""
で、構文エラーがでます。
F列の番号がc00009999の場合、C9999#\\osaka\Users\分室\【写真一覧】\写真\C9999#
と最後の列に入力したいです。よろしくお願いします。
尚、F列が空欄の場合もあります。その場合、H列の番号でハイパーリンクを作りたいです。
Sub ハイパーリンク作成()
Dim folder As String 'フォルダーのアドレス
Dim s As String 'F列の番号
Dim m As String 'H列の番号
Dim n As String '最終列
Dim t As String '最終行
Dim i As Long '2行目からｔ行目まで
'最終列取得
n = Range("A1").End(xlToRight).Column
'最終行取得
t = Range("A" & Rows.Count).End(xlUp).Row
'登録番号取得（F列）
s = ActiveSheet.Range("F" & t)
s = Replace(s, "c0000", "C")
'登録番号取得（H列）
m = ActiveSheet.Range("H" & t)
m = Replace(m, "tc0000", "tc")
'フォルダー名取得
folder = "\\osaka\Users\分室\【写真一覧】\写真"
For i = 2 To t
If Range(Cells(i, n)).Value <> "" Then
Range(Cells(i, n)).FormulaR1C1 = "s & "#" folder & "\" & s & ".pdf#""
Else
Range(Cells(i, n)).FormulaR1C1 = "m & "#" folder & "\" & m & ".pdf#""
End If
Next i
End Sub
お礼
なるほど、確かにあまり結びつかない組み合わせですが、 ありえない話ではないですね。