internet-explorer - 如何从 Excel VBA 保存网页中的文件？

Question

我正在尝试从 IE 导出文件，在通过获取 Html ID 并单击导出选项在下拉列表中选择一个项目后，但我在保存文件时感到震惊。
我正在根据 excel 范围中的值选择下拉列表中的选项。

请帮忙。
下面是我正在尝试的代码。

Dim htm As Object
Dim IE As Object
Sub Website()

    Dim Doc As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

    IE.navigate "http://**Link is confidential, sorry for not providing link**"

    Do While IE.readystate <> 4: DoEvents: Loop

    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.document

        Set ref = Doc.getelementbyid("ReportViewerControl_ctl01_ctl05_ctl00")
        For x = 0 To ref.Options.Length - 1
            If ref.Options(x).Text = "Excel" Then
                ref.selectedIndex = x
                Set refclick = Doc.getelementbyid("ReportViewerControl_ctl01_ctl05_ctl01")
                refclick.Click
                Set refclick = Nothing
            End If
        Next
    Set IE = Nothing
End Sub    

我在这里被击中的快照，我想在这里保存文件。

Answer 1

在您的代码中添加以下内容:

Dim Report As Variant

Report = Application.GetSaveAsFilename("Attrition Report.xls", "Excel Files (*.xls), *.xls")