怎么在隐藏的状态下，复制到新的工作薄中？

wsagr

点击保存工作薄的时候，能不能在隐藏的状态下，保存工作薄，只保存未隐藏的？

3190496160

Private Sub CommandButton3_Click()
For Each sh In Sheets
    If sh.Visible = True Then
        m = m + 1
        If m = 1 Then
            sh.Copy
            Set wb = ActiveWorkbook
        Else
            sh.Copy after:=wb.Worksheets(wb.Worksheets.Count)
        End If
    End If
Next sh
wb.SaveAs Trim(ThisWorkbook.Sheets("订单模板").Cells(1, 88)) & Trim(ThisWorkbook.Sheets("订单模板").Cells(1, 22).Value) & ".xlsx"
wb.Close
MsgBox "保存完毕"
End Sub

3190496160

五金明细账-财务部-记账版(1).rar (536.64 KB, 下载次数: 7)

2023-3-11 11:46 上传

点击文件名下载附件

3190496160

描述不明确，仅供参考，

静听溪流

判断下每个SHEET表visible属性值  选择需要的sheet表保存就可以了

wsagr

就是订单模板没有数量的我隐藏了，我就箱把没隐藏的给保存到另外一个工作薄中，只是订单模板,格式不变。

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, wks As Worksheet, ar(), r&
   
    Application.ScreenUpdating = False
    strPath = ThisWorkbook.Path & "\"
    For Each wks In Sheets
        If wks.Visible = True Then
            r = r + 1
            ReDim Preserve ar(1 To r)
            ar(r) = wks.Name
        End If
    Next
   
    strFileName = strPath & Cells(1, 22)
    Sheets(ar).Copy
    With ActiveWorkbook
        .SaveAs strFileName
        .Close
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

wsagr

gwjkkkkk 发表于 2023-3-12 11:30
请参考。。。

位置能不能存在E盘下的新建文件夹中，我只想把销售模板这个sheet存过去，后面那个表不要，怎么改？