(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

snare wrote:
原始資料本來就沒有空...(恕刪)

rainbowsperm wrote:
經測試確定是Office版本的關係~~我的是2021版的用2016版本的就沒問題
但2016版的元大RTD又有問題

For i = 0 To UBound(temp)
    If temp(i) <> "" Then
        r = r + 1
        Sheets("工作表1").Cells(r, 1) = temp(i)
    End If
Next i

rainbowsperm wrote:
好奇大神的電腦配備是如何, 前一個yahoo分類只要跑8秒, 我卻跑了466秒~~OMG
好歹也是12代Intel怎麼差那麼多~~><

Dylan67 wrote:
▼ 是不是跟這一行有關？
sec-ch-ua

Sub Get_Moi_Gov_excel()
     
    If ThisWorkbook.Path = "" Then
        MsgBox "Save file First!!!", vbOKOnly, "Error"
        Exit Sub
    End If
     
    Dim Xmlhttp As Object, HTML As Object, vs As String, vg As String, QCD_YEAR_ID As String, FileName As String, URL As String, n As String, TYP As String, ttt As Double
    Set Xmlhttp = CreateObject("Microsoft.XMLHTTP")
    Set HTML = CreateObject("htmlfile")

    ttt = Timer
    
    QCD_YEAR_ID = "EY00004" 'EY00004=107、EY00003、EY00002、EY00001
    n = "577"  ' 578 ... ...
    TYP = "KND0007" ' KND0004 ... ...
    URL = "https://www.moi.gov.tw/LocalOfficial.aspx?n=" & n & "&TYP=" & TYP
    
    
    With Xmlhttp
    
       .Open "GET", URL, False
       .send
      
       HTML.body.innerhtml = .responsetext
       
       vs = HTML.getElementById("__VIEWSTATE").Value
       vg = HTML.getElementById("__VIEWSTATEGENERATOR").Value
   
       .Open "POST", URL, False
       .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
       .send "__VIEWSTATE=" & vs & "&QCD_YEAR_ID=" & QCD_YEAR_ID & "&QCD_CTY_ID=&QCD_OPT_DTL1=&QCD_LST_NAM=&QCD_FIR_NAM=&QCD_PTY_NAM=&JLocalOfficial_ExportXls=轉出Excel&__VIEWSTATEGENERATOR=" & vg & "&__VIEWSTATEENCRYPTED="
        FileName = Split(.getresponseheader("Content-Disposition"), "=")(1)
        
    End With
    
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .write Xmlhttp.ResponseBody
        .savetofile ThisWorkbook.Path & "\" & FileName, 2
        .Close
        'Workbooks.Open FileName:=ThisWorkbook.Path & "\" & FileName
    End With
    
    'Windows(FileName).Activate
    'ActiveWindow.WindowState = xlMaximized
        
    MsgBox ThisWorkbook.Path & "\" & FileName & vbNewLine & Timer - ttt & "s", vbOKOnly, "Report"
    
    Set Xmlhttp = Nothing
    Set HTML = Nothing
    
End Sub

Dylan67 wrote:
我今天彙整及研究了您的程式碼，想請教圖一URL主體的部分，是不是跟圖片上方的這段原始碼有關？

Dylan67 wrote:
我若是想先自習這段URL主體的程式碼，應該Google什麼關鍵字比較準確？

Dylan67 wrote:
圖二及圖三是發現我點擊下載按鈕後，沒有出現像您畫面的[目標路徑]，這是不是要在Google裡做什麼設定？

Dylan67 wrote:
最後附件壓縮檔是我下載後的.xls檔，我發現這個檔案內容其實挺少的，可是檔案很大，
尤其是下載後開啟及針對單元格的操作都很慢，
我嘗試過修改副檔名成xlsx，及97-2003另存新檔xlsx，可是都沒有用，您知道是為什麼嗎？

snare wrote:
對真實網址，通常是出...(恕刪)

Dylan67 wrote:
將 xls 改成 xml，但還是不成功，
想請教，這個下載的檔案有什麼特別之處，