返回列表 上一主題 發帖

[發問] 如何將TEXT轉成自訂的EXCEL檔

wsx24680

帖子
17 
主題
4 
精華
0 
積分
51 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2010-5-20 
最後登錄
2014-7-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-15 16:06 | 顯示全部帖子

[發問] 如何將TEXT轉成自訂的EXCEL檔

請問各位前輩：
如下列附件，如何將"文字文件.txt"轉成"文件.xls"中的樣式？

資料夾.zip (2.21 KB)

還請各位前輩指教。
收藏 分享

wsx24680

帖子
17 
主題
4 
精華
0 
積分
51 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2010-5-20 
最後登錄
2014-7-9 
2#
發表於 2010-6-15 18:35 | 顯示全部帖子
回復 2# GBKEE


GBKEE前輩：
不好意思…可能是我表達上有問題，我的意思是能夠變成像"文件.xls"中的排列方式，
並不只是單純的用excel來打開txt檔；而是打開txt檔後能夠將裡面的資料排列成"文件.xls"中的樣子，
所以附件中"文件.xls"是算是答案，是將txt檔轉換後的結果。

感謝GBKEE前輩指點，可惜跟我想要達成的結果不一樣。

TOP

wsx24680

帖子
17 
主題
4 
精華
0 
積分
51 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2010-5-20 
最後登錄
2014-7-9 
3#
發表於 2010-6-17 14:41 | 顯示全部帖子
回復 4# GBKEE

GBKEE版大：
十分抱歉，小弟剛剛才注意到附錯檔案了，對不起，
之前附上的是有修改過的內容，剛剛測試時才發現，
原始的TEXT中的內容如附件。
資料夾.zip (290 Bytes)

還有幾點想請教一下，
1.檔路徑可以用選的嗎？像開啟舊檔那樣…
2.If R >= 20 Then R = 1: C = C + 6，如果資料長度不一定，
但用------來判斷的話是改成
If InStr(MyString, "----") Then R = 1: C = C + 6，這樣嗎？

另外剛剛小弟有想試著修改程式，但不知為何抓不到"="跟後面的值，
第一次MyString抓到"3"後來"AAA-AA"、"11"、後來就變抓到"22"了跳過了"11"後面的"=10"
不知為何？還請版大解惑？

再次感謝版大的幫忙

TOP

wsx24680

帖子
17 
主題
4 
精華
0 
積分
51 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2010-5-20 
最後登錄
2014-7-9 
4#
發表於 2010-6-18 09:48 | 顯示全部帖子
回復 9# GBKEE


   
感謝GBKEE版大及Hsieh版大的幫忙，
目前程式執行沒有問題，結果也正確。
內容我還要研究一下，
若有發現其它問題，再來向各位請教。

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題