VBA：复制范围。运行时错误 9 - 下标超出范围

Question

我是 VBA 新手。我正在尝试将列从一个工作簿复制到另一个工作簿。下面是我尝试使用的 sub，但出现“运行时错误 9 - 下标超出范围”的错误。有什么建议吗？

Sub copydata(wbSource As String, wsSource As String, rangeSource As String, wbDest As String, wsDest As String, rangeDest As String)
    Workbooks(wbSource).Worksheets(wsSource).Range(rangeSource).copy Destination:=Workbooks(wbDest).Worksheets(wsDest).Range(rangeDest)
End Sub

Sub result()
    ' I also tried to set wsSource and wsDest to 1 but still doesn't work
    Call copydata("es.csv", "es", "A:B", "Workbook1.xlsm", "result", "A:B")
End Sub

谢谢

编辑： 它们在同一个目录中。我在 Workbook1.xlsm 中创建模块

Answer 1

复制时它们必须都是打开的，它们都在同一个文件夹中没有关系。

你应该打开它们，然后你可以复制数据。

检查两个工作表名称（es 为 es.csv，结果为 Workbook1.xslm）

Sub copydata(wbSource As String, wsSource As String, rangeSource As String, 
wbDest As String, wsDest As String, rangeDest As String)
    Workbooks(wbSource).Worksheets(wsSource).Range(rangeSource).Copy 
Destination:=Workbooks(wbDest).Worksheets(wsDest).Range(rangeDest)
End Sub

Sub result()
    ' I also tried to set wsSource and wsDest to 1 but still doesn't work
    If Not IsWorkbookOpen("es.csv") Then OpenWorkbook ("es.csv")
    End If
    Call copydata("es.csv", "es", "A:B", "Workbook1.xlsm", "result", "A:B")
End Sub

Sub OpenWorkbook(fileName As String)
    Dim activePath As String
    activePath = Application.ActiveWorkbook.Path
    Application.Workbooks.Open (activePath & Application.PathSeparator & 
fileName)
End Sub

Private Function IsWorkbookOpen(wbName As String) As Boolean
    Dim wb As Workbook

    On Error GoTo Handler
    Set wb = Workbooks(wbName)
    If wb.Name = wbName Then
        Set wb = Nothing
        IsWorkbookOpen = True
    Else
Handler:
        IsWorkbookOpen = False
    End If
End Function