[發問] 如何分開日期和時間

donod

test A.rar (14.51 KB)

下載次數: 3

2013-4-8 12:32

請問如何改寫，才可得到以下結果:
test5.rar (7.14 KB)

下載次數: 4

2013-4-8 12:34

  
謝謝!

donod

漏了來源.TXT檔案，現補上來源.TXT檔案
test5.rar (245 Bytes)

下載次數: 8

2013-4-8 12:44

來源.TXT檔案
test A.rar (14.51 KB)

下載次數: 7

2013-4-8 12:45

VBA檔案
請問如何改寫，才可得到以下結果:

test5a.rar (7.14 KB)

下載次數: 10

2013-4-8 12:47

想要的檔案

Hsieh

回復 2# donod

1. Sub input_txt()
   
2. Dim Ay()
   
3. fs = ThisWorkbook.Path & "\test5.txt" 'TXT檔名目錄
   
4. ar = Array(";", ":", ":")
   
5. Open fs For Input As #1
   
6. Do While Not EOF(1)
   
7.    Line Input #1, mystr
   
8.    For i = 0 To 2
   
9.    Replace
   
10.       mystr = Application.Substitute(mystr, "/", ar(i), 3) '取代分隔符號
    
11.    Next
    
12.    ReDim Preserve Ay(s)
    
13.    Ay(s) = mystr
    
14.    s = s + 1
    
15. Loop
    
16. Close #1
    
17. fs = ThisWorkbook.Path & "\test5.xlsx" '寫入目標檔案目錄
    
18. With Workbooks.Open(fs)
    
19. .Sheets(1).[A1].CurrentRegion.Clear '清除原資料
    
20. .Sheets(1).[A1].Resize(s, 1) = Application.Transpose(Ay) '寫入資料
    
21. With .Sheets(1).Columns("A:A") '資料剖析
    
22.    .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    
23.    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    
24.    Semicolon:=True
    
25.    .NumberFormatLocal = "m/d/yyyy" '變更日期格式
    
26. End With
    
27. End With
    
28. End Sub

複製代碼

donod

回復 3# Hsieh
仍然不成功
test A1.rar (13.22 KB)

下載次數: 5

2013-4-8 15:19

Hsieh

回復 4# donod
資料剖析指名引數不能忽略

1. Sub input_txt()
   
2. Dim Ay()
   
3. fs = ThisWorkbook.Path & "\test5.txt" 'TXT檔名目錄
   
4. ar = Array(";", ":", ":")
   
5. Open fs For Input As #1
   
6. Do While Not EOF(1)
   
7.    Line Input #1, mystr
   
8.    For i = 0 To 2
   
9.       mystr = Application.Substitute(mystr, "/", ar(i), 3) '取代分隔符號
   
10.    Next
    
11.    ReDim Preserve Ay(s)
    
12.    Ay(s) = mystr
    
13.    s = s + 1
    
14. Loop
    
15. Close #1
    
16. fs = ThisWorkbook.Path & "\test5.xlsx" '寫入目標檔案目錄
    
17. With Workbooks.Open(fs)
    
18. With .Sheets(1)
    
19. .[A1].CurrentRegion.Clear '清除原資料
    
20. .[A1].Resize(s, 1) = Application.Transpose(Ay) '寫入資料
    
21. '資料剖析
    
22.     .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
    
23.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    
24.         Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
    
25.         :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
    
26.         Array(7, 1)), TrailingMinusNumbers:=True
    
27.    .[A:A].NumberFormatLocal = "m/d/yyyy" '變更日期格式
    
28. End With
    
29. End With
    
30. End Sub

複製代碼

donod

回復 5# Hsieh
請問以下應該要怎樣修改:
'資料剖析

    .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

        Array(7, 1)), TrailingMinusNumbers:=True

Hsieh

回復 6# donod

你錄製一個A欄以分號為分隔符號的巨集看看便知

donod

回復 7# Hsieh
是否這樣做?
Book1.rar (10.38 KB)

下載次數: 2

2013-4-8 18:13

Hsieh

回復 8# donod

下載 (387.51 KB)

2013-4-8 18:24

donod

回復 9# Hsieh
請問錯在那裡
test A2.rar (15.55 KB)

下載次數: 5

2013-4-8 20:14