作者seedbcc (志明)
看板Visual_Basic
標題[VBA ] excel 2007開啟文字檔的問題
時間Tue Feb 4 11:29:33 2014
新年快樂
大家好
最近在寫一個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
1F：推 johnpage:請提供部分程式 02/04 19:47
※ 編輯: seedbcc 來自: 124.8.73.180 (02/04 20:55)
2F：→ seedbcc:已補充,謝謝~~ 02/04 20:56
3F：→ seedbcc:在 Workbooks就產生 錯誤的訊息 02/04 20:56
4F：推 johnpage:可能shell 鎖住檔案，你嘗試用已經存在的檔案，不要用she 02/04 21:46
5F：→ johnpage:ll產生的看看 02/04 21:46
6F：→ MOONRAKER:怎麼還多個close #1 沒看到你open 不會錯嗎 02/05 12:15
7F：→ seedbcc:請問如果不用shell,是否有其它方式 產生目錄下的檔案清單 02/05 18:59
8F：→ seedbcc:或是可以釋放shell的memory 02/05 19:00
9F：→ seedbcc:謝謝樓上各位的解答,我會再試看看,再回報 02/05 19:00
10F：推 fumizuki:Dir("路徑\*.xls") 傳回符合條件的第一個檔案名稱 02/05 23:17
11F：→ fumizuki:Dir() 傳回符合最近一次條件的下一個檔案名稱 02/05 23:17
12F：→ MOONRAKER:也可以引用scripting.filesystemobject物件來做。 02/06 15:48
13F：→ seedbcc:請問M大 ,可否提供範例 ....Thanks 02/06 21:41