Board logo

標題: 請教將.txt轉成自定格式的EXCEL檔 [打印本頁]
作者: cdkee    時間: 2010-10-7 19:04     標題: 請教將.txt轉成自定格式的EXCEL檔

要將附件的TEST.TXT檔案，轉成附件的TEST.XLS檔案(日期跟時間分開放)，應該怎樣寫，再三謝謝大大!
[attach]3046[/attach]
作者: GBKEE    時間: 2010-10-7 19:57

回復 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    時間: 2010-10-8 01:38

本帖最後由 cdkee 於 2010-10-8 02:13 編輯

回復 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    時間: 2010-10-8 07:18

回復 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    時間: 2010-10-8 08:03

本帖最後由 cdkee 於 2010-10-8 08:15 編輯

回復 4# GBKEE


    早安GBKEE版大!成功了!感謝熱心的教導!
給版大說穿了，正是喔!但小輩不多玩股票!只是保守派...哈哈!
版大對VBA相當專業，是教授嗎?
以下是小輩作了整晚無休，也只是垃圾一堆!給版大來個哈哈笑早餐~
[attach]3065[/attach]
作者: cdkee    時間: 2010-10-8 08:31

小輩真的累極...先要回去休息!再次感謝!祝版大有個哈哈笑早晨!
作者: sea08    時間: 2010-10-8 11:22

請問 若他的 資料格式以","為區隔而不是用"TAB"鍵,是否也可以?謝謝
作者: GBKEE    時間: 2010-10-8 16:00

回復 7# sea08
試試看 : 一次只能剖析一種字元
Workbooks.OpenText Filename:="d:\test\test.txt", OtherChar:=","
作者: hizzen007    時間: 2015-9-5 14:05

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)