|
- Sub 导出新工作簿()
- Dim shp As Shape
- Dim fileSaveName
- fileSaveName = Application.GetSaveAsFilename(Sheet12.Range("$j1"), fileFilter:="Microsoft Excel Files (*.xlsx),*.xlsx")
- If fileSaveName = False Then Exit Sub
- Sheets(Array(Sheet12, Sheet13, Sheet14)).Copy
- For Each sht In Sheets
- With sht.UsedRange
- .Value = .Value
- End With
- For Each shp In sht.Shapes
- shp.Delete
- Next
- Next
- ActiveWorkbook.SaveAs fileSaveName
- ActiveWorkbook.Close
- MsgBox "呵呵!另保存成功!"
- End Sub
复制代码 Sheets(Array(Sheet12, Sheet13, Sheet14)).Copy 这句代码我要改成工作表的名(不是工作表的标签名),另外位新的工作薄,这样改了不行,请求下应该怎么改
我的目的是要指定几张工作表另存为新的工作薄,因为工作表的标签名会一直变动,所以只能指定表的名,谢谢
|
|