access数据导出到excel模板中,我想在代码中引用它的相当路径

yanwei82123300

各位老师帮助看看我做了一个access数据导出到excel模板中，但是我想在代码中引用它的相当路径，
而不是绝对的路径（例子：Set xlsBook = xlsAPP.Workbooks.Open("D:\机加工\FISHER机加工追踪卡模板.XLT")绝对路径，但是系统提示“类型不匹配”），请帮助看看
我想使用下面代码替换
Set xlsBook = xlsAPP.Workbooks.Open("D:\机加工\FISHER机加工追踪卡模板.XLT")
替换成
Set xlsBook = CurrentProject.Path & "\FISHER机加工追踪卡模板.XLT"

ganlinlao

菜鸟帮你回一下吧
多这几行代码
dim xlsFileName as string
xlsFileName = CurrentProject.Path & "\FISHER机加工追踪卡模板.XLT"
Set xlsBook = xlsAPP.Workbooks.Open(xlsFileName)

yanwei82123300

ganlinlao 发表于 2013-11-8 08:32
菜鸟帮你回一下吧
多这几行代码
dim xlsFileName as string

ganlinlao 看看帮助修改一下我的例子，谢谢！

yanwei82123300

ganlinlao 发表于 2013-11-8 08:32
菜鸟帮你回一下吧
多这几行代码
dim xlsFileName as string

老师，请问Set xlsBook = xlsAPP.Workbooks.Open(xlsFileName)中的xlsFileName如何填写呢？谢谢帮助

tmtony

xlsFileName 就是文件名

yanwei82123300

系统提示错误

koutx

yanwei82123300 发表于 2013-11-8 12:57
系统提示错误

按下图确认文件所在路径:


下图时Open模板一行的代码:


导出成功

yanwei82123300

koutx 老师谢谢帮助！！