点击多个链接并保存为pdf

Question

我在excel工作表中导入了40个链接。单击每个链接后，都将指向页面的(打印为文件(窗口。

是否可以一键打开多个链接并将页面保存为特定格式的PDF(Year_Month_date(？

Answer 1

使用时间戳创建PDF文件

这应该对你有用！您可以删除"；hhmmss"；仅适用于Year_Month_Day！

Sub PDFCreate()
Sheets("Tabelle1").PageSetup.Orientation = 1 ' 1=portrait, 2=landscape
With Sheets("Tabelle1")
.PageSetup.PrintArea = "$A$1:$I$21"
.ExportAsFixedFormat xlTypePDF, "C:UsersusernameDocumentsfoldername" & 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

更新：添加了插入选项

u可以在输入对话框中插入链接，它会自动更改Sub pdf_Print()中的链接

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