워크 시트 및 워드 문서에 저장된 사용자 정의 폼 데이터 및 셀에 추가 할 하이퍼 링크

Question

"제출"버튼을 클릭하면 사용자 폼 데이터가 시트 3의 다음 사용 가능한 행에 저장되고 워드 문서가 생성되어 특정 폴더.

동시에, 어떻게 생성 된 단어 문서 파일 이름의 하이퍼 링크를 추가하고 하이퍼 링크를 H 열에 삽입 할 수 있습니까? 아래 코드에 추가 할 수 있습니까? 누군가 도와 드릴 수 있습니까?

SaveName = "\Desktop\DAILY REPORT" & Format(Now, "dd-mmm-yyyy") & FileExt 
If .Version <= 12 Then 
      .ActiveDocument.SaveAs SaveName 
     Else 
      .ActiveDocument.SaveAs2 SaveName 
     End If 
      .ActiveDocument.Close 
     .Quit 
     Set wdApp = Nothing  
End Sub 

Answer 1

예. 하이퍼 링크를 설정할 수 있습니다. 다음 코드는 대략적인 지침이 될 수 있습니다. 요점은 하이퍼 링크를 배치하려는 열 H의 셀에 행 번호를 제공해야한다는 것입니다. 프로 시저 중 일부만 제공했기 때문에 코드에 더 많은 오류가 있습니다. 하이퍼 링크를 프로그래밍 할 수있는 방법을 보여줍니다.

Private Sub SetHyperlink() 

    Const C As Long = 8     ' = Column H 

    Dim Wdapp As MSWord.Application 
    Dim SaveName As String 
    Dim Ws As Worksheet 
    Dim Rng As Range 
    Dim R As Long 

    Set Ws = ActiveSheet    ' change as required 
    R = Ws.Cells(Ws.Rows.Count, "H").End(xlUp).Row + 1 
    ' the path of SaveName is incomplete: 
    ' must start with drive (like C:\Users\[Username]\Desktop) 
    ' or Environ("USERPROFILE") & "\Desktop 
    SaveName = "\Desktop\DAILY REPORT" & Format(Now, "dd-mmm-yyyy") & FileExt 

    Set Rng = Ws.Cells(R, C) 
    Ws.Hyperlinks.Add Anchor:=Rng, _ 
         Address:=SaveName, _ 
         TextToDisplay:="Choose your text", _ 
         ScreenTip:="Click to open the file" 

    With Wdapp 
     If .Version <= 12 Then 
      .ActiveDocument.SaveAs SaveName 
     Else 
      .ActiveDocument.SaveAs2 SaveName 
     End If 

     .ActiveDocument.Close 
     .Quit 
    End With 

    Set Wdapp = Nothing 
End Sub