excel表单另保存的问题求助（附件在最下面）

donggebenren

excel工作表中Sheet1添加按钮输入宏，可以指定保存目录并保存，那么我想在Sheet2,3,4中也添加按钮并保存对应页（Sheet2,3,4），应该改哪里？


Private Sub CommandButton1_Click()
    Dim NowWorkbook As Workbook, wb As Workbook, Sht As Worksheet
    Dim FileName As String, nm$, n&
    On Error GoTo line
    Set wb = ThisWorkbook
    nm = Sheet1.[a1].Value
    FileName = Application.GetSaveAsFilename _
        (InitialFileName:="C:\Users\Administrator\Desktop\zuozuo27\00\02采购报告" & nm, _
        fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")
    If FileName <> "False" Then
        Set NowWorkbook = Workbooks.Add
        With NowWorkbook
            .SaveAs FileName
            n = 0
            For Each Sht In wb.Sheets
                n = n + 1
                Sht.UsedRange = Sht.UsedRange.Value
                Sht.UsedRange.Copy .Sheets(n).Range("A1")
                For Each shp In .Sheets(n).Shapes
                    shp.Delete
                Next
            Next
            .Save
        End With
        GoTo line
    End If
    Exit Sub
line:
    ActiveWorkbook.Close
End Sub

laoau138

......................................没有人回答