EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
用VBA往一个表格中导入另一个表格
来源：互联网
2023-02-20 19:36:00 203
利用VBA实现一键导入另一个表格的数据，为我们免去复制粘贴的步骤，让你的工作更加高效；
在多表统计分析的时候优势更为突出
工具/原料
- Excel
方法/步骤
实现代码：
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
导入对象：如图1所示为要导入的另外一个表格，发现它的sheet1命名为“导出资源”与代码
With wb.Sheets("导出资源").UsedRange 是一致的，这两者必须相同
导入位置：
图1是我们的操作界面，利用按钮可实现一键导入；
图2 中的 Sheet2.[B:AB] 是我们要存放的位置 ，Sheet2.[B:AB] = ""是进行导入前清空原来的数据 ；Sheet2.[B1] 相当于我们粘贴时的起始单元格
Sheet2.[B:AB] = ""
Sheet2.[B1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
自学渠道：
推荐“我要自学网”，适合0基础的朋友进行系统性学习，重点是它是免费的！ ！ ！
注意事项
- 导入时，sheet2中不能处于筛选状态，否则会影响导入结果
- 导入后，文本格式的数字会自动转化为常规格式，注意0001变成1的情况
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
