Makro speichert nur das aktive Arbeitsblatt

In der folgende code speichert es die gesamte Arbeitsmappe. Ich will, um nur das aktive Arbeitsblatt.

Sub sbVBS_To_SAVE_ActiveWorkbook()
ActiveWorkbook.Save
End Sub
  • Exportieren Sie das aktive Blatt in eine neue Arbeitsmappe und speichern Sie es dort, aber Sie können nicht speichern Sie ein Arbeitsblatt aus mehreren, in einer einzigen Arbeitsmappe.
  • Danke für Eure Antworten @Jeeped
  • Also ich habe zu sparen alle Blätter in andere Arbeitsmappe.
  • ja, es ist einfach zu erstellen Sie eine neue Arbeitsmappe mit einer Kopie von einem Arbeitsblatt aus der aktuellen Arbeitsmappe.
  • Sub SaveAsMacro() Dim strDir As String 'Show standard save as dialogue box With Application.FileDialog(msoFileDialogSaveAs) If .Show = -1 Then strDir = .SelectedItems(1) End If End With Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=strDir Application.DisplayAlerts = True End Sub
  • Dieser code wird auch speichern Sie die gesamte Arbeitsmappe. Es macht nur einen doppelten ein

InformationsquelleAutor | 2018-02-23
  1. 4

    Kopieren ein Arbeitsblatt in keine location, wird automatisch eine neue Arbeitsmappe in den Vordergrund mit einer Kopie des Arbeitsblatts als einzige Arbeitsblatt in der neuen Arbeitsmappe.

    Sub test()
    worksheets("sheet3").copy
    'there is now a new active workbook
    with activeworkbook
        'save it
        .SaveAs Filename:="some file path and filename without extension", FileFormat:=xlOpenXMLWorkbook
        'optionally close it
        .close savechanges:=false
    end with
End Sub
    • zeigt Fehler voraussichtliche Ende mit
    • Diesen Fehler muss sich aus anderen code, den Sie Hinzugefügt.
    • Sub test() Worksheets("Sheet1").Copy With ActiveWorkbook .SaveAs Filename:="C:\Users\my_name\Documents\Excel\test", FileFormat:=xlOpenXMLWorkbook .Close savechanges:=False End Sub
    • Dies ist der einzige code, den ich habe in meinem sheet
    • Sie fehlen am Ende hatte ich in den obigen code.
    • ich habe End with jetzt und es zeigt, erwartet Ende sub
    • finden Sie unter meinem oben Bearbeiten
    • tolle Arbeit. Danke für die Hilfe

    InformationsquelleAutor
Schreibe einen Kommentar