[問題] Excel 匯入web 保留0 的方法

[TWCFP (祝大家賺大錢^^)]

軟體:MS Excel

版本:2007

大家好!!

想請問一下，有沒有辦法用Excel 匯入網頁資料的時候把
數字格式轉成文字
在匯入Excel呢?
因為我把
http://www.emega.com.tw/js/StockTable.htm

這個網頁資料用匯入的方式
像台灣50原本它的代號是0050的
但是匯入以後，它的代號會變成50 而已
想必是因為Excel把它判定會數字的關係....

剛才用錄製的方法
把它的VBA 碼，錄下來了
希望有大大可以指點一二，感激不盡!!

Sub test()
'
' test Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.emega.com.tw/js/StockTable.htm",
Destination:=Range("$A$1"))
        .Name = "StockTable"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.142.243.175
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1434857092.A.058.html
→ geo: 目前用取代方式將原資料弄的乾淨一點,11A-->A,少數帶標記資料
→ geo: 還是用人工看..但已經大幅降低眼力、提升效率, 謝謝s大！
→ geo: 噗..推錯，抱歉。
→ soyoso: 改以createobject("internetexplorer.application")的方式
→ soyoso: 試試
soyoso大哥用createobject("internetexplorer.application")的方式可以保留0了
但是又出現另外一個問題orz
就是它的儲存格裡面會多一個看不到的字元
我如果把那個字元刪除，0就會消失了....
而且那個字元我寫在vba裡面，它沒有辦法顯示說，vba裡面會顯示?

我原本用匯入的方式也是會有一個特殊字元
但是我錄製一個巨集，用取代的方式可以刪掉
用createobject("internetexplorer.application")的方式
錄製巨集，取代的方式沒有辦法刪掉

QQ
※ 編輯: TWCFP (223.142.243.175), 06/21/2015 15:24:28
→ soyoso: 這方面想到的是range.numberformat來變更儲存格格式
→ soyoso: 再以for each...next配合left+len來排除最後一個特殊字元
→ soyoso: 且保留0，https://goo.gl/774voy
→ TWCFP: 謝謝你啦!!
→ TWCFP: 大哥說的這幾個語法
→ TWCFP: 去上VBA的課老師剛好都沒有教到....ORZ
→ TWCFP: 我來去google看看
→ TWCFP: 它們的用法再研究看看
→ TWCFP: 謝謝你啦!!^^
→ TWCFP: 用問題再來請益QQ
→ TWCFP: 這裡有SOYOSO大哥幫大家解決問題真好^^
→ soyoso: ^^