Question

假设我有一个包含多个工作表并且包含各种公式的workbook1.xlsm。我想创建一个新的workbook2.xlsx，它将格式保持为workbook1，但在所有单元格中，它们将是值而不是公式。只想从工作簿1中导出20多个工作表中的4个。

下面的VBA代码给了我4张纸，在前两张工作表上留下了公式，在工作表3上做了特殊的粘贴，在工作表4上只是一个值。

我的问题在于表3 - 我有条件格式的列将美元兑换成欧元，美元符号从欧元符号变回美元符号。我错过了什么？我太近了......

Private Sub IntlSaveAsXLSX_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ws As Worksheet
Dim wbNew As Workbook
Worksheets(Array("Charter-IICE", "High Level Requirements", "IICE +- 50% Summary - INTL", "Proposal-Financials")).Copy
Set wbNew = ActiveWorkbook
With wbNew

With .Worksheets(3).UsedRange
    .Copy
    .PasteSpecial xlPasteValuesAndNumberFormats
End With

With .Worksheets(4).UsedRange
.Value = .Value

End With

ActiveWorkbook.SaveAs FileName:="GISG-INTL-COST-MODEL-OUTPUT-CD.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

VBA将多个工作表导出到新工作簿

0 个答案: