1

在 MrExcel.com 上交叉发布

关于如何或是否可以调用活动 .xls 对象的路径的任何想法？

此代码打开并设置 excel 对象 timeXLS 这是我用来循环浏览我电脑上的一些 excel 工作簿的 for 循环

Code:

vFiles = Application.GetOpenFilename("Excel files (*.xls*),*.xls*", Title:="Please select ", MultiSelect:=True)
If TypeName(vFiles) = "Boolean" Then Exit Sub ' Cancelled
Set timeXLS = CreateObject("Excel.Application")
timeXLS.Visible = True
Set R = Worksheets.Add.Range("A1")


  For iFile = LBound(vFiles) To UBound(vFiles)

    timeXLS.Workbooks.Open vFiles(iFile)

    next

我试过的这个语法调用通用 excel 程序的路径 C:\Program Files (x86)\Microsoft Office\Office14\Microsoft Excel

Code:
ThisWorkbook.Sheets("Report").Range("I" & CurrentRow).Value = timeXLS.Path & "\" & timeXLS.Name

此语法生成调试错误 424（“需要对象”）

Code:
ThisWorkbook.Sheets("Report").Range("I" & CurrentRow).Value = vFiles(iFile).Path & "\" & vFiles(iFile).Name

非常感谢您就该问题提供的任何和所有建议或帮助，并感谢大家的宝贵时间。

4

1 回答 1

0

的属性不是你想要的Application。.Path

您已声明timeXLS为Excel.Application.

vFiles(iFile).Path

vFiles是一个数组/变量，而不是一个对象。结合这两种方法（你很接近！）因为.Path是Workbook对象的成员，请尝试：

修改

... = timeXLS.Workbooks(vFiles(iFile)).FullName

于 2013-10-05T15:10:57.670 回答