VBA在.xlsm工作簿中使用单元格值来命名.xlsx工作簿

Question

将一个工作簿中的单元格值复制并粘贴到另一个相同（锁定）的工作簿中，最后一步是将该工作簿命名为第一个工作簿中的特定单元格值。一切都在命名部分起作用：

    Windows("load from sheet.xlsm").Activate
Range("AD25:AE25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("load to sheet.xlsx").Activate
Range("AD25:AE25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Dim fileName As String
fileName = "D:\CVE\nitro round 5\all service new\load from sheet\" & Range("AO49").Text & ".xlsm"
ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

结束子

Answer 1

您还需要参考工作簿以获取范围。它将默认为Activeworkbook。

Windows("load from sheet.xlsm").activesheet.range("AO49").value

类似的东西。