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

2025-03-14 09:30:39

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 是一致的,这两者必须相同

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

3、导入位置:图1是我们的操作界面,利用按钮可实现一键导入;图2 中的 Sheet2.[B:AB] 是我们要存放的位置 ,Sheet2.[B:AB] = ""是进行导入前清空原来的数据 ;Sheet2.[B1] 相当于我们粘贴时的起始单元格Sheet2.[B:AB] = ""Sheet2.[B1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr

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

4、自学渠道:推荐“我要自学网”,适合0基础的朋友进行系统性学习,重点是它是免费的! ! !

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢