[發問] 如何將下載下來的資料保持原來格式

zheng211016

如下圖
此圖 是我由TWSE自動下載的資料 但是有些股票代碼是00開頭的 卻沒辦法保持原來的數值 想請求各位老手協助

下載 (139.43 KB)

2018-4-10 19:02

下載 (27.5 KB)

2018-4-10 19:04

nolookyou

回復 1# zheng211016


    小弟直覺不難解決，A欄內容固定是股票代號的話，可嘗試：
   1.載入A欄內容前，儲存格[格式]>[類別]先改成[文字]試試看
   2.或告知下載內容網址我幫你試一下
   3.或直接給EXCEL檔案我幫你試一下

zheng211016

http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20180427&type=ALLBUT0999
麻煩您了

iamaraymond

回復 3# zheng211016

要不要試試看VBA的方法?

1. Sub test()
   
2. 
   
3. 'Dim t: t = Timer
   
4. 
   
5. Cells.Clear
   
6. 
   
7. Dim myXML As Object
   
8. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
9. 
   
10. Dim myHTML As Object
    
11. Set myHTML = CreateObject("HTMLFile")
    
12. 
    
13. With myXML
    
14.     .Open "GET", "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=" & Format(Now(), "yyyy/mm/dd") & "&type=ALLBUT0999", False
    
15.     .send
    
16.    
    
17.     myHTML.body.innerHTML = .responseText
    
18.     Set myTable = myHTML.getElementsByTagName("Table")(4)
    
19.     i = 1
    
20.    
    
21.     For Each myRow In myTable.Rows
    
22.         j = 1
    
23.         For Each myCell In myRow.Cells
    
24.             If j = 1 Then
    
25.                 Cells(i, j) = "'" & myCell.innerText
    
26.             Else
    
27.                 Cells(i, j) = myCell.innerText
    
28.             End If
    
29.             j = j + 1
    
30.         Next
    
31.         i = i + 1
    
32.     Next
    
33.    
    
34. End With
    
35. 
    
36. Set myXML = Nothing
    
37. 
    
38. 'Debug.Print Format(Timer - t, "0.00秒")
    
39. 
    
40. End Sub

複製代碼

zheng211016

回復 4# iamaraymond
謝謝大大 果真可以 又迅速 小弟感激不盡

iamaraymond

回復 5# zheng211016

若有問題再提出~