我现在有一个奇怪的问题。 故事:我的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),所以我认为问题不在代码本身内(我认为)。奇怪的问题... 抱歉,如果我的口述不是很好,请随时询问。