Re: [算表] 已解決-巨集處理大量txt轉存xls欄位相減另存
※ 引述《jjccck (科技開始毀滅文明了...)》之銘言:
: 軟體:excel
: 版本:2010
: 我手邊約有1000個記事本(.txt)要轉成excel(.xls)檔案格式
: 記事本內容很規則如圖所附http://ppt.cc/cn00
: 前後兩串數字中間有一個空白鍵隔開
: 所以需求為(.xls)檔轉出來前面字串為A欄,後面字串為B欄
: 然後再存檔,檔名與原記事本相同
: 我現在是用手工法 開啟記事本ctrl+a ctrl+c 切換到excel ctrl+v 存檔
: __________________________________________________________________
: 爬文爬了好久有人教 資料→從文字檔
: 可是這個是單一的檔案
: 我需要類似迴圈一直開,且匯完一個要存檔關閉,開新檔案匯下一個。
: 拜託強大鄉民救救心煩的小弟 感謝!
軟體:excel
版本:2010
我有一個類似這個的問題 也是從記事本(.txt)要轉成excel(.xls)檔案格式
數量也很多 ...
.txt檔案 http://ppt.cc/ld7B
.excel檔案 http://ppt.cc/5f3z
.txt檔案中數值有空格分隔(Tab分隔) 除了第一列是文字外 其餘皆是數字
我看了之前回覆的內容 但是我不會修改 ...
請問有人知道該如何下手嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.116.174
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1404556142.A.1E3.html
※ 編輯: Virgil (220.136.116.174), 07/05/2014 19:07:44
→
07/05 19:56, , 1F
07/05 19:56, 1F
感謝回復!!!
我執行之後只有算了第一個檔案 ....
我修改了之前您回復其他人的檔案 有做到我想要的效果
https://dl.dropboxusercontent.com/u/12203772/txt_to_xls.xls
因為我用不到計算 只是單純把 txt 用 excel 打開 存成 xls 而已 (有tab分隔)
所以很多參數好像都用不到 像是 ....
For Each i In Range("B1", Range("B" & Cells.Rows.Count).End(3))
這個請問要如何精簡刪掉?
※ 編輯: Virgil (220.136.116.174), 07/05/2014 20:10:57
→
07/05 20:39, , 2F
07/05 20:39, 2F
→
07/05 20:39, , 3F
07/05 20:39, 3F
感謝s大! 我刪除不用的語法 精簡如下
https://dl.dropboxusercontent.com/u/12203772/txt_to_xls2.xls
※ 編輯: Virgil (220.136.116.174), 07/05/2014 21:11:32
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
Office 近期熱門文章
PTT數位生活區 即時熱門文章