[算表] 如何擷取不規則的txt內容到excel?

看板Office作者andywu322 ( )時間9年前 (2016/11/17 09:21)推噓0(0推 0噓 9→)

留言9則, 1人參與討論串1/1

軟體:EXCEL 版本:2003 因為我沒寫過VBA，學VB也是10年前的事，所以在這個版問這些問題可能有點蠢希望大家見諒先總結我的問題，怕底下內容耽誤大家時間，如果想看在繼續往下看我想問以下這些語法 1.VBA 呼叫txt檔的語法 2.讀取txt檔某行的語法 3.判斷某行的首字的語法 4.抓txt檔某行資料到excel檔某欄的語法 << 我要處理的問題如下 >> 假設我有一份從資料庫匯出的TXT檔，內容如下： === TXT檔內容開始 ====================================== 姓名 ---------------------------- 電話分機 ----- ---- 公司名稱內容說明(非txt檔內容) ---------------------------- 張三 '姓名字數固定一致 1111111 0001 '電話跟分機的字數也是固定一致大大公司 '公司名稱的字數不一定李四 2222222 0204 中中中公司姓名 ---------------------------- 電話分機 ----- ---- 公司名稱 ---------------------------- '(不規則情形)這裡跟上面對照，多了一行空白趙五 3333333 0303 小公司錢六 4444444 0102 '(不規則情形)這裡跟上面對照，公司名稱姓名被擠到下一欄 ---------------------------- 電話分機 ----- ---- 公司名稱 ---------------------------- 包賺錢公司 GG '自己加入GG字樣在最後一行， '讓迴圈知道要結束 ===== TXT檔內容結束 ========================== 我想把資料抓到excel檔，變成橫向的欄位如下姓名電話分機公司名稱 _____ _____ _____ __________ 張三 1111111 0001 大大公司我目前的想法是，用一個迴圈控制行數，逐行讀取另一個迴圈控制橫向的資料輸入，因為txt檔內容是每3行為一筆完整資料所以這個迴圈是1~3的循環然後用case條件運算式判斷每行的第一個字元如果是「姓、電、公、-」就離開case 回到迴圈執行下一行如果是null，就離開case回到迴圈如果都不是，就抓資料如果是G（自己加入txt檔末的字），程式整個結束 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 117.56.247.7 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1479345693.A.1D4.html