使用变量使工作表变暗

Question

我有一个带有一个单元格的工作表，该单元格=我想将其暗化为变量的文件夹的名称。 我要做的是设置该单元格=文件名变量。 看我的代码可能会更容易。 我目前在“设置输入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 对象的引用分配给数据类型 （ String ）。

删除关键字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