Импорт вызывает ошибку 1004 во время выполнения. В чем проблема?

Question

У меня странный вопрос сейчас.История: мой Макро работал нормально, но мне нужно было экспортировать его в другой файл и импортировать (включая форматы) необходимые данные (длинная история), звучит достаточно легко, я создаю новый файл (xlsb как оригинал), экспортирую и импортирую модульи переименуйте вкладки соответственно.Я создаю 2 диалоговых окна «открыть файл» и импортирую данные из других файлов.Импорт работает все отлично.

Но следующий код, а также даже очень простая подпрограмма (только для очистки листа) выбрасывает 1004 исключения в виде кодов, как и все, что использует метод (я полагаю).Вот код для импорта на всякий случай.

Public Sub Import()

Dim VarDateiPfad As String
Dim YSource As Workbook
Dim XSource As Workbook
Dim Destination As Workbook

Set Destination = ActiveWorkbook

'Startet "Import" Dialog und legt ausgewählte Datei in "VarDateiPfad" ab
VarDateiPfad = Application.GetOpenFilename("Exceldateien,*.xls*", 1)

'Öffnet die ausgewählte Datei
Set YSource = Workbooks.Open(Filename:=VarDateiPfad, ReadOnly:=False)


    YSource.Sheets("Y").UsedRange.Copy
        Destination.Sheets("Y").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        YSource.Close


VarDateiPfad = Application.GetOpenFilename("Exceldateien,*.xls*", 1)

'Öffnet die ausgewählte Datei
Set XSource = Workbooks.Open(Filename:=VarDateiPfad, ReadOnly:=False)

    XlisteSource.Sheets("X").UsedRange.Copy
        Destination.Sheets("X").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        XSource.Close

---

Привет. Спасибо вам обоим, к сожалению, это просто ошибка, которую я сделал.Я изменил некоторые имена, потому что я не хотел выкладывать настоящие имена в сеть (я полагаю, это параноик), но я проверил все имена переменных в любом случае, и они подходят.

В зависимости от того, какую подпрограмму я выполняю:

Worksheets("Transfer").Range(Cells(VarZeilenTransfer, 1), Cells(VarZeilenTransfer, VarSpaltenTransfer)).Interior.Color = RGB(229, 229, 229)

ИЛИ:

VarZeilenTransfer = Worksheets("Transfer").Cells(Rows.Count, 1).End(xlUp).Offset(1).row

Имена переменных / листов здесь также не являются проблемой (проверили их).Кроме того, листы не только для чтения или что-нибудь.И, как указано, файл Excel является совершенно новым, но, поскольку я скопировал (exp / impo) код из рабочего источника, я полагаю, что проблема не в самом коде (я полагаю).Странная проблема ... Извините, если мои разногласия не очень хороши, пожалуйста, не стесняйтесь спрашивать.