excel - 在VBA中复制和粘贴时，代码会停止

Question

This question already has answers here:

Excel VBA, getting range from an inactive sheet

(3个答案)


在4个月前关闭。




我在用**表示的行上收到“应用程序定义的错误或对象定义的错误”。我的语法错误吗？

Sub MonthLines()

Dim wkb As Workbook, shifts As Worksheet, inputs As Worksheet, StartDate As Range, EndDate As Range, InputDate As Range, numshifts As Integer, monthstart As Double
Dim monthend As Double, i As Double, n As Double, p As Double

Set wkb = Excel.Workbooks("Call Center Headcount Model v2.xlsm")
Set shifts = wkb.Worksheets("Shifting")
Set inputs = wkb.Worksheets("Inputs")

Set StartDate = wkb.Worksheets("Inputs").Range("C9")
Set EndDate = wkb.Worksheets("Inputs").Range("C10")
Set InputDate = wkb.Worksheets("Shifting").Range("B5")

monthstart = StartDate.Value
monthend = EndDate.Value

Application.Calculation = xlCalculationManual
p = 1

    For i = monthstart To monthend
        InputDate.Value = i
        Calculate
        numshifts = wkb.Worksheets("Shifting").Range("E5").Value
        For n = 21 To numshifts + 21
            With Sheets("Shifting")
            .Range(Cells(n, 1), Cells(n, 6)).Copy
            **wkb.Worksheets("Shift Output").Range(Cells(p, 1), Cells(p, 6)).PasteSpecial Paste:=xlPasteValues**
            End With
        Next n
    p = p + n
    
    Next i
    End Sub

最佳答案

这是一个很好的例子，说明了为什么即使在您认为没有必要的情况下，完全限定所有范围对象也总是很有值(value)的。
确保first line below the With statement works，可能是因为您有该工作表处于 Activity 状态。因此，VBA会隐式分配运行时达到该行时碰巧拥有的任何 Activity 工作表。这就是为什么所有范围对象都应完全合格的原因，其中包括Cells()内的Range()。您在工作表中对Range()进行了很好的限定，但是对的限定并未将扩展到以下方面的Cells()函数:.Range(Cells(n, 1), Cells(n, 6))或wkb.Worksheets("Shift Output").Range(Cells(p, 1), Cells(p, 6))未经测试，但这应该工作:

Dim wsShift As Worksheet, wsSO As Worksheet
Set wsShift = wkb.Worksheets("Shifting")
Set wsSO = wkb.Worksheets("Shift Output")

For i = monthstart To monthend

    InputDate.Value = i
    Calculate
    numshifts = wkb.Worksheets("Shifting").Range("E5").Value
    
    For n = 21 To numshifts + 21
        wsShift.Range(wsShift.Cells(n, 1), wsShift.Cells(n, 6)).Copy
        wsSO.Range(wsSO.Cells(p, 1), wsSO.Cells(p, 6)).PasteSpecial Paste:=xlPasteValues
    Next n
    
    p = p + n

Next i

或者，如果您真的想精通该语言，则放下臭名昭著的慢循环+ .Copy/ .Paste方法，然后使用数组。一次读取，一次读取，而不是读/写任何 numShifts - 21时间:(再次，未经测试)

Dim dataArr() As Variant
dataArr = Workbooks("<ENTER WB>").Worksheets("Shifting").Range("A21:F" & numshifts + 21).Value
wkb.Worksheets("Shift Output").Range("A1:F" & numshifts + 21).Value = dataArr

关于excel - 在VBA中复制和粘贴时，代码会停止，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/63930441/

上一篇：vue.js - 未定义Vue.js引用错误(event.target)

下一篇：swift - 出现错误 “Variable used within its own initial value”

Answer 1

这是一个很好的例子，说明了为什么即使在您认为没有必要的情况下，完全限定所有范围对象也总是很有值(value)的。
确保first line below the With statement works，可能是因为您有该工作表处于 Activity 状态。因此，VBA会隐式分配运行时达到该行时碰巧拥有的任何 Activity 工作表。这就是为什么所有范围对象都应完全合格的原因，其中包括Cells()内的Range()。您在工作表中对Range()进行了很好的限定，但是对的限定并未将扩展到以下方面的Cells()函数:.Range(Cells(n, 1), Cells(n, 6))或wkb.Worksheets("Shift Output").Range(Cells(p, 1), Cells(p, 6))未经测试，但这应该工作:

Dim wsShift As Worksheet, wsSO As Worksheet
Set wsShift = wkb.Worksheets("Shifting")
Set wsSO = wkb.Worksheets("Shift Output")

For i = monthstart To monthend

    InputDate.Value = i
    Calculate
    numshifts = wkb.Worksheets("Shifting").Range("E5").Value
    
    For n = 21 To numshifts + 21
        wsShift.Range(wsShift.Cells(n, 1), wsShift.Cells(n, 6)).Copy
        wsSO.Range(wsSO.Cells(p, 1), wsSO.Cells(p, 6)).PasteSpecial Paste:=xlPasteValues
    Next n
    
    p = p + n

Next i

或者，如果您真的想精通该语言，则放下臭名昭著的慢循环+ .Copy/ .Paste方法，然后使用数组。一次读取，一次读取，而不是读/写任何 numShifts - 21时间:(再次，未经测试)

Dim dataArr() As Variant
dataArr = Workbooks("<ENTER WB>").Worksheets("Shifting").Range("A21:F" & numshifts + 21).Value
wkb.Worksheets("Shift Output").Range("A1:F" & numshifts + 21).Value = dataArr