Ãö©ó·s¼Wweb¬d¸ß¤å¦rÀÉtxt°ÝÃD
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
Ãö©ó·s¼Wweb¬d¸ß¤å¦rÀÉtxt°ÝÃD
¦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!
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 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
½Æ»s¥N½X |
|
|
|
|
|
|