[已解决]vba创建工作薄并写入内容

alooneee

各位老师，请教：
用VBA创建工作薄，并写入内容后保存并关闭。内容是从打开的表中（如sheet8）整表复制粘贴。同时，将新的工作薄中，没有内容的空白表删除掉。
或者有没有办法，直接将sheet8保存为一个工作薄？
保存路径为D盘。
谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-25 10:51

Sub Click()
    Dim f$

    Application.DisplayAlerts = False
    f = ThisWorkbook.Name & "_副本"
    Sheets(2).Copy
    With ActiveWorkbook
        .SaveAs "d:\" & f
        .Close
    End With
End Sub

b.rar (8.43 KB, 下载次数: 9)

2015-12-25 10:50 上传

点击文件名下载附件


把sheets(2)换成你指定的工作表。

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim f$

    Application.DisplayAlerts = False
    f = ThisWorkbook.Name & "_副本"
    Sheets(2).Copy
    With ActiveWorkbook
        .SaveAs "d:\" & f
        .Close
    End With
End Sub

b.rar (8.43 KB, 下载次数: 9)

2015-12-25 10:50 上传

点击文件名下载附件


把sheets(2)换成你指定的工作表。