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

时间:2013-10-15 16:13:24

标签: excel excel-vba import vba

我目前打开两本工作簿。工作簿A(例如),其中有一个表,我想将其导入到现有工作簿,工作簿B.我想将此表导入到我目前在工作簿B中使用的相同工作表中。看了很多但不能似乎推翻了答案。任何建议将不胜感激。 Ť

1 个答案:

答案 0 :(得分:0)

此代码将提示用户选择要复制的另一本书中的范围,然后将其复制到单元格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