小编Sha*_*007的帖子

我有它可以打开 Internet Explorer 的地方，为用户提供另存为框，然后退出。但是，我更希望用户不必导航到正确的文件夹，而是目录来自工作表中的单元格并将网页另存为 PDF。我已经安装了完整的 Adob​​e。编码：

 Sub WebSMacro()
        Dim IE As Object
        Dim Webloc As String
        Dim FullWeb As String
        Webloc = ActiveSheet.Range("B39").Value
        FullWeb = "http://www.example.com=" & Webloc
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.Navigate FullWeb
        Do While IE.Busy
            Application.Wait DateAdd("s", 1, Now)
        Loop


        IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
        Application.Wait DateAdd("s", 10, Now)
        IE.Quit
        Set IE = Nothing

    End Sub