跨工作簿不同工作表取数测试数据

fengtaozhong

需求：将附件B文件中的“123报表”工作簿中“04预算表”工作表取数取自：A文件夹下的工作簿“456表”中的对应工作表的数据（判断工作表的依据以“123报表”工作簿中“04预算表”B2单元格为判断依据）
恳请老师帮忙，谢谢！

opiona

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row = 2 And Target.Column = 2 Then
   
3.    
   
4.         Path = "C:\Users\fokus\Desktop\跨工作簿不同工作表取数测试数据\A\456表.XLS"   '//自己修改此绝对路径
   
5.         Set wb = Workbooks.Open(Path)
   
6.         Set SHX = wb.Sheets("" & Target.Value)
   
7.         ARR = SHX.Range("A3:e65536").Value 'A1的当前区域的值写入数组(arr=区域.Value)
   
8.         Range("A3").Resize(UBound(ARR, 1), UBound(ARR, 2)) = ARR
   
9.         wb.Close False
   
10.     End If
    
11. 
    
12. End Sub

复制代码

opiona

跨工作簿不同工作表取数测试数据.rar (37.07 KB, 下载次数: 67)

2016-5-9 18:02 上传

点击文件名下载附件

ranger丶亦

学习一下，跨工作簿是个比较难学的啊