返回列表 上一主題 發帖

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

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
2  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-10-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-4-10 19:04 | 只看該作者

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

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


收藏 分享

nolookyou

帖子
65 
主題
18 
精華
0 
積分
71 
點名
0  
作業系統
WINXP、7、10、SERVER2012 
軟體版本
Office 2010-2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-27 
最後登錄
2021-10-7 
2#
發表於 2018-4-26 11:17 | 只看該作者
回復 1# zheng211016


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

TOP

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
2  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-10-5 
3#
發表於 2018-4-28 22:04 | 只看該作者
http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20180427&type=ALLBUT0999
麻煩您了

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
4#
發表於 2018-4-29 12:01 | 只看該作者
回復 3# zheng211016

要不要試試看VBA的方法?
  1. Sub test()

  3. 'Dim t: t = Timer

  5. Cells.Clear

  7. Dim myXML As Object
  8. Set myXML = CreateObject("Microsoft.XMLHTTP")

  10. Dim myHTML As Object
  11. Set myHTML = CreateObject("HTMLFile")

  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

  36. Set myXML = Nothing

  38. 'Debug.Print Format(Timer - t, "0.00秒")

  40. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
2  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-10-5 
5#
發表於 2018-4-29 15:03 | 只看該作者
回復 4# iamaraymond
謝謝大大 果真可以 又迅速 小弟感激不盡

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
6#
發表於 2018-4-29 15:43 | 只看該作者
回復 5# zheng211016

若有問題再提出~
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題