时间戳

首页 > 解决方案 > VBA 使用 .xlsm 工作簿中的单元格值来命名 .xlsx 工作簿

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

问题描述

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

    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

结束子

标签： excelvba

解决方案

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

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

类似的东西。

推荐阅读