作者sdwufei (玉鼎)
看板Visual_Basic
标题[VB6 ] 程式连结excel位置的问题
时间Fri Oct 6 02:01:58 2006
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)
1F:推 nobody1:开档案那要设成相对路径 10/07 01:27
※ 编辑: sdwufei 来自: 61.64.145.220 (10/07 03:40)
2F:推 sdwufei:谢谢,我会用了。用app.path完成的 10/07 06:09
3F:→ fumizuki:应该是说绝对路径 10/07 09:58
4F:→ sdwufei:绝对路径就没有可移动性了吧。路径都固定了。 10/07 15:59