[已解决]VBA对隐藏工作表操作

jk0932

现在想将一隐藏工作表另存为一个工作簿，使用VBA语句
Sheet1.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\sheet1.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
运行提示错误，选择对象工作表失败，
求教如何选择隐藏工作表数据并建立新的工作簿

最佳答案

月排行榜 / 总排行榜

爱疯

2015-6-10 10:40

Sub test()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    With Sheet2
        .Visible = xlSheetVisible    '取消隐藏
        .Copy
        ActiveWorkbook.SaveAs "c:\123"
        ActiveWorkbook.Close
        .Visible = xlSheetVeryHidden    '再次隐藏
    End With
End Sub
1.rar (8.7 KB, 下载次数: 18)

2015-6-10 10:39 上传

点击文件名下载附件



比如，sheet2是被隐藏的工作表。
本例把另存sheet2为一个工作簿，存放到"c:\"

跳转到最佳答案楼层

爱疯

Sub test()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    With Sheet2
        .Visible = xlSheetVisible    '取消隐藏
        .Copy
        ActiveWorkbook.SaveAs "c:\123"
        ActiveWorkbook.Close
        .Visible = xlSheetVeryHidden    '再次隐藏
    End With
End Sub
1.rar (8.7 KB, 下载次数: 18)

2015-6-10 10:39 上传

点击文件名下载附件



比如，sheet2是被隐藏的工作表。
本例把另存sheet2为一个工作簿，存放到"c:\"

yangkeyuan

好东东，谢谢分享！