将单元格范围从一个工作簿复制到另一个工作簿会产生400错误

Question

好的，所以我对Excel VBA相对较新。 我正在尝试做一些对我来说似乎很简单的事情，并且有很多关于如何做到这一点的例子，我已经详尽地阅读了这些例子，但是我似乎无法克服这个问题。

我试图将一个工作表中的一系列单元格粘贴到Excel Microsoft Office Professional Plus 2010中。我认为我已将问题简化为可能的绝对简单形式来说明问题。 这只是一个片段。 VictimResults和TempWorksheet变量设置得更高。 我没有包含代码，因为我认为它可能会使问题的表达变得混乱。

Dim SourceWorksheet As Worksheet
Dim TargetWorksheet As Worksheet
Dim SourceRange As Range
Dim TargetRange As Range    

Set SourceWorksheet = VictimResults
Set TargetWorksheet = TempWorksheet
Set SourceRange = Cells(1, 1)
Set TargetRange = Cells(1, 1)    

TargetWorksheet.Range（TargetRange）= SourceWorksheet.Range（SourceRange）我将变量SourceWorksheet，TargetWorksheet，SourceRange和TargetRange放置在手表中，并在最后一行设置断点，它们都是有效对象（不为null）。 当我越过断点时，会出现一个对话框，上面简单地显示“ 400”。

任何帮助深表感谢。

---编辑---我创建了一个完整的VBA文件，该文件复制了该问题。 以为可以帮助某人回答。

Option Explicit

Sub Main()
    GetFirstWorksheetContainsName("Sheet1").Range(Cells(1, 1)).Value = GetFirstWorksheetContainsName("Sheet2").Range(Cells(1, 1)).Value
End Sub

Function GetFirstWorksheetContainsName(worksheetNameContains) As Worksheet
    Dim m As Long
    Dim result As Worksheet

    m = 1

    Do
        If InStr(1, Sheets(m).Name, worksheetNameContains) Then
            Set result = Sheets(m)
            Exit Do
        End If

        m = m + 1
    Loop Until m > ThisWorkbook.Worksheets.Count

    Set GetFirstWorksheetContainsName = result
End Function

这是我尝试过的其他方法，可以使工作变得更冗长。

Option Explicit

Sub Main()
    Sheets("Sheet1").Select
    Range(Cells(1, 1)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range(Cells(1, 1)).Select
    ActiveSheet.Paste
End Sub

当执行第一个Range（Cells（1，1））。Select行时，它给我一个“对象'_Global'的方法'Range'失败”错误。

Answer 1

如果您要复制和粘贴，为什么不使用.copy和.pastespecial 。 它们可能会稍微降低您的代码的速度，但是只要您不复制和粘贴成千上万的东西就可以了。

Answer 2

我不确定400的来源，但是抛出的异常与您的详细示例相同（1004-“对象'_Worksheet'的方法'范围'失败”，并且由于相同的原因而抛出。

问题是您如何处理范围。 Cells(1, 1)隐式设置为活动工作表 ，而不是将其作为参数传递给的范围。 由于只需要一个单元格，因此可以只使用.Cells属性：

Sub Main()

    GetFirstWorksheetContainsName("Sheet1").Cells(1, 1).Value = _
        GetFirstWorksheetContainsName("Sheet2").Cells(1, 1).Value

End Sub

如果您需要复制多个单元格，那么在使用动态范围时，您必须获取对工作表的引用，而不是内联对GetFirstWorksheetContainsName的调用：

Sub Main()

    Dim source As Worksheet
    Dim data As Range

    Set source = GetFirstWorksheetContainsName("Sheet2")
    Set data = source.Range("A1:B2")

    GetFirstWorksheetContainsName("Sheet1").Range(data.Address).Value = data.Value

End Sub

或对其进行硬编码：

Sub Main()

    GetFirstWorksheetContainsName("Sheet1").Range("A1:B2").Value = _
        GetFirstWorksheetContainsName("Sheet2").Range("A1:B2").Value

End Sub