0

我有一张表，其中有一个单元格 = 我想作为变量变暗的文件夹的名称。我想要做的是设置单元格=文件名变量。查看我的代码可能会更容易。我目前在“设置输入 1”上收到“需要对象的错误”，并且我设置变量的方式可能也是错误的

Dim WbkA As Workbook
Dim Input1 as string

Set Input1 = Workbooks.Open(Filename:="G:\Reporting\ReportCompare.xls").worksheets("Sheet4").Range("A4").Value
Set wbkA = Workbooks.Open(FileName:"Input1")
4

2 回答 2

4

您尝试使用关键字将对象Set的引用分配给数据类型（String）。

删除关键字Set，它会好起来的。

于 2013-05-07T08:42:31.463 回答
1

代码需要稍微重新排序才能突破这些步骤。

  • 从工作簿中获取文件路径和名称，并将其存储为字符串变量 (Input1)。

  • 使用存储在字符串变量 (Input1) 中的值打开文件。

  • 将对打开文件的引用设置为对象变量 (WbkA)。

下面列出的是代码

Sub test()

Dim Input1 As String
Dim WbkA As Workbook

  Input1 = Worksheets("Sheet4").Range("A4").Value 'Get the path and file name
  Workbooks.Open Filename:=Input1  'Open the file
  Set WbkA = ActiveWorkbook 'Set the reference to the workbook

  MsgBox WbkA.Name 'Show the name value from the object.

End Sub
于 2013-05-07T09:07:44.617 回答