返回列表 上一主題 發帖

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

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

要將附件的TEST.TXT檔案,轉成附件的TEST.XLS檔案(日期跟時間分開放),應該怎樣寫,再三謝謝大大!
TEST.rar (3.48 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

回復 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
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

本帖最後由 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
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 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
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

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

回復 4# GBKEE


    早安GBKEE版大!成功了!感謝熱心的教導!
給版大說穿了,正是喔!但小輩不多玩股票!只是保守派...哈哈!
版大對VBA相當專業,是教授嗎?
以下是小輩作了整晚無休,也只是垃圾一堆!給版大來個哈哈笑早餐~
txt to xls.rar (24.67 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

小輩真的累極...先要回去休息!再次感謝!祝版大有個哈哈笑早晨!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

請問 若他的 資料格式以","為區隔而不是用"TAB"鍵,是否也可以?謝謝
SEA
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 7# sea08
試試看 : 一次只能剖析一種字元
Workbooks.OpenText Filename:="d:\test\test.txt", OtherChar:=","
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

謝謝大大提供軟體  我找好久ㄌ
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題