Excel VBA ハイパーリンクの設定方法

Question

エクセルＶＢＡにて、書類作成を自動化しようと作成しています。
別ブックへ書類作成時に書類ナンバーへハイパーリンクを施したい
のですが、うまく紐付けができません。

実現したいこと

①～③の流れを自動化したいのですが、③の部分で躓いています。
②のシート・ブック名称が転機された内容により変わり
ファイル名が一定では無いので、設定できない状態です。

ソースコード

別シートフォーマットへ転機後の流れ

'新規ブック作成
Dim wd As Workbook
Set wd = Workbooks.Add
Debug.Print (wd.Name)

'新規ワークブック Workbookへシートを移動
Workbooks("10B工事書作成").Worksheets("工事書元データ (2)").Move Before:=Workbooks(wd.Name).Worksheets("sheet1")

'工事書元データ (2)を工事名に変える
Workbooks(wd.Name).Worksheets("工事書元データ (2)").Name = Workbooks("10B工事書作成").Worksheets("工事書一覧"). _
Cells(LastRow, 1) & "_" & Workbooks(wd.Name).Worksheets("工事書元データ (2)").Range("L6").Value

'ブックの名前を変更(1番左のシート名を取得)
Dim s As String
s = Sheets(1).Name
Debug.Print (s)
Workbooks(wd.Name).SaveAs Filename:=(s)

この一連の流れの中でどのようにハイパーリンクを入れていけばいいのか、分かる方ご教授願います。

Comments

[pig_vba]

えっと、まずどれがマクロブックかも定かじゃないんでイミディエイトウィンドウに [? Thisworkbook.Name]　って入力した結果を教えてもらえますか?

あと、「ハイパーリンクの設定方法自体が分からない」のか「新規作成したブックのフルパスの入手方法が分からない」のか「両方わかるけどどこに記述すればいいのかわからない」のかで回答が変わります。どこまで試せているのかも質問に追記してください。

Answer 1

pig_vba様

返信がおそくなってしまい申し訳ありません。
投げやりな質問内容ですみませんでした。
私VBA初心者でして色々と試してみたのですが、全然上手くいかなかったので
ハイパーリンクの部分を省いてしまいました。
pig_vba様の回答の通り打ち込みましたら、私の理想の動きをしてくれたので
とても感動しました。
本当にありがとうございました。
次からは、質問内容について気を付けます。

Comments

[yuutarouw]

Dim path As String
path = **wd.path & "\" & wd.Name**
With ActiveSheet.Hyperlinks
.Add Anchor:=Workbooks("書類").Worksheets("一覧").Cells(LastRow, 1), Address:=path
End With

説明不足ですみません。
ブック名が作成書類により変わってしまう為、path＝以降の部分をどのように入力するか分かりませんでした。
回答の通り打ち込んだらイミディエイトもブック名とシート名が正確に返ってきました。

Answer 2

質問者が何も情報くれないので暫定的にですが、こんなものですかね。

Sub sample1()
    
    '新規ブック作成
    Dim wd As Workbook
    Set wd = Workbooks.Add
    Debug.Print (wd.Name)
    
    Dim form As Workbook: Set form = ThisWorkbook
    Dim ws As Worksheet: Set ws = form.Sheets(1)
    Dim entRow As Long
    entRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    
    '新規ワークブック Workbookへシートを移動
    form.Worksheets("工事書元データ (2)").Move Before:=Workbooks(wd.Name).Worksheets("sheet1")
    
    '工事書元データ (2)を工事名に変える
    Workbooks(wd.Name).Worksheets("工事書元データ (2)").Name = form.Worksheets(1). _
    Cells(entRow, 1) & "_" & Workbooks(wd.Name).Worksheets("工事書元データ (2)").Range("L6").Value
    
    'ブックの名前を変更(1番左のシート名を取得)
    Dim s As String
    s = wd.Sheets(1).Name
    Debug.Print (s)
    Workbooks(wd.Name).SaveAs Filename:=(s)
    
    Dim path As String
    path = wd.path & "\" & wd.Name
    With form.Sheets(1).Hyperlinks
        .Add Anchor:=ws.Cells(entRow, 1), Address:=path
    End With

End Sub