返回列表 上一主題 發帖

關於新增web查詢文字檔txt問題

關於新增web查詢文字檔txt問題

在excel活頁簿下有數個工作表,每一工作表欄a及欄b...(數量不定),各設定新增web查詢,其格式為txt檔(內含日期及數字)如附檔,請問各位前輩:
如何分開日期和數值,而同時可全部重新整理!
謝謝

美國總經.rar (71.09 KB)

回復 1# ten999
  1. Sub Ex()
  2.     Dim Sh As Worksheet, i As Integer, R As Range, Rng As Range
  3.     For Each Sh In Sheets
  4.         With Sh
  5.             For i = 1 To .QueryTables.Count
  6.                 If i < .QueryTables.Count Then
  7.                  .QueryTables(i).ResultRange.EntireColumn.Offset(, 1).Insert
  8.                 End If
  9.                 Set R = .QueryTables(i).ResultRange.Find("DATE*VALUE", lookat:=xlWhole)
  10.                 Set Rng = .Range(R.Offset(1), Rng(Rng.Rows.Count))
  11.                 Rng.TextToColumns Destination:=Rng(1), DataType:=xlDelimited, _
  12.                     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
  13.                     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  14.                     :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  15.                 Rng.NumberFormatLocal = "YYYY-M-D"
  16.                 .QueryTables(i).ResultRange.EntireColumn.Offset(, 1).EntireColumn.AutoFit
  17.             Next
  18.         End With
  19.     Next
  20. End Sub
複製代碼

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題