Question

我有一张包含一个单元格的表单=我想要变暗的文件夹的名称。我想要做的是设置cell =文件名变量。查看我的代码可能会更容易。我目前正在获取“我需要的对象设置输入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")

Answer 1

您尝试将带有关键字Set的对象的引用分配给数据类型（字符串）。< / p>

删除关键字Set，这样就可以了。

Answer 2

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

从工作簿中获取文件路径和名称，并将其存储为字符串变量（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

使用变量来调暗工作表

2 个答案: