EXCEL VBA 檔案開啟失敗?

我在EXCEL 2003簡單寫了一個VBA如下,

Sub Opentest()

Workbooks.OpenText Filename:="test.txt", _

DataType:=xlDelimited, _

Space:=True, _

ConsecutiveDelimiter:=True

End Sub

但執行時會產生

執行階段錯誤 '1004':

找不到 'test.txt'。請檢查檔名是否有拼錯,或是檔案位置是否正確。

請問該如何解決?謝謝!

已更新項目:

我將text.txt檔案放在與xls檔同一個資料夾,是否可以設定相對路徑之類的東西?

2 個已更新項目:

由於我的vba巨集儲存於PERSONAL.XLS。ThisWorkbook.Path顯示PERSONAL.XLS位置。ThisWorkbook.Path是否應改為ActiveWorkbook.Path?

2 個解答

評分
  • 1 0 年前
    最佳解答

    解決方式

    將test.txt放在同目錄下

    Workbooks.OpenText Filename:=ThisWorkbook.Path & "/test.txt";

    很確定路徑錯誤,一定要寫入完整路徑,

    未來在你程式發展需要彈性更換位置的情況下,

    上面這種寫法會幫助你許多。

    2007-09-04 09:25:09 補充:

    呵,正確

    ActiveWorkbook.Path

    ^^|

    很不錯喔,學習得很快~~

    相信你一定會成長許多 ^^

    2007-09-04 09:28:32 補充:

    抱歉筆誤.....^^| 真糟,呵

    參考資料: VBA-1年
  • 1 0 年前

    開啟檔案時會以EXCEL預設路徑開啟,所以最好寫明檔案路徑。

    例如

    Workbooks.OpenText Filename:="C:\test\test.txt", _

    2007-08-27 11:23:37 補充:

    或是該路徑沒有這的檔案~

    2007-08-27 15:01:02 補充:

    如果已將text.txt檔案放在與目前xls檔同一個資料夾,可用以下方法

    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\test.txt", _

還有問題?馬上發問,尋求解答。