軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1479345693.A.1D4.html