隐藏的工作表如何导出！！！！

zhqsl

Book1.zip (10.5 KB, 下载次数: 16)

2011-3-27 22:10 上传

点击文件名下载附件

liu985

先取消工作表隐藏
将工作表的Visible属性值设为-1

紫菜蛋汤

ALT+F11     SHEET2   属性窗口  visible  改为-1

gufengaoyue

试试，没测试过。。

1. 
   
2. Private Sub CommandButton1_Click()
   
3. Dim sh As Worksheet
   
4. For Each sh In Sheets
   
5. If sh.Name <> Sheet1 Then
   
6.     sh.Copy
   
7.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
   
8.     For Each r In ActiveSheet.UsedRange
   
9.       If r.HasFormula = True Then
   
10.       r.Value = r
    
11.       End If
    
12.    Next
    
13.     ActiveWorkbook.Close
    
14. End If
    
15. Next
    
16. End Sub
    
17. 
    

复制代码

[ 本帖最后由 gufengaoyue 于 2011-3-27 23:10 编辑 ]

XJC265

Private Sub CommandButton1_Click()

On Error GoTo 100

Dim i As Integer

For i = 2 To Worksheets.Count

100:

If Worksheets(i).Visible = 0 Then

Worksheets(i).Visible = 1

End If

    Worksheets(i).Copy
   
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name
   
    For Each r In ActiveSheet.UsedRange
        If r.HasFormula = True Then
            r.Value = r
        End If

    Next

        ActiveWorkbook.Close

Next

End Sub

noah8023

没弄明白。弄了几次结果把本来展示的全隐藏了。

liu985

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To Worksheets.Count
    If Worksheets(i).Visible <> -1 Then Worksheets(i).Visible = -1
    Worksheets(i).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name
    For Each r In ActiveSheet.UsedRange
If r.HasFormula = True Then
r.Value = r
End If
Next

    ActiveWorkbook.Close
Next

End Sub