Question

我现在有一个奇怪的问题。故事：我的Makro运行良好，但是我需要将其导出到另一个文件并导入（包括格式）所需的数据（长故事）听起来很容易，我创建了一个新文件（与原始文件一样xlsb），然后导出并导入模块并相应地重命名标签。我创建2个“打开文件”对话框，并从其他文件导入数据。导入工作一切正常。

但是下面的代码，甚至是一个非常简单的Sub（仅用于清洁纸张），只要出现任何使用方法的东西（我猜），就会引发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)

OR：

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

变量/工作表名称也没有在此出现问题（选中了它们）。工作表也不是只读的或任何东西。并且如前所述，excel文件是全新的，但是由于我从工作源复制了代码（exp / impo），所以我认为问题不在代码本身内（我认为）。奇怪的问题... 抱歉，如果我的口述不是很好，请随时询问。

导入导致1004运行时错误，这是什么问题？

0 个答案: