为什么会出现“类型不匹配”错误？

Question

我试图将范围从一个工作簿复制到另一个工作簿中的表以捕获生产数据。 我能够复制正确的范围并成功打开带有表的工作簿。 但是，当它尝试将信息粘贴到表中的下一个可用行时，出现错误13。我对vba还是很陌生，似乎找不到解决方案，因此不胜感激。

Dim wbTime As Workbook
   Set wbTime = ThisWorkbook

   Dim wbData As Workbook

   Dim N As Long
   N = Cells(Rows.Count, "A").End(xlUp).Row + 1

   Dim UsdRws As Long
   UsdRws = Cells.Find("*", After:=Range("A32"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

   wbTime.ActiveSheet.Range("A6:O" & UsdRws).Copy

   Set wbData = Workbooks.Open("S:\Lean Carrollton Initiative\Allen\Buffering Interrupters\1st Shift\B10\Data.xlsx")

   wbData.ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(N & "A")

   wbData.Close SaveChanges:=True
End Sub

Answer 1

 Destination1:=Worksheets(Sheet1).Range(N & "A") 

@QHarr 正确地识别了Range(N & "A") ，并提出了针对您在Worksheets(Sheet1)遇到的类型不匹配错误的修复程序。

我只是想解释一下正在发生的事情，超出了一个小的注释框。

Sheet1是Worksheet类型的隐式声明的对象变量，其编译时标识符由工作表的(Name)属性确定：

如果将此属性值更改为SummarySheet ，则Sheet1不再是有效的标识符，并且SummarySheet成为一个标识符-这就是为什么在每个模块的顶部指定Option Explicit很重要的部分原因，因为没有它，VBA会很高兴编译并运行，除了现在不是Sheet1是非法的，它现在是一个未定义的Variant/Empty值，可以意外地愉快地传递它，这会使事情很难调试（对于任何未声明的变量，这同样适用，而不仅仅是工作表代码名称）。

因此Sheet1是一个Worksheet对象引用。 如果Worksheet具有返回其Name属性值的默认成员 ，则您的代码将起作用。

但是Worksheet没有默认成员 ，因此Worksheets(Sheet1)将Worksheet对象引用作为参数传递给Worksheets.Item索引器（这是隐式的-因为Worksheets类确实具有默认成员，其Item属性），即期待Variant工作表（持在该名称Variant/String ），或一个数字索引（ Variant/Integer或Variant/Long ）。

将Worksheet对象传递给Worksheet会Worksheets.Item 类型不匹配错误。

因此，假设Sheet1工作表是预期的目标，这将对其进行修复（对QHarr先前确定的Range参数错误进行抽象化）：

wbData.ActiveSheet.Paste Destination:=Sheet1.Range(...)

永远不需要从Worksheets集合中检索ThisWorkbook编译时存在的Worksheets 。

请注意，在原始代码中：

 Destination1:=Worksheets(Sheet1).Range(N & "A") 

由于Worksheets不合格，因此它所属的Workbook是模棱两可的：如果该代码是在ThisWorkbook编写的，则Worksheets是针对Me的成员调用，即ThisWorkbook.Worksheets 。 否则，它“方便地”隐式地指的是当前处于活动状态的任何工作簿 ，这对于编写代码通常是冒险的。

Answer 2

您的范围需要正确的语法

Range("A" & N)

您也可以使用

Cells(N, "A")

并且sheet1应该是"Sheet1"即Worksheets("Sheet1") 。 Sheet1本身（未加引号）将被视为变量。 除非您有该名称的字符串变量？ 使用模块顶部的Option Explicit检查变量声明。

---

@MathieuGuidon的其他评论：

我将添加Sheet1是新工作簿中“ Sheet1”工作表的默认代码名称； 这是VBA免费创建的项目范围标识符，为您提供了对该特定Worksheet对象的编译时引用-因此，从Worksheets集合中检索该对象完全是多余的：Sheet1.Range（...）更可取-理想情况下，应将该工作表的（Name）属性修改为有意义的标识符，例如SummarySheet，它使SummarySheet.Range（...）合法，而无需声明任何SummarySheet变量