To powinno być naprawdę proste, ale od czasu do czasu prowadziłem fora i odpowiadałem na nie, aby znaleźć odpowiedź bez powodzenia, więc (niechętnie) tworzę własne pytanie.

Próbuję po prostu utworzyć nowy skoroszyt i wkleić zakres z innego skoroszytu do tego skoroszytu. Brzmi prosto ...?

Mój oryginalny skoroszyt, zadzwońmy do Book1. Próbuję stworzyć nowy skoroszyt, Book2, który skopiujęwartości komórek A1: B10 do.

Oto jedna wersja mojego kodu (począwszy od otwartej książki 1):

Range("A1:B10").Copy
Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:="Book2.xls"
    End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Daje to błąd „PasteSpecial of Range class failed”. Próbowałem następujących poprawek bez powodzenia:

dodano „Skoroszyty („ Book2.xls ”). Aktywuj” do koduusunąłem dodatkowe argumenty w linii PasteSpecialpróbowałem „.Paste” zamiast „.PasteSpecial”zmieniono „Selection.PasteSpecial” na „ActiveSheet.PasteSpecial”jawne odwoływanie się do zakresu kopiowania, w tym skoroszytu i odniesienia do arkuszanajpierw utworzyć nowy skoroszyt, a następnie wykonać kopię, przed ponownym włączeniem nowego skoroszytu i wklejeniem

Żadne z powyższych rozwiązań nie zadziała ... każda mądrość na tym etapie zostanie z wdzięcznością przyjęta!