将表格从一个 Excel 工作簿导入另一个工作簿工作表答案

【问题标题】：Importing a table from one Excel workbook into another workbook sheet将表格从一个 Excel 工作簿导入另一个工作簿工作表
【发布时间】：2013-10-23 13:00:42
【问题描述】：

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

【问题讨论】：

您是否尝试使用宏录制器录制宏并使用它？
每次做都会不一样，所以无法使用录音机
是的，您可以，当您录制了宏时，您需要“仅”修改代码以询问用户您必须从中复制表的文件的名称。我知道这有点复杂，但如果你研究这个解决方案并在这里展示你的一些尝试，你会在 stackoverflow 上获得更多帮助

标签： excel import vba

【解决方案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

【讨论】：

它给了我运行时错误，下标超出范围。不知道为什么，因为我输入了我想要使用的正确 .xls
当前代码假设这本书已经打开。如果你先打开它然后运行它是否有效？另外，请确保文件扩展名正确。 IE。 .xls 或 .xlsx 或 .xlsm