標題:
關於新增web查詢文字檔txt問題
[打印本頁]
作者:
ten999
時間:
2011-11-26 17:21
標題:
關於新增web查詢文字檔txt問題
在excel活頁簿下有數個工作表,每一工作表欄a及欄b...(數量不定),各設定新增web查詢,其格式為txt檔(內含日期及數字)如附檔,請問各位前輩:
如何分開日期和數值,而同時可全部重新整理!
謝謝
作者:
GBKEE
時間:
2011-11-26 20:51
回復
1#
ten999
Sub Ex()
Dim Sh As Worksheet, i As Integer, R As Range, Rng As Range
For Each Sh In Sheets
With Sh
For i = 1 To .QueryTables.Count
If i < .QueryTables.Count Then
.QueryTables(i).ResultRange.EntireColumn.Offset(, 1).Insert
End If
Set R = .QueryTables(i).ResultRange.Find("DATE*VALUE", lookat:=xlWhole)
Set Rng = .Range(R.Offset(1), Rng(Rng.Rows.Count))
Rng.TextToColumns Destination:=Rng(1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Rng.NumberFormatLocal = "YYYY-M-D"
.QueryTables(i).ResultRange.EntireColumn.Offset(, 1).EntireColumn.AutoFit
Next
End With
Next
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)