我正在尝试使用语法Workbooks(“Some_Name”)。使用变量工作簿名称激活,例如,var = 1260 name =“Report_”&var所以我可以使用工作簿(名称).activate
但这不适合我。我怎样才能以正确的方式使用它来实现这一目标。
我需要这个,因为我有一个设置列表,我通过它循环获取像{1260,1760 ...}这样的模型编号,我有相同的报告文件集,其名称已经在我的硬盘中作为Report_1260,Report_1760所以我想要将名称变为变量,以便我可以在循环中使用它。
我的逻辑工作正常,当我输入包含空格的工作表名称时,我没有采取因此下标超出范围错误。所以动态地可以使用工作簿名称作为变量..
Workbooks("Code_Activator").Worksheets("Activator").Activate
FolderPath = Range("C7").Value & "\"
FilePath3 = FolderPath & FlName
Set wb3 = Workbooks.Open(FilePath3)
'Parts Confirm Data
Worksheets("Parts upload template").Activate
Range(Range("A1"), Range("A1").End(xlToRight).End(xlDown)).Select
Selection.Copy
Workbooks("Blank_Template").Worksheets("Parts").Activate
Range("A1").Activate
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
'RS Confirm Data
Workbooks(FlName).Worksheets("RS upload").Activate
Worksheets("RS upload").Activate