返回列表 上一主題 發帖

[發問] 匯入網頁資料後數字前的"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 
2#
發表於 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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題