Erstellen Sie neue Datei mit Werten nur von einer Registerkarte in einer Excel-Arbeitsmappe

Question

Ich versuche, VBA zu verwenden, um Werte nur aus einer einzelnen Registerkarte in einer Excel-Arbeitsmappe (Arbeitsmappe Titel "Arbeitsmappe1" der Einfachheit halber) in eine neue Arbeitsmappe zu kopieren Dann fordert Sie der Benutzer auf, die neue Datei zu speichern. Die Registerkarte innerhalb von "workbook1" heißt "OUTPUT" und die neue Datei sollte Formatierung beibehalten. Wie mache ich das?

Sub nowe() 
    Dim Output As Workbook 
    Dim FileName As String 
    Set Output = Workbooks.Add 
    Application.DisplayAlerts = False 
    ThisWorkbook.Worksheets("OUTPUT").Cells.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 
          SkipBlanks:=True, Transpose:=False 
    Selection.PasteSpecial Paste:=xlPasteFormats 
End Sub 

Das funktionierte, aber Werte nicht fügen:

Sub GetQuote() 
    ThisWorkbook.Sheets("OUTPUT").Copy 
    Application.Dialogs(xlDialogSaveAs).Show 
End Sub 

Answer 1

Dies sollte den Trick tun (ich den Code kommentiert, für eine bessere Erklärung)

Sub CopyOutput() 

    'Define Variable 
    Dim NewBook As Workbook 
    'Create New Workbook 
    Set NewBook = Workbooks.Add 

    'Copy Worksheet "OUTPUT" into new Workbook 
    ThisWorkbook.Sheets("OUTPUT").Copy After:=NewBook.Sheets(1) 

    'Disable Screen updates, delete the first (empty) tab, the new worbook was created with, then reactivate screen updates 
    Application.DisplayAlerts = False 
    NewBook.Sheets(1).Delete 
    Application.DisplayAlerts = True 

    'Open Save as dialog 
    Application.GetSaveAsFilename 

End Sub 

Lassen Sie mich wissen, wenn das funktioniert

Beste seulberg1