GBKEE

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

GBKEE

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

GBKEE

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