軟體: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

目前用取代方式將原資料弄的乾淨一點,11A-->A,少數帶標記資料還是用人工看..但已經大幅降低眼力、提升效率, 謝謝s大！噗..推錯，抱歉。

改以createobject("internetexplorer.application")的方式試試這方面想到的是range.numberformat來變更儲存格格式再以for each...next配合left+len來排除最後一個特殊字元且保留0，https://goo.gl/774voy

謝謝你啦!!大哥說的這幾個語法去上VBA的課老師剛好都沒有教到....ORZ我來去google看看它們的用法再研究看看謝謝你啦!!^^用問題再來請益QQ這裡有SOYOSO大哥幫大家解決問題真好^^

^^