返回列表 上一主題 發帖

[發問] 匯入網頁資料後數字前的"0"被刪掉了

Jackie_1st

帖子
5 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2015-5-14 
最後登錄
2018-12-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-5-17 03:23 | 只看該作者

[發問] 匯入網頁資料後數字前的"0"被刪掉了

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

Jackie_1st

帖子
5 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2015-5-14 
最後登錄
2018-12-22 
3#
發表於 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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 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程式區
內喔.

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題