[已解决]怎么样备份隐藏的工作表

9910343

ActiveWorkbook.Sheets("sheet1").Copy
ActiveWorkbook.SaveAs "d:\123\" & Date & ActiveSheet.Name
ActiveWorkbook.Close
当sheet1隐藏时就不能备份

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-25 10:46

那就取消再隐藏
Sub TEST()
    With ActiveWorkbook.Sheets("sheet1")
        .Visible = True
        .Copy
        .Visible = False
    End With
    ActiveWorkbook.SaveAs "d:\123\" & Date & ActiveSheet.Name
    ActiveWorkbook.Close
End Sub

跳转到最佳答案楼层

zjdh

那就取消再隐藏
Sub TEST()
    With ActiveWorkbook.Sheets("sheet1")
        .Visible = True
        .Copy
        .Visible = False
    End With
    ActiveWorkbook.SaveAs "d:\123\" & Date & ActiveSheet.Name
    ActiveWorkbook.Close
End Sub

9910343

zjdh 发表于 2012-9-25 10:46
那就取消再隐藏
Sub TEST()
    With ActiveWorkbook.Sheets("sheet1")

还有一个问题问一下老师，怎么样在VBA中设置打印纸张的高宽，或者设成我自己定义的纸张大小（我自定义的纸张大小名称为fp,我发了一个贴，可是没人回应，谢谢