[VB6 ] 程式連結excel位置的問題

[sdwufei (玉鼎)]

Dim myxls As Object
Dim mybooks As Object
Dim mybook As Object
Dim mySht As Object
Dim myRange As Object
Dim a As Integer

Set myxls = CreateObject("Excel.Application") '''啟動Excel
Set mybooks = myxls.workbooks
Set mybook = mybooks.Open("1111.xls") '''開檔案
Set mySht = mybook.sheets(1) '''取得Sheet

以上是我連結excel程式的部份，有一些部份還不是很瞭解想請問。

然後我現在程式的最大問題，在於我原本的構想是只要執行檔跟excel在同一
個目錄就可以讀取到。可是我這個程式就算我excel放在跟專案位置同個目
錄也都讀取不到。只有放在"桌面"上的"我的文件"裡面程式才讀的到excel.
請問我該怎麼改呢？

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.64.190.171
※ 編輯: sdwufei         來自: 61.64.190.171        (10/06 02:03)
推 nobody1:開檔案那要設成相對路徑
※ 編輯: sdwufei         來自: 61.64.145.220        (10/07 03:40)
推 sdwufei:謝謝，我會用了。用app.path完成的
→ fumizuki:應該是說絕對路徑
→ sdwufei:絕對路徑就沒有可移動性了吧。路徑都固定了。