使用VBA保存excel文件并超链接保存的文件

Question

只是想问是否可以使用 VBA 将文件保存在 excel 中，然后生成该文件路径的超链接以粘贴到不同的工作表上？

例如，我有一个工作簿，其中包含两个工作表，表单和日志。在表单工作表中，有一个包含文档编号的单元格。当我运行我的 VBA 代码时，它会将文档编号复制到日志工作表中。

Private Sub CommandButton1_Click()

 Application.ScreenUpdating = False
 Dim copySheet As Worksheet
 Dim pasteSheet As Worksheet

 Set copySheet = Worksheets("Form")
 Set pasteSheet = Worksheets("Logs")

 copySheet.Range("I3").Copy
 pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
 copySheet.ExportAsFixedFormat Type:=xlTypePDF, _
 Filename:="C:\Users\username\Documents\Saved PDF.pdf"

End sub

它还将表单工作表导出为 pdf 文件。但是，我希望将保存的 pdf 的超链接放入日志工作表中。假设文档编号在 A 列中，我希望超链接在 B 列中与文档编号在同一行中。

Answer 1

试试这个..

Sub log()
    Application.ScreenUpdating = False

    Dim wb As Workbook, srcSh As Worksheet, dstSh As Worksheet
    Dim src As Range, dst As Range, pth$, docNm$

    Set wb = ThisWorkbook
    Set srcSh = wb.Worksheets("Form")
    Set src = srcSh.[I3]
    Set dstSh = wb.Worksheets("Logs")
    Set dst = dstSh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 2)

    docNm = "Log" & " - " & src
    pth = Environ("userprofile") & "\Documents\" & docNm & ".pdf"

    srcSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth

    dst(1) = src: dstSh.Hyperlinks.Add dst(2), pth, , "Open PDF", "Log"

    Application.ScreenUpdating = True
End Sub