将活动工作簿中的工作表另存为新文件夹中的新xlxs，删除链接的数据源

Question

Excel 2016 寻找正确的语法来保存没有链​​接文件的工作簿。什么是正确的类型：= ?????

这是我到目前为止所拥有的

 ActiveSheet.ExportAsFixedFormat Type:=xlOpenXMLWorkbook, FileName:=FilePath3, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False     

Answer 1

ExportAsFixedFormat方法只能导出为PDF or XPS格式。

要仅创建任何工作表的值，请使用以下代码：

Dim ws as Worksheet
Set ws = Worksheets("mySheet") 'change as needed

ws.Copy 

Dim wb as Workbook
Set wb = ActiveWorkbook

wb.Sheets(1).UsedRange.Value = wb.Sheets(1).UsedRange.Value
wb.SaveAs "C:\MyFolder\MyWorksheet.xlsx"