单击多个链接并另存为 pdf

Question

我在 excel sheet 中导入了 40 links。单击每个 link 时，将导致页面的（打印为文件）window。

有没有办法一键打开多个link并将页面保存为特定格式(Year_Month_date)的PDF？

Answer 1

使用时间戳创建 PDF-File

这应该适合你！您只能删除 Year_Month_Day !

的“hhmmss”

Sub PDFCreate()
Sheets("Tabelle1").PageSetup.Orientation = 1 ' 1=portrait, 2=landscape
With Sheets("Tabelle1")
    .PageSetup.PrintArea = "$A:$I"
    .ExportAsFixedFormat xlTypePDF, "C:\Users\username\Documents\foldername\" & Format(Now, "yyyymmdd hhmmss") & "pdfname.pdf", , , False
End With
End Sub

打印并打开来自 VBA 代码的网页

Sub print_PDF()

    Dim Explorer As Object
    Dim eQuery As Long ' return value
    Dim i As Integer
    Dim fTime As Single
    
    Set Explorer = CreateObject("InternetExplorer.Application") ' Connect to Explorer
    Dim url As String
    url = ThisWorkbook.ActiveSheet.Range("A1").Value
    Explorer.Navigate url ' Open document from local or web!

TryAgain:

        'Wait 2 seconds to let IE load

        fTime = Timer

        Do While fTime > Timer - 2

            DoEvents

        Loop

        eQuery = Explorer.QueryStatusWB(6)  ' print command

        If eQuery And 2 Then

            Explorer.ExecWB 6, 2, "", ""   ' Print (6), displaying dialog (2)

            'Wait for 2 seconds while IE prints

            fTime = Timer

            Do While fTime > Timer - 2

                DoEvents

            Loop

        Else

            GoTo TryAgain

        End If

 

End Sub

更新：添加了插入选项

您可以将 link 插入输入对话框，它会自动将 link 更改为 Sub pdf_Print()

Sub Insert()
Dim myValue As Variant
myValue = InputBox("Need Input")
Range("A1").Value = myValue
End Sub

单击多个链接并另存为 pdf

click on multiple links and save as pdf

excel

matlab

vba