請教將.txt轉成自定格式的EXCEL檔

cdkee

要將附件的TEST.TXT檔案，轉成附件的TEST.XLS檔案(日期跟時間分開放)，應該怎樣寫，再三謝謝大大!
TEST.rar (3.48 KB)

下載次數: 22

2010-10-7 18:59

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   '迴圈 為保持時間格式 加上'文字格式
   
8.         .Cells.Replace ";", " "
   
9.         .SaveAs "d:\test\test.xls"   '存檔
   
10.     End With
    
11. End Sub

複製代碼

cdkee

回復 2# GBKEE


    感謝版大教授，跟版大的，出錯誤'1004'
以下是被導入的其中一行，是放在A1格，未能分開放入A1至G1格。
20100614 094400; 20084; 20084; 20084; 20084; 571
日期及時間格式也未能轉變成以下自定格式。
6/14/2010     09:44:00    20084    20084    20084    20084    571

GBKEE

回復 3# 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("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"   '存檔
    
15.     End With
    
16. End Sub

複製代碼

cdkee

回復 4# GBKEE


    早安GBKEE版大!成功了!感謝熱心的教導!
給版大說穿了，正是喔!但小輩不多玩股票!只是保守派...哈哈!
版大對VBA相當專業，是教授嗎?
以下是小輩作了整晚無休，也只是垃圾一堆!給版大來個哈哈笑早餐~
txt to xls.rar (24.67 KB)

下載次數: 21

2010-10-8 08:15

cdkee

小輩真的累極...先要回去休息!再次感謝!祝版大有個哈哈笑早晨!

sea08

請問 若他的 資料格式以","為區隔而不是用"TAB"鍵,是否也可以?謝謝

GBKEE

回復 7# sea08
試試看 : 一次只能剖析一種字元
Workbooks.OpenText Filename:="d:\test\test.txt", OtherChar:=","

hizzen007

找了好久，剛好有需要~雖然是舊帖~依然感謝!