使用 VBA 将电子表格从辅助工作簿复制到主工作簿

Question

我需要获取一个电子表格并将其与另一个工作簿中的电子表格进行比较。我知道我可以使用 VBA 来做到这一点，但我需要从另一个工作簿复制电子表格，以便两个电子表格都位于同一个工作簿中并且可以访问以进行比较。如何使用 VBA 将电子表格从一个工作簿复制到另一个工作簿？

Answer 1

您无需复制工作表即可进行比较。只需打开两个 WorkBooks 并设置对 WorkSheets 的引用。

Sub CompareWorkBooks()
    Dim wbPending As Workbook
    Dim wsPending As Worksheet

    Set wbPending = Workbooks("Items Pending")
    Set wsPending = wsPending.Worksheet("Items")

    Dim wbRecieved As Workbook
    Dim wsRecieved As Worksheet

    Set wbRecieved = Workbooks("Items Recieved")
    Set wsRecieved = Worksheet("Items")

End Sub

如果您提供工作簿和工作表的名称并提供列信息，我们可以在更短的时间内为您提供更好的答案。也不要害怕发布您的代码。

如果您希望用户选择目标工作簿和工作表：

• 创建用户表单
• 在代码模块顶部声明 targetWorkbook 和 tartgetWorksheet
• 添加命令按钮和组合框
• 单击按钮时，将打开文件对话框
• 现在为打开的文件设置了引用
• 所有工作表的名称都添加到组合中
• 更改组合框值会将引用设置为 tartgetWorksheet

Option Explicit
Public targetWorkbook As Workbook
Public tartgetWorksheet As Worksheet

Private Sub CommandButton1_Click()
    Dim targetWorkbook As Workbook
    Dim ws As Worksheet
    Set targetWorkbook = getTargetWorkbook

    If targetWorkbook = Nothing Then
        MsgBox "Sowmthing went wrong", vbCritical, "Try Again"
    Else
        For Each ws In targetWorkbook.Worksheets
            ComboBox1.AddItem ws.Name
        Next
    End If

End Function

Function getTargetWorkbook() As Workbook
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        On Error Resume Next
        Set getTargetWorkbook = Application.Workbooks.Open(.SelectedItems(1))
        On Error GoTo 0
    End With
End Function

Private Sub ComboBox1_Change()
    Set tartgetWorksheet = targetWorkbook.Worksheets(ComboBox1.Value)
End Sub