cdkee

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-7 19:04 | 只看該作者

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

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

TEST.rar (3.48 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-7 19:57 | 只看該作者

回復 1# cdkee

Sub Ex()
Dim E As Range
Workbooks.OpenText Filename:="d:\test\test.txt", DataType:=xlDelimited, Tab:=True
With ActiveWorkbook.Sheets(1)
For Each E In .Range("B:B").SpecialCells(xlCellTypeConstants)
E = "'" & E
Next '迴圈為保持時間格式加上'文字格式
.Cells.Replace ";", " "
.SaveAs "d:\test\test.xls" '存檔
End With
End Sub

複製代碼

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

3^#

發表於 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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-10-8 07:18 | 只看該作者

回復 3# cdkee
抱歉上次回復不確題意更正如下你的檔案好像與股票有關?

Sub Ex()
Dim E As Range
Workbooks.OpenText Filename:="d:\test\test.txt" ', DataType:=xlDelimited, Tab:=True
With ActiveWorkbook.Sheets(1)
For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants)
With E
.Value = Mid(E, 5, 2) & "/" & Mid(E, 7, 2) & "/" & Mid(E, 1, 4)
.NumberFormatLocal = "M/D/YYYY"
.Offset(, 1) = Mid(.Offset(, 1), 1, 2) & ":" & Mid(.Offset(, 1), 3, 2) & ":" & Mid(.Offset(, 1), 5, 2)
.Offset(, 1).NumberFormatLocal = "HH:MM:SS"
End With
Next
.Cells.Replace ";", " "
.SaveAs "d:\test\test.xls" '存檔
End With
End Sub

複製代碼

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 46
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-10-25

5^#

發表於 2010-10-8 08:03 | 只看該作者

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

回復 4# GBKEE

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

txt to xls.rar (24.67 KB)

TOP

cdkee