Excel 从记事本打印多个URL
我在Excel文件中有许多URL。我正在尝试打开每个URL,并以静默模式将页面打印/保存为PDF。我有下面的代码。这可以工作,但需要打印确认(打印对话窗口)。任何人都可以在无提示模式下打印,即不显示打印对话窗口Excel 从记事本打印多个URL,excel,vba,Excel,Vba,我在Excel文件中有许多URL。我正在尝试打开每个URL,并以静默模式将页面打印/保存为PDF。我有下面的代码。这可以工作,但需要打印确认(打印对话窗口)。任何人都可以在无提示模式下打印,即不显示打印对话窗口 Sub View_Tech_Recalls() Set ie = CreateObject("InternetExplorer.Application") Recall_URL = Range("A1").Value ie.Navigate Recall_URL
Sub View_Tech_Recalls()
Set ie = CreateObject("InternetExplorer.Application")
Recall_URL = Range("A1").Value
ie.Navigate Recall_URL
ie.StatusBar = False
ie.Toolbar = True
ie.Visible = True
ie.Resizable = True
ie.AddressBar = False
TimeOutWebQuery = 5
TimeOutTime = DateAdd("s", TimeOutWebQuery, Now)
Do Until ie.ReadyState = 4
DoEvents
If Now > TimeOutTime Then
ie.stop
GoTo ErrorTimeOut
End If
Loop
Application.Wait (Now + TimeValue("0:00:03"))
ie.ExecWB 6, 2
ErrorTimeOut:
Set ie = Nothing
End Sub
我不确定如何实现您的需求,但您的解决方案可能是
ExportAsFixedFormat Type:=xlTypePDF
然后,您可以在执行之前设置application.displayalerts=false
,因此应该安静地执行