vba - 使用带有 sourcetheme 的 Pastespecial 时出现运行时错误 1004

Question

我正在尝试使用 pastespecial 将复制的数据粘贴到我的工作表中。它工作正常，但如果我想通过添加来保持现有格式
粘贴:=xlPasteAllUsingSourceTheme 我得到一个

runtime error 1004

.任何人都可以帮忙吗？这是一个摘录:

Sub Zielerreichung_TPG124_Aktualisieren()
        Dim status
        Dim status2
        Dim Anz_Zeilen As Integer
        Dim Fehlerstatus As Boolean
        Dim Bereich As Range
        Dim ReportDatei As Workbook

    Dim RohDatei As Workbook
    Dim Pfad As String

    'Beschleunigungen für Operationen
    status = Application.Calculation
    status2 = Application.ScreenUpdating
    Application.Calculation = xlManual      'Automatische Berechung aus
    Application.ScreenUpdating = False      'Screenupdating aus
    Fehlerstatus = Application.DisplayAlerts

    ActiveSheet.Rows(10 & ":" & ActiveSheet.Rows.Count).Delete

    Set ReportDatei = ActiveWorkbook
    Pfad = ReportDatei.Path

    'Öffne Rohdatei -> Achtung: Argument True (Sonst keine CSV Auswertung möglich)
    Workbooks.Open (Pfad & "\ZETPG124.xlsm")
    Set RohDatei = ActiveWorkbook

    'Doppelte & Irrelevante Zeilen löschen
    Rows("1:9").Delete Shift:=xlUp

    'Daten kopieren
    Anz_Zeilen = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row

    Set Bereich = Range(Cells(1, 1), Cells(Anz_Zeilen, 30))
    Bereich.Select
    Bereich.Copy

    'Rohdatei schließen
    Application.DisplayAlerts = False
    RohDatei.Close
    Application.DisplayAlerts = Fehlerstatus

    'Warten vor dem Einfügen
    Application.Wait (Now + TimeValue("0:00:01"))

    'Werte einfügen;

    Range("A10").PasteSpecial Paste:=xlPasteAllUsingSourceTheme

Answer 1

当使用 Paste:=xlPasteAllUsingSourceTheme 选项到 range.PasteSpecial方法，在完成复制和粘贴操作之前不能关闭源。

只需移动以下代码行，

Range("A10").PasteSpecial Paste:=xlPasteAllUsingSourceTheme

...在本节上方，

'Rohdatei schließen
Application.DisplayAlerts = False
RohDatei.Close
Application.DisplayAlerts = Fehlerstatus

...确保您提供了正确的父工作簿/工作表父引用。