Excel 从记事本打印多个URL

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

我在Excel文件中有许多URL。我正在尝试打开每个URL,并以静默模式将页面打印/保存为PDF。我有下面的代码。这可以工作,但需要打印确认(打印对话窗口)。任何人都可以在无提示模式下打印,即不显示打印对话窗口

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
,因此应该安静地执行