Ãö©ó·s¼Wweb¬d¸ß¤å¦rÀÉtxt°ÝÃD

ten999

¦bexcel¬¡­¶Ã¯¤U¦³¼Æ­Ó¤u§@ªí,¨C¤@¤u§@ªíÄæa¤ÎÄæb...(¼Æ¶q¤£©w),¦U³]©w·s¼Wweb¬d¸ß,¨ä®æ¦¡¬°txtÀÉ(¤º§t¤é´Á¤Î¼Æ¦r)¦pªþÀÉ,½Ð°Ý¦U¦ì«e½ú:
¦p¦ó¤À¶}¤é´Á©M¼Æ­È,¦Ó¦P®É¥i¥þ³¡­«·s¾ã²z!
ÁÂÁÂ

GBKEE

¦^´_ 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

½Æ»s¥N½X