Question

我正在开发一个vba项目。我的要求是，使用vba代码将现有工作表从excel文件删除/移动到新的excel文件。这意味着将特定工作表保存到新工作簿。我已经尝试了很多，但正在保存的文件不是一个新的工作簿。这是现有的。

代码如下：

xlWorkbook.Sheets("Sheet3").Copy    -- this line opens sheet3 as a new workbook

xlWorkbook.Sheets("Sheet3").SaveAs "***Path where file is be saved***", FileFormat:=56   -- this line save the original excel file including Sheet1 and Sheet2. But requirement is only having Sheet3.

xlWorkbook.Sheets("Sheet3").Delete  -- this line delete the Sheet3 from original as expected.

我不能使用任何类型的参考文件或Excel 12.0对象库。所以如果有人可以建议我或帮助我。会很感激。

Answer 1

使用两行：

xlWorkbook.Sheets("Sheet3").Copy
xlWorkbook.Application.ActiveWorkbook.SaveAs "***Path where file is be saved***", FileFormat:=56

使用vba将特定工作表保存到新工作簿

1 个答案: