excel - 将表格从一个 Excel 工作簿导入另一个工作簿工作表

Question

我目前打开了两个工作簿。工作簿 A（例如），其中有一个表格，我想将其导入现有工作簿，工作簿 B。我想将此表导入到我当前在工作簿 B 中使用的同一张工作表中。环顾四周，无法似乎推翻了答案。任何建议将不胜感激。吨

Answer 1

此代码将提示用户选择要复制的另一本书中的范围，然后将其复制到单元格 B2 中的当前工作表。您还可以提示用户选择目的地，只需复制其他输入框代码并修改它以适合您的需要。

Sub Macro1()
    Dim wk As Worksheet
    Set wk = ActiveWorkbook.ActiveSheet

    Dim wkb As Workbook
    Set wkb = Workbooks("Book1.xls")

    wkb.Activate

    On Error Resume Next
        Application.DisplayAlerts = False
            Set rRange = Application.InputBox(Prompt:= _
                "Please select a range with your Mouse to be copied.", _
                    Title:="SPECIFY RANGE", Type:=8)
    On Error GoTo 0
        Application.DisplayAlerts = True

        If rRange Is Nothing Then
            Exit Sub
        End If

    rRange.Select
    Selection.Copy

    wk.Activate
    Range("B2").Select
    ActiveSheet.Paste
End Sub