Workbooks.Open中的相对路径

标签: , ,

很少用到excel.application对象,所以不是很有研究。

碰到Workbooks.Open打开文件时使用相对路径会出错的问题,例如包含下面代码的VBS文件和data.xls在同一目录下

Dim oExcel
Set oExcel = CreateObject("excel.application")
oExcel.Visible = True
oExcel.Workbooks.Open "data.xls"

运行却会报错

无法找到“data.xls”。请检查文件名的拼写,并检查文件位置是否正确。

如果您正试图从“文件”菜单上最近使用的文件列表中打开文件,请确认文件未被重命名、移动或删除。

看来相对路径相对的不是vbs文件的路径,那么到底是相对哪里的路径呢?答案是“我的文档”,把data.xls放到“我的文档”根目录下再运行代码就不报错了。

随机文章:

  1. WScript.Shell对象SpecialFolders属性未公开文档
  2. VBS监视网络连接与断开
  3. 批处理技术内幕:Unicode
  4. 利用WMI打造完美“三无”后门-Downloader and Uploader
  5. 爱因斯坦带来的悖论

一条评论 发表在“Workbooks.Open中的相对路径”上

  1. shiow1984说道:

    可能我的文档是默认的相对路径吧,相对路径的用法是App.Path & “\date.xls”
    所以最后一句改为oleExcel.Workbooks.Open FileName:=App.Path & “\值班表.xls” ,就可以将你的vbs和date.xls文件放到同一个文件夹下就可以了

留下回复