vba - Excel VBA - 从关闭的工作簿复制整个列

Question

我有一个 Excel 工作簿，其中包含大量信息，我想将其提取并插入到包含此宏的新工作簿中。

我真正想要的是一个通用函数，它接受几个参数，例如源文件和列。我只需要列，但需要源文件中的整个列。

这就是我想象的函数的样子(伪代码)

Public Function getColumnFromWorkbook(ByVal strSourceFile, ByVal sourceWorksheet)
    Application.ScreenUpdating = False
    Set wb = Workbooks.Open(strSourceFile, True, True)

    With ThisWorkbook.Worksheets(destSheet)
        .column(1) = wb.Worksheets(sourceWorksheet).Columns(sourceColumn)
    End With        
End Function

上面的功能可能不起作用。但它可能会显示我本质上追求的东西:)

Answer 1

这似乎对我有用 - 请注意我已经扩展了参数列表。没有错误检查。

Public Function getColumnFromWorkbook(ByVal strSourceFile As String, ByVal sourceWorksheetName As String, ByVal sourceColumn As Long, ByVal destSheet As Worksheet)

    Application.ScreenUpdating = False

    Dim wb As Workbook
    Set wb = Workbooks.Open(strSourceFile, True, True)
    wb.Worksheets(sourceWorksheetName).Columns(sourceColumn).Copy (destSheet.Columns(1))
    wb.Close

    Application.ScreenUpdating = True

End Function