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