Vb中怎么把已经在后台打开的excel中一个sheet3另存为到桌面？50分

 我来答

1个回答

#热议# 什么是淋病？哪些行为会感染淋病？

linxiwell
推荐于2016-11-12 · TA获得超过409个赞

知道小有建树答主

回答量：1164

采纳率：46%

帮助的人：333万

我也去答题访问个人页

关注

展开全部

sub test()
Set xl = GetObject(,"Excel.Application")
.....
xl.workbooks.add
复制Sheets(3)
在ActiveWorkbook中粘贴
保存
end sub

更多追问追答

追问

想用一个按钮来控制,能写的详细点吗？在后台已经打开一个d:\abc.xls

追答

哥，您在Excel中录制一下宏，基本代码就已经出来了！
    Sheets(3).Cells.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\另存的工作薄.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False