大齡求助，如何在網頁選定項目後，再下載網頁資料

阿聪926

請教先進，我近60歲，但是抱著學習態度仍持續學習，我碰上一個問題，請先進指導。
網頁進入後，我要的資料需要手動按"匯出CSV"這個按鈕。這步驟我不會弄。

下面執行只有網頁上資料，不是我需要的



Sub info_open()        
      

Dim URL As String
URL = "https://goodinfo.tw/tw2/StockList.asp?RPT_TIME=&MARKET_CAT=%E6%99%BA%E6%85%A7%E9%81%B8%E8%82%A1&INDUSTRY_CAT=10%E6%97%A5%2F%E6%9C%88%2F%E5%AD%A3%E7%B7%9A%E5%A4%9A%E9%A0%AD%E6%8E%92%E5%88%97%E4%B8%94%E5%9D%87%E7%B7%9A%E8%B5%B0%E6%8F%9A%40%40%E5%9D%87%E5%83%B9%E7%B7%9A%E5%A4%9A%E9%A0%AD%E6%8E%92%E5%88%97%E4%B8%94%E8%B5%B0%E6%8F%9A%40%4010%E6%97%A5%2F%E6%9C%88%2F%E5%AD%A3"


Dim Xmlhttp As Object

    Set Xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With Xmlhttp
        .Open "POST", URL, False
        .Send
    End With
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .write Xmlhttp.ResponseBody
        If Dir(FileName) <> "" Then Kill FileName
        .SaveToFile FileName
    .Close
    End With


End Sub