如何使用多个电子表格保存工作簿中的特定电子表格

Question

我有一个工作簿，其中包含多个电子表格和多个分配给按钮的宏。好吧，其中一个按钮负责创建一个名为＆＃34; Savings＆＃34;的新电子表格。并使用建议的名称＆＃34; Saving＆＃34;保存此电子表格。我希望当运行宏弹出saveas窗口时，字段名称建议＆＃34; Savings.xlsm＆＃34;。我的代码创建＆＃34;储蓄＆＃34;电子表格工作得很好，但保存文件不起作用，你们可以帮帮我吗？

Private Sub Relatorio_Saving_Click()

  'Code to create the worksheet named "Savings"

  Application.ScreenUpdating = False
Dim ws As Worksheet

    With ThisWorkbook
    For Each ws In .Worksheets
        If ws.Name = "Savings" Then 'If Savings exists
            Application.DisplayAlerts = False 'Disable warnings
            ws.Delete 'Delete Worksheet
            Application.DisplayAlerts = True 'Enable warnings
            Exit For
        End If
    Next ws

    'Add Savings Worksheet
    Set ws = .Worksheets.Add(After:=.Worksheets(.Worksheets.count))
    ws.Name = "Savings"
End With

之后有很多代码可以在这个工作表上使用Saves对主要目的没用。

最后，我有saveas代码，这不符合我的要求：

With Application.FileDialog(msoFileDialogSaveAs) 'SaveAs Dialog
    .InitialFileName = "Savings.xlsm" 'Suggested Name
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.count > 0 Then
        ThisWorkbook.SaveAs .SelectedItems(1) 'Save File
    End If
End With

此代码保存为整个工作簿，我想要的只是保存为名为Savings的电子表格，当弹出saveas对话框窗口时，我希望Save-Astype文件显示.xlsm