将工作表值保存到另一个工作簿

我有一个代码，可以保存一个特定的工作表，您可以select其文件名和path。 问题是它也复制新的文件保存时的公式。 我只需要复制值，因为文件太大，我不需要在新的保存公式，只是值。

代码如下：

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 

任何build议将不胜感激。 谢谢！

Answer 1

后：

 Set wb = ActiveWorkbook 

join：

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