Question

到目前为止，这是我的VBA代码：

Sub refreshActionLog()
'Dim current As Worksheet
'Dim source As Workbook
'Dim sourcesheet As Variant
Application.ScreenUpdating = False

Set current = ThisWorkbook.Worksheets("Log")
Set source = Workbooks("G:\Data\Shared\Action Logs\merged.xlsx").Worksheets("merged")

With Intersect(source.Sheets("merged").Columns("A:I"), source.UsedRange)
     .Columns("A").Copy Destination:=current.Range("A6")
     .Columns("B").Copy Destination:=current.Range("B6")
     .Columns("C").Copy Destination:=current.Range("C6")
     .Columns("D").Copy Destination:=current.Range("D6")
     .Columns("E").Copy Destination:=current.Range("E6")
     .Columns("G").Copy Destination:=current.Range("F6")
     .Columns("H").Copy Destination:=current.Range("G6")
     .Columns("H").Copy Destination:=current.Range("H6")
     .Columns("I").Copy Destination:=current.Range("I6")
End With
End Sub

我收到错误“运行时错误'9'：下标超出范围”行：

Set source = Workbooks("G:\Data\Shared\Action 
Logs\merged.xlsx").Worksheets("merged")

此外，'Intersect'是从特定行开始复制和粘贴列的最佳方法。由于运行时错误，我不知道我的代码不会再进一步了。

非常感谢任何帮助。

Answer 1

在您复制之前，请打开merged.xlsx：

Set source = Workbooks.Open("G:\Data\Shared\Action Logs\merged.xlsx")

现在设置工作表：

Dim sourceSheet as Worksheet: Set sourceSheet = source.Worksheets("merged")

现在你可以复制了

sourceSheet.Range("A:I").Copy current.Range("A6")

我没有测试过这段代码，因此可能存在一些语法错误，但这是一般的要点

注意：不要忘记关闭'source'工作簿

如何将列复制并粘贴到从不同行开始的其他工作簿？使用VBA

1 个答案: