為什麼這篇vba開啟txt檔案鄉民發文收入到精華區:因為在vba開啟txt檔案這個討論話題中,有許多相關的文章在討論,這篇最有參考價值!作者seedbcc (志明)看板Office標題[問題] excel 2007用vba開啟文字檔的問...
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:office excel
版本: 2007
新年快樂,大家好
最近在寫一個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