別のワークブックに新しいテンプレートシート

Question

以下のコードでは、ユーザーフォームのボタンがテンプレートに基づいて新しいシートを作成し、名前を変更しています。とにかくこれを行うが、新しいシートを別のワークブックで作成しても、まだハイパーリンクでアクセスしていますか？何かが助けます。ありがとう。

Dim i as byte, sh as worksheet 
for i=1 to 1 
Sheets("TEMPLATE").Copy after:=sheets("TEMPLATE") 
set sh = activeSheet 
' Do whatever you have to do with the new sheet 
sh.Name = AddEmployeeUF.txtFirstname.Text + AddEmployeeUF.txtMiddleinitial.Text + AddEmployeeUF.txtLastname.Text + "Template" 
ws.Hyperlinks.Add Anchor:=ws.Range("F" & LastRow), Address:="", SubAddress:=sh.Name & "!A1", TextToDisplay:="View" 
Next I 

Answer 1

これはあなたが必要とするすべてのものにする必要があります。また、私は無駄なループを取り除きました。

Dim newWB As Workbook 
    Dim thisWB As Workbook 
    Set thisWB = ThisWorkbook 
    Set newWB = GetOrCreateWB("WBName", "C:\Users\...") '<--| Opening WB you want 
    thisWB.Sheets("Template").Copy after:=newWB.Sheets(1) 
    With ActiveSheet '<--| the just pasted worksheet becomes the active one 
    .Name = AddEmployeeUF.txtFirstname.Text + AddEmployeeUF.txtMiddleinitial.Text + AddEmployeeUF.txtLastname.Text + "Template" '<--| Name it 
    ws.Hyperlinks.Add Anchor:=ws.Range("F" & LastRow), Address:=newWB.Path & "\" & newWB.Name, SubAddress:="'" & .Name & "'!A1", TextToDisplay:="View" '<--| hyperlink to new sheet 

Answer 2

Dim i as byte, sh as worksheet 
Dim newWB as Workbook 
Dim thisWB as Workbook 
Set thisWB = ThisWorkbook 
set newWB = Application.Workbooks.Add 
for i=1 to 1 
    thisWB.Sheets("TEMPLATE").Copy after:=newWB.Sheets("Sheet1") 
    set sh = newWB.Sheets("TEMPLATE") 
    ' Do whatever you have to do with the new sheet 
    sh.Name = AddEmployeeUF.txtFirstname.Text + _ 
       AddEmployeeUF.txtMiddleinitial.Text + _ 
       AddEmployeeUF.txtLastname.Text + "Template" 
    ws.Hyperlinks.Add Anchor:=ws.Range("F" & LastRow), Address:="", _ 
             SubAddress:=sh.Name & "!A1", _ 
             TextToDisplay:="View" 
Next I