(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: 版本:Excel 2007 我想要將某資料夾內的文字檔...一個一個讀進EXCEL內 如果txt檔內.都是三行的文字.並且以空格去做分隔的檔案... 如果我只想擷取第一行和第三行...應該如何寫 而且我希望每個文件檔匯入到EXCEL內時..欄位要隔三行... 下面這是txt範例: 第一行 第三行 A1 B1 1 A2 B2 2 A3 B3 3 A4 B4 4 A5 B5 5 A6 B6 6 A7 B7 7 我用open XXXXX For Input As #1 .....好像不能用空格去區隔.. 例如:我要在C2欄位讀到A1,D2欄位讀到1 ==================================== 下面這是我寫的程式: i = 1 m = 3 j = 1 myPath = "C:\test\" myFName = Dir(myPath & "*.txt", vbNormal) '讀進檔案名稱 Do While myFName <> "" myArry(i) = myFName myFName = Dir() i = i + 1 Loop '匯入檔案到EXCEL內 For k = 1 To i - 1 Worksheets("主程式").Cells(1, 1).Select Open myPath & myArry(k) For Input As #1 Do Until EOF(1) Input #1, mybuf(1), mybuf(2), mybuf(3) j = j + 1 Cells(j, k * m) = mybuf(1) Cells(j, k * m + 1) = mybuf(2) Loop Close #1 Next k -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.205.138.242 ※ 編輯: zchien 來自: 123.205.138.242 (04/25 00:14)