GBKEE

回復 15# donod

1. Sub Ex()
   
2.     Dim E As Range, W As String
   
3.     Workbooks.OpenText Filename:="D:\test5.txt"
   
4.     With ActiveWorkbook.Sheets(1)
   
5.         .Cells.Replace ";", " ", xlPart
   
6.         .Columns(2).Insert
   
7.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants)
   
8.             W = E
   
9.             E = Mid(W, 1, 10)
   
10.             E.NumberFormatLocal = "m/d/yyyy;@"
    
11.             E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
    
12.         Next
    
13.     End With
    
14. End Sub

複製代碼

GBKEE

回復 19# donod

1. 
   
2.            'E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
   
3.             E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":")
   
4.            'W這字串從第12個字元起取5個字元

複製代碼

GBKEE

回復 21# donod
請問 text5的字串,可是全為2013/04/02/09/14/01;
如有 2013/04/02/09/15/00; 2013/04/02/09/15/02; 2013/04/02/09/15/03;
是否要一一去
.Cells.Replace "/00;", " ", xlPart
.Cells.Replace "/02;", " ", xlPart
.Cells.Replace "/03;", " ", xlPart

GBKEE

如果是不匯入2013/04/02/09/14/01;中的某個(e.g.2013/04/02/09/14/01;)或某幾個字元(e.g.2013/04/02/09/14/01;)，donod 發表於 2013/4/15 17:56

不解你的意思,請再詳細說明