调用excel时的路径问题

[xiaozhi234]

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Set xlApp = CreateObject( "Excel.Application ")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open( "D:\temp\bb.xls")

请问调用excel时，这里的excel文件路径可不可以不使用绝对路径啊？？
请教如何实现，谢！！

[波导终结者]

app.path & "\bb.xls"

[hwmys]

这个问题简单,同意楼上的.

Set xlBook = xlApp.Workbooks.Open( app.path & "\bb.xls" 
) 

[Hotus]

app.path & "\bb.xls"

[lyserver]

ChDir "D:\Temp"
Set xlBook = xlApp.Workbooks.Open( "bb.xls")

[zhum003]

可以啊，将绝对路径换成app.path即可。

[东方之珠]

如果你的excel文件在你的应用程序路径下面，可以使用相对路径。如：app.path & "\bb.xls"
否则须要使用绝对路径，或者4楼的，设置当前路径！

[caprason]

自己做个选择打开文件按钮

with commondialog1
  .cancelerror = true
  .initdir = app.path
  .filter = "EXCEL文件(*.xls)|*.xls"
  .showopent
end with
  text1.text = commondialog1.filename

然后就可以打开任意选中的XLS文件了。

Set xlBook = xlApp.Workbooks.Open(Text1.text)

[xiaozhi234]

好。。试一下。。谢谢大家。。

[xiaozhi234]

分少了点请大家原谅啊。。每人分一点啊。。谢谢大家。。

[hmh3ks]

以上都是在VB中实现的吧，如果在VC++中怎么实现相对路径呢？请各位高手指点！