用VBA往一个表格中导入另一个表格

1、实现代码：

Sub 导入数据()

Dim wb As Workbook, Arr

FilePath = Application.GetOpenFilename("Excel fiels,(*.xlsm;*.xlsx;*.xls) *.xlsm;*.xlsx;*.xls")

    If FilePath <> False Then

        Temp = FilePath

    Else

        Exit Sub

    End If

Set wb = GetObject(Temp)

With wb.Sheets("导出资源").UsedRange

    Arr = .Value

End With

Sheet2.[B:AB] = ""

Sheet2.[B1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr

wb.Close

MsgBox "另一个表格的数据导入成功！", vbOKOnly, "数据部"

End Sub

2、导入对象：如图1所示为要导入的另外一个表格，发现它的sheet1命名为“导出资源”与代码

With wb.Sheets("导出资源").UsedRange   是一致的，这两者必须相同

3、导入位置：

图1是我们的操作界面，利用按钮可实现一键导入；

图2 中的  Sheet2.[B:AB]  是我们要存放的位置 ，Sheet2.[B:AB] = ""是进行导入前清空原来的数据  ；Sheet2.[B1] 相当于我们粘贴时的起始单元格

Sheet2.[B:AB] = ""

Sheet2.[B1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr

4、自学渠道：

推荐“我要自学网”，适合0基础的朋友进行系统性学习，重点是它是免费的！ ！ ！