如何在别的工作簿上引用另一工作簿的名称设置下拉列表

姚晨花

请教个问题，我在其中一个工作簿上命名了一个名称，我如何在这个工作簿不打开的情况下，在其他工作簿上引用这个工作簿的名称，我要在其他工作簿上设下拉列表，下拉列表的内容就是这个工作簿上的名称，
请高手赐教啊，谢谢

zhaogang1960

姚晨花 发表于 2013-4-27 17:44
附件已上传

1. Private Sub Workbook_Open()
   
2.     Dim cnn As Object, rs As Object, SQL$, s$, i&
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\定义名称的工作簿.xlsx"
   
5.     SQL = "Select 费用类别 From [Sheet1$]"
   
6.     Set rs = CreateObject("ADODB.Recordset")
   
7.     rs.Open SQL, cnn, 1, 3
   
8.     For i = 1 To rs.RecordCount
   
9.         s = s & rs.Fields(0).Value & ","
   
10.         rs.MoveNext
    
11.     Next
    
12.     With Sheets("费用统计").Range("c2:c" & Rows.Count).Validation
    
13.         .Delete
    
14.         .Add 3, 1, 1, s
    
15.     End With
    
16.     rs.Close
    
17.     cnn.Close
    
18.     Set rs = Nothing
    
19.     Set cnn = Nothing
    
20. End Sub
    

复制代码

zhaogang1960

请看附件
跨工作簿引用名称.rar (29.48 KB, 下载次数: 220)

2013-4-27 19:46 上传

点击文件名下载附件

姚晨花

附件已上传 跨工作簿引用名称.zip (25.25 KB, 下载次数: 104)

2013-4-27 17:43 上传

点击文件名下载附件

zhaogang1960

短信收到，是什么下拉列表？
请上传附件说明要求

LMY123

s = s & rs.Fields(0).Value & ","