Vba Excel对话框

我写的是一个小问题，由于缺乏经验，我自己无法解决。在我的工作中，我使用了一个宏，它可以从公司内部页面打开一个csv文件。宏使用不同变体的自定义搜索，下载数据，然后根据需要对其进行过滤

我在这个网站上找到了许多关于同一问题的答案，但是我不清楚，因为我是VBA的新手。有谁能帮我或给我一些关于如何在每个循环中选择“开放”选项的提示吗？提前感谢您提供的所有提示或解决方案

Sub getdata()
Dim oIE As InternetExplorerMedium
Dim htmlsource As String
Dim link As String

    UserForm2.Show

    Set oIE = New InternetExplorerMedium
    oIE.Visible = false
    link = "example.com/SearchResult.action?" & "actionType=Search&searchType=Advanced&fromWindow=MainMenu&type=&resLimit=1000&picklist=active&statApp=on&statDraft_h=false&statApp_h=true&statArch_h=false&desc=&sapDesc=&gcasCode=&fnshdProdCode=&ownGBU=BEAUTY+CARE&originator=&isuDateFrm=01NOV2016&isuDateTo=30NOV2016&brndName=&brndAddndm=&prodName=&prodVarit=&prodXVarit=&consumerDBGCAScod=&addiBrndCode=&casNum=&localDesc=&sharingOrg=&authdPlants=plantAuthToUse=&plantAuthToProd=&countryClred=&shrwsupplier=&matGroup=&chmGroup=&matFunc=&pkSize=&pkSizeCount=&recyclePerc=&methdCode=&archDateFrom=&archDateTo=&archReason=&archComment=&unarchDateFrm=&unarchDateTo=&unarchReason=&x=27&y=9"


    oIE.navigate link

        Do Until Not oIE.Busy And oIE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
        htmlsource = RefreshWebsite(htmlsource, oIE, link, rCounter)
        oIE.Visible = false
        link = "http://example.com/CSSSearchExport.action"
           oIE.navigate link

Do Until Not oIE.Busy And oIE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
      'here the dialog box for open/save/save as shows up and I have to click manually.

       oIE.Quit

---

我试着撞一次，我试着撞一次。