Erstellen Sie eine neue Arbeitsmappe, und kopieren von Arbeitsblättern über

Das problem in Frage dreht sich um eine Arbeitsmappe, die enthält alle meine Daten und Pannen, verteilt in einer Tonne von Arbeitsblättern. Ich versuche Makros einrichten, um den copy select Blätter in eine neue Arbeitsmappe. Ich denke, mein größtes problem ist immer die Codierung Recht für die Ziel-Arbeitsmappe, da der name beinhaltet eine Datums-Zeichenfolge, die ändert sich jeden Tag. Den code habe ich so weit, um einfach erstellen Sie die neue Arbeitsmappe, und schließen Sie es ist:

Sub NewReport()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    MyDate = Date

    Dim dateStr As String
    dateStr = Format(MyDate, "MM-DD-YY")

    Set W = Application.Workbooks.Add

    W.SaveAs Filename:="N:\PAR\" & "New Report Name" & " " & dateStr, FileFormat:=51

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    ActiveWorkbook.Close True
End Sub

Dies funktioniert und tut was ich will in Bezug auf erstellen Sie das neue Dokument, benennen Sie es so, wie es sollte benannt werden, und am Ende schließen. Was ich Hilfe brauche ist, dass im mittleren Teil zum kopieren bestimmte Blätter aus der ursprünglichen Arbeitsmappe zu diesem neuen. Was ich dachte, war entlang der Linien von:

 With Workbooks("Original Workbook.xlsm")
            .Sheets(Array("Sheet1", "Sheet2")).Copy_ Before:=Workbooks("destination.xls").Sheet1

Oder zumindest einige array-Typ, genau das zu bekommen was ich will, zu übernehmen. Der größte Knackpunkt ist immer die Ziel-Arbeitsmappe-Pfadangabe korrekt ist. Jede Beratung über die einzelnen Stücke dieses kleine Projekt oder das ganze wird sehr geschätzt. Danke!

EDIT: ich muss auch darauf hinweisen, dass die neue Arbeitsmappe erzeugt werden muss, werden einfach nur alte excel-format (.xlsx). Keine Makros, keine Sicherheits-Warnung für die automatische Aktualisierung von links oder aktivieren von Makros, zip. Nur ein schlichtes Buch der Blätter, die ich sagen, es dort zu setzen.

InformationsquelleAutor Jon | 2011-09-30

Schreibe einen Kommentar