[求助]另存文件中,不保留所有控件按钮

oreital

FHg6x50k.rar (43.77 KB, 下载次数: 7)

2008-2-19 10:40 上传

点击文件名下载附件
[求助]另存文件中,不保留所有控件按钮

请教

内容见附件

oreital

怎么没有可以解题

冰山上的来客

Sub mySaveAs()
Dim Wb As Workbook, Rng As Range
Set Rng = Sheet9.Range("A1:N84")
Set Wb = Workbooks.Add
Rng.Copy Wb.ActiveSheet.Range("A1")
'Wb.SaveAs
End Sub

oreital

谢谢,确实没有什么按钮了. 但格式都变了. 再请指点是否可以保持原有的格式

静候佳音

冰山上的来客

QUOTE:

以下是引用oreital在2008-2-19 13:17:20的发言：

谢谢,确实没有什么按钮了. 但格式都变了. 再请指点是否可以保持原有的格式

静候佳音

Set Rng = Sheet9.Range("A:N")

冰山上的来客

或者：

Sub mySaveAs()
On Error Resume Next
Dim Wb As Workbook, Rng As Range
    Set Rng = Sheet9.Range("A:N")
    Set Wb = Workbooks.Add
    Rng.Copy Wb.ActiveSheet.Range("A1")
    Wb.ActiveSheet.DrawingObjects.Delete
'Wb.SaveAs
End Sub

oreital

基本OK了,谢谢冰山上的来客