将活动单元格值设置为 VBA 中的变量

Question

我正在尝试运行一个将打开工作簿的宏，在其上完成一系列程序，保存，关闭。然后在宏工作簿中它将向下移动一行并使用该单元格值作为文件名打开下一个工作簿。

我遇到的问题是如何 VBA 将单元格值存储为变量：

宏的基本内容如下所示：

Dim Num as Long
Num = ActiveSheet.UsedRange.Rows.Count

Dim Name as String
Name = ?

Workbooks.Open Filename:="N:\PricingAudit\FY16 Price Increase\Raw DBF Files\TreatmentFiles\" + Name

...
...

Workbooks(Name).Close
...

任何帮助都会非常有用。在此赞赏：

提前致谢

Answer 1

在工作表中说我们有：

那么这是一种方法：

Sub Dural()
    Dim MyName As String
    MyName = Range("A1").Text
    Workbooks.Open Filename:="C:\TestFolder\" & MyName
    Set wbfirst = ActiveWorkbook
    '.......
    '.......
    '.......
    wbfirst.Close
End Sub

注意：

字符串变量不复制已知的属性 (Name)
我们 close 使用对象而不是 "by name"
我们使用 & 而不是 +

将活动单元格值设置为 VBA 中的变量

Setting an Active Cell Value to a variable in VBA

excel

excel-2010

vba