ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ð±N.txtÂন¦Û©w®æ¦¡ªºEXCELÀÉ

¦^´_ 1# cdkee
  1. Sub Ex()
  2.     Dim E As Range
  3.     Workbooks.OpenText Filename:="d:\test\test.txt", DataType:=xlDelimited, Tab:=True
  4.     With ActiveWorkbook.Sheets(1)
  5.         For Each E In .Range("B:B").SpecialCells(xlCellTypeConstants)
  6.             E = "'" & E
  7.         Next   '°j°é ¬°«O«ù®É¶¡®æ¦¡ ¥[¤W'¤å¦r®æ¦¡
  8.         .Cells.Replace ";", " "
  9.         .SaveAs "d:\test\test.xls"   '¦sÀÉ
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# cdkee
©êºp¤W¦¸¦^´_¤£½TÃD·N§ó¥¿¦p¤U  §AªºÀɮצn¹³»PªÑ²¼¦³Ãö?
  1. Sub Ex()
  2.     Dim E As Range
  3.     Workbooks.OpenText Filename:="d:\test\test.txt" ', DataType:=xlDelimited, Tab:=True
  4.     With ActiveWorkbook.Sheets(1)
  5.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants)
  6.             With E
  7.                 .Value = Mid(E, 5, 2) & "/" & Mid(E, 7, 2) & "/" & Mid(E, 1, 4)
  8.                  .NumberFormatLocal = "M/D/YYYY"
  9.                 .Offset(, 1) = Mid(.Offset(, 1), 1, 2) & ":" & Mid(.Offset(, 1), 3, 2) & ":" & Mid(.Offset(, 1), 5, 2)
  10.                 .Offset(, 1).NumberFormatLocal = "HH:MM:SS"
  11.             End With
  12.         Next
  13.         .Cells.Replace ";", " "
  14.         .SaveAs "d:\test\test.xls"   '¦sÀÉ
  15.     End With
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# sea08
¸Õ¸Õ¬Ý : ¤@¦¸¥u¯à­åªR¤@ºØ¦r¤¸
Workbooks.OpenText Filename:="d:\test\test.txt", OtherChar:=","

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD