[VBA ] excel 2007開啟文字檔的問題

看板Visual_Basic作者 (志明)時間11年前 (2014/02/04 03:29), 編輯推噓3(3011)
留言14則, 4人參與, 最新討論串1/1
新年快樂 大家好 最近在寫一個Excel 2007的VBA。其中的程式碼,開啟文字檔會出現錯誤訊息,如下列 「執行階段錯誤 '1004':找不到'list.txt '。請檢查檔名是否有拼錯,或是檔案位置是否正確。.................」 詳細錯誤訊息,請詳以下網址的圖示 http://ppt.cc/YdfM 有確認檔案存在位置及檔名都正確,並且有先用google找過解決的方法, 試過後,執行時一樣有相同的錯誤訊息。 請教各位達人高手 是否可以幫忙看看並解決,感謝! 補充 "部份程式"如下,謝謝! Sub cmd() cmdstr1 = "cmd /c del D:\list.txt" retval = Shell(cmdstr1, 0) cmdstr = "cmd /c dir/b D:\JOB\dormantID_Review\VBA\*.xls > D:\list.txt" retval = Shell(cmdstr, 0) '開啟"檔案清單文字檔" Workbooks.OpenText Filename:="D:\list.txt" '計算文字檔有幾列 last_row = ActiveSheet.UsedRange.Rows.Count '將檔案名稱分別填入頁籤(Sheet2)每一列的第一欄 For i = 1 To last_row Sheet2.Cells(i, 1).Value = Cells(i, 1).Value Next i ActiveWorkbook.Close '關閉剛才開啟的檔案清單文字檔 Close #1 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 124.8.81.108

02/04 19:47, , 1F
請提供部分程式
02/04 19:47, 1F
※ 編輯: seedbcc 來自: 124.8.73.180 (02/04 20:55)

02/04 20:56, , 2F
已補充,謝謝~~
02/04 20:56, 2F

02/04 20:56, , 3F
在 Workbooks就產生 錯誤的訊息
02/04 20:56, 3F

02/04 21:46, , 4F
可能shell 鎖住檔案,你嘗試用已經存在的檔案,不要用she
02/04 21:46, 4F

02/04 21:46, , 5F
ll產生的看看
02/04 21:46, 5F

02/05 12:15, , 6F
怎麼還多個close #1 沒看到你open 不會錯嗎
02/05 12:15, 6F

02/05 18:59, , 7F
請問如果不用shell,是否有其它方式 產生目錄下的檔案清單
02/05 18:59, 7F

02/05 19:00, , 8F
或是可以釋放shell的memory
02/05 19:00, 8F

02/05 19:00, , 9F
謝謝樓上各位的解答,我會再試看看,再回報
02/05 19:00, 9F

02/05 23:17, , 10F
Dir("路徑\*.xls") 傳回符合條件的第一個檔案名稱
02/05 23:17, 10F

02/05 23:17, , 11F
Dir() 傳回符合最近一次條件的下一個檔案名稱
02/05 23:17, 11F

02/06 15:48, , 12F
也可以引用scripting.filesystemobject物件來做。
02/06 15:48, 12F

02/06 21:41, , 13F
請問M大 ,可否提供範例 ....Thanks
02/06 21:41, 13F

02/07 02:19, , 14F
02/07 02:19, 14F
文章代碼(AID): #1Iy5wWa4 (Visual_Basic)