使用变量调暗工作表

我有一个工作表，其中一个单元格=我想要变暗的文件夹的名称。我想要做的是设置该单元格=文件名变量。查看我的代码可能会更容易。我目前得到“我的对象所需的错误‘设置输入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")

来源

2013-05-07 Sean Connecticut

您尝试用关键字Set分配对象的参考到

一个数据类型（字符串）。取出关键字Set并且它会好。

来源

2013-05-07 08:42:31

首先感谢你;那让我通过了可变部分，但现在Set wbkA = Workbooks.Open（filename：=“test”）给了我一个错误。我觉得我应该在现场放置“测试”以外的东西，但不知道是什么。有什么想法吗？ – 2013-05-07 08:47:43

方法_Workbooks.Open_等待一个** FileName **作为参数（更多详细信息请参阅：[链接]（http://msdn.microsoft.com/en-us/library/office/ff194819.aspx））如果您使用像上面这样的变量，使用'Workbooks.Open Input1' – 2013-05-07 08:50:54

需要的代码，以b至稍微重新排序重新执行步骤。

获取从工作簿中的文件路径和名称，并存储为一个字符串变量（输入1）。
使用存储在字符串变量（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-07 09:07:44

+1。你可以做'Set wbkA = Workbooks.Open Filename：= Input1'虽然:) – 2013-05-07 16:13:23

使用变量调暗工作表

回答

相关问题