跨工作簿引用

excelqz

各位大侠，下午好。我想从数据源表格中录入数据，再从目标表格中仅录入姓名，就直接调取数据源中的所有数据。不知道VBA如何操作？
恳请大伙伸出援助之手，帮我看看，谢谢

excelqz

朱荣兴 发表于 2018-7-9 15:04
放到页面代码区域
Private Sub Worksheet_Change(ByVal Target As Range)
Set sh = ThisWorkbook.ActiveS ...

感谢版主，再弱弱的问一下，我怎么运行不成功呢

excelqz

朱荣兴 发表于 2018-7-9 15:29
输入姓名，自动获取数据呀，

好的，感谢帮忙

lsc900707

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     If T.Row = 2 And T.Column = 2 Then
   
3.         Set wb = GetObject(ThisWorkbook.Path & "\数据源.xlsx")
   
4.         wb.Sheets(T.Value).Cells(3, 1).Resize(12, 3).Copy [a3]
   
5.         wb.Close False
   
6.     End If
   
7. End Sub

复制代码

lsc900707

附件供参考：

excelqz

朱荣兴 发表于 2018-7-9 15:29
输入姓名，自动获取数据呀，

版主，还得再请教一下，如果我需用使用2次这个代码，系统提示我“发现二义性的名称：Worksheet_Change”
我需要再怎么改下呢？麻烦您了

excelqz

lsc900707 发表于 2018-7-9 16:00
附件供参考：

感谢版主赐教,如果需用再引用一个工作簿，系统会提示“发现二义性的名称：Worksheet_Change”，该怎么处理呢？