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基础的朋友进行系统性学习，重点是它是免费的！ ！ ！