返回列表 上一主題 發帖

[發問] 請教EXCEL內容資料匯出成TXT檔的設定

ianlcc

帖子
37 
主題
15 
精華
0 
積分
58 
點名
0  
作業系統
WIN XP＆WIN 7 PRO 
軟體版本
OFFICE 2003＆AUTOCAD 2008 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-2 
最後登錄
2024-3-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-2-17 23:09 | 顯示全部帖子

[發問] 請教EXCEL內容資料匯出成TXT檔的設定

請教一下
因為有工作需求，需要將EXCEL表中的資料彙整並匯成TXT檔
共有幾萬筆…所以在這向各位請教，請見諒。
如果想要將EXCEL表格中的資料，匯出成TXT檔
一、工作表1
A1欄位：AAAAA
B1∼B20：數字B1∼B20(假設到第20列)
C1∼C20：數字C1∼C20(假設到第20列)
D1∼D20：數字D1∼D20(假設到第20列)

→匯出TXT檔變成：_AAAAA B1 C1D1 B2 C2 D2 B3 C3 D3 B4 C4 D4……
備註：
⑴自動判斷如果B、C、D欄填入的數字只有第10列的話，_AAAAA 後面就只會填到第10列的數字
⑵A1欄位就看輸入什麼英文字，在TXT就顯示_英文字
⑶每個英文字及數字間以「空格」

二、工作表2
A1欄位：AAA（英文字）
B1欄位：BBB（英文字）
C1欄位：CCC（英文字）
D1∼D20：數字(假設到第20列)
→匯出TXT檔變成：
①_AAA (BBB_D1 BBB_D2 BBB_D3 BBB_D4…) CCC
②如果D欄位只有D1有數字的話（D2∼D20空白的話），就變成_AAA BBB_D1 CCC
③自動判斷如果D欄填入的數字只有第10列的話，只會加到BBB_ 後面就只會填到第10列的數字。
④A1、B1、C1欄位就看輸入什麼英文字，在TXT就顯示_英文字
⑤每個英文字及數字間以「空格」

不好意思，可以指導一下嗎？謝謝各位前輩指教∼
收藏 分享

ianlcc

帖子
37 
主題
15 
精華
0 
積分
58 
點名
0  
作業系統
WIN XP＆WIN 7 PRO 
軟體版本
OFFICE 2003＆AUTOCAD 2008 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-2 
最後登錄
2024-3-15 
2#
發表於 2014-2-18 18:58 | 顯示全部帖子
回復  ianlcc
看的眼花,請上傳Excel檔,Txt檔,
GBKEE 發表於 2014-2-18 16:48


txt.rar (8.36 KB)
我已經將範例附上檔案
共有四個檔案
一個EXCEL對應三個TXT檔
請參考！謝謝∼

TOP

ianlcc

帖子
37 
主題
15 
精華
0 
積分
58 
點名
0  
作業系統
WIN XP＆WIN 7 PRO 
軟體版本
OFFICE 2003＆AUTOCAD 2008 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-2 
最後登錄
2024-3-15 
3#
發表於 2014-2-19 11:45 | 顯示全部帖子
感恩您的協助及幫忙
我剛剛測試了一下，發現有一個問題
我要RUN工作表2的時候，存檔是存「工作表3」的名稱，而且結果也是工作表3的內容
工作表2的資料無法生成TXT檔！

回復  ianlcc
GBKEE 發表於 2014-2-19 08:08

TOP

ianlcc

帖子
37 
主題
15 
精華
0 
積分
58 
點名
0  
作業系統
WIN XP＆WIN 7 PRO 
軟體版本
OFFICE 2003＆AUTOCAD 2008 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-2 
最後登錄
2024-3-15 
4#
發表於 2014-2-19 11:47 | 顯示全部帖子
您好
我剛剛修正了一下
把With Sheets("工作表3")改成With Sheets("工作表2")
就正常了
非常的感謝您的幫忙，我再RUN RUN∼
不然的話，我光是1萬多筆資料，我會瘋掉！！

感恩您的協助及幫忙
我剛剛測試了一下，發現有一個問題
我要RUN工作表2的時候，存檔是存「工作表3」的名稱 ...
ianlcc 發表於 2014-2-19 11:45

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題