ws.copy before:=newws
时间: 2023-09-10 16:04:34 浏览: 51
抱歉,我之前给出的代码有误。要将被设置为 "VeryHidden" 的工作表复制到新工作簿中,可以使用以下代码:
```vba
Sub CopyAndHideSheet()
Dim wb As Workbook
Dim newWb As Workbook
Dim ws As Worksheet
Dim newWs As Worksheet
' 新建一个工作簿
Set newWb = Workbooks.Add
' 获取当前工作表
Set ws = ThisWorkbook.ActiveSheet
' 复制当前工作表到新工作簿
ws.Copy Before:=newWb.Sheets(1)
' 获取新工作簿的第一个工作表
Set newWs = newWb.Sheets(1)
' 将新工作表设置为 "VeryHidden"
newWs.Visible = xlSheetVeryHidden
' 保存新工作簿
newWb.SaveAs "C:\路径\新工作簿名.xlsx" ' 替换为您希望保存的路径和文件名
' 关闭新工作簿
newWb.Close SaveChanges:=False
' 激活原始工作簿
ThisWorkbook.Activate
End Sub
```
此代码将复制当前活动工作表到一个新的工作簿中,并将新工作表设置为 "VeryHidden"。然后,它将保存新的工作簿,并关闭它。最后,它将激活原始工作簿。
请确保将 `"C:\路径\新工作簿名.xlsx"` 替换为您希望保存的路径和文件名。
很抱歉给您带来困扰,希望这次能帮到您!如果您还有其他问题,请随时提问。