求excel跨工作薄引用下拉列表的vba代码

Answer 1

跨工作簿引用数据有效性在2003必须用VBA才能实现。
先建立工作簿Book1.xls，在A列建立数据源并保存工作簿。再建立ABC.xls工作簿并在sheet1工作表输入下面代码，如更改工作簿名称代码中的工作簿名称需作相同更改。ABC.xls工作簿从第3行起点击任何单元格均可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
If Target.Row < 3 Then Exit Sub
a = Target.Row: B = ActiveCell.Column
Workbooks.Open ThisWorkbook.Path & "\Book1.xls"
C = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A65536").End(xlUp).Row
arr = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A1:A" & C).Value
arr = Application.Transpose(arr)
With Workbooks("abc.xls").Worksheets("Sheet1").Cells(a, B).Validation
.Delete
.Add 3, 1, 1, Join(arr, ",")
End With
Workbooks("Book1.xls").Close False
End Sub

Answer 2

不用VBA代码的。
1.为下拉列表的Ranges定义名称（名称管理员）
2.在资料校验时选择清单，在公式栏位输入刚才定义的名称，记得前面加"="号。

追问

这是引用相同工作薄的做法哦，我想解决引用不同工作薄的下拉列表，不用vba代码好像无法实现此功能。

追答

试试加上工作簿名。
＝“工作簿！名称”

追问

这样不可以的， 显示“不能引用其他工作薄的数据”。

追答

VBA代码思路：
工作簿内专门有一个工作表存放下拉列表资料，每次打开工作簿时，先将另一个工作簿的下拉列表数据复制（更新）到需要的工作簿内的这个专门工作表上。

追问

这个方法确实可以实现，但是其实质还是引用相同工作薄不同工作表里的下拉列表， 我很想知道怎样用VBA代码来实现引用不同工作薄的下拉列表。以前好像在百度上见过有人编写的vba代码， 但是现在没有搜到。谢谢！

Answer 3

可以的，
1.用不可见打开目标工作簿，Set Wb = GetObject
2.定义变量，把列表赋值给变量，
3.定义名称=数组