麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 匯入網頁資料後數字前的"0"被刪掉了 [打印本頁]

作者: Jackie_1st 時間: 2015-5-17 03:23 標題: 匯入網頁資料後數字前的"0"被刪掉了

各位前輩, 請教一個問題
我用Excel VBA的QueryTables.Add 匯入網頁資料, 結果數字前面的"0"都被去除了,
例如: 00086會變成86
是否有辦法保留完整的數字? 謝謝!

作者: luhpro 時間: 2015-5-17 21:33

本帖最後由 luhpro 於 2015-5-17 21:38 編輯

各位前輩, 請教一個問題
我用Excel VBA的QueryTables.Add 匯入網頁資料, 結果數字前面的"0"都被去除了,
...
Jackie_1st 發表於 2015-5-17 03:23

在賦值指令的前面對欲賦值的儲存格加上 :
.NumberFormat = "@"
之後再賦值時數字前面的0就不會被清掉了,
要留意使用此法後儲存格內容為文字型態.

另一個方法是在賦值的內容前面加上 '
例如 00086 改成 '00086
不過之後取值時要留意 ' 的處理.

還有 Excel VBA 相關討論應該要發表在 :
Excel程式區
內喔.

作者: Jackie_1st 時間: 2015-5-18 15:38

在賦值指令的前面對欲賦值的儲存格加上 :
.NumberFormat = "@"
之後再賦值時數字前面的0就不會被清掉 ...
luhpro 發表於 2015-5-17 21:33

luhpro大您好,
謝謝提醒, 下次會注意發文在正確的討論區。

我事先已將所有儲存格設定為文字型態, 但使用QueryTables.Add 匯入網頁之後數字資料前面的0還是被清掉了(此時再確認儲存格還是文字型態)
程式碼如下, 能否幫忙看看是否有哪裡需要修改? 感激不盡~

xlURL = "http://www.emega.com.tw/js/StockTable.htm"
With TempSheet1.QueryTables.Add("URL;" & xlURL, TempSheet1.Cells(1, 1))
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.Refresh 0
.Delete
End With

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)