將工作表值保存到另一個工作簿

Question

我有一個代碼可以保存特定的工作表，您可以在其中選擇其文件名和路徑。問題是它也會在保存新文件時複製公式。我只需要複製值，因爲文件太大，我不需要新保存中的公式，只需要值。

下面的代碼：

Dim wb As Workbook, InitFileName As String, fileSaveName As String 

InitFileName = ThisWorkbook.Path & "\ - Recon_Output_ " & Format(Date, "yyyymmdd") 

Sheets("Source").Copy 

Set wb = ActiveWorkbook 

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitFileName, _ 
FileFilter:="Excel files , *.xlsx") 

With wb 
    If fileSaveName <> "False" Then 

     .SaveAs fileSaveName 
     .Close 
    Else 
     .Close False 
     Exit Sub 
    End If 
End With 

任何建議將不勝感激。謝謝！

Answer 1

後：

Set wb = ActiveWorkbook 

添加在：

tempArr = wb.Sheets("Source").UsedRange 
wb.Sheets("Source").UsedRange = tempArr