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

1、实现代码：Sub 导入数据()Dim wb As Workbook, ArrFilePath = Application.Get晦倘佳鳎OpenFilename("Excel fiels,(*.xlsm;*.xlsx;*.xls) *.xlsm;*.xlsx;*.xls") If FilePath <> False Then Temp = FilePath Else Exit Sub End IfSet wb = GetObject(Temp)With wb.Sheets("导出资源").UsedRange Arr = .ValueEnd WithSheet2.[B:AB] = ""Sheet2.[B1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arrwb.CloseMsgBox "另一个表格的数据导入成功！", 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基础的朋友进行系统性学习，重点是它是免费的！ ！ ！