在Excel中进行VBScripting | 一个工作簿包含

本文介绍了在Excel中进行VBScripting的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我创建了两个工作簿，一个工作簿包含一组下拉列表，另一个工作簿包含数据。

我试图使用VBScript将WB2中的数据绑定到WB1中的下拉菜单。

问题是，下拉列表没有显示数据，而是显示内部的空行..

这是我的代码：

 私人  Sub  Worksheet_Change（ ByVal 目标 As 范围）
  Dim  wbSource 
  Dim  cboTemp  As  OLEObject 
  Dim  ws  As 工作表
 设置 ws = ActiveSheet 
 设置 wbSource = Workbooks.Open（  .. \ InputData.xlsx）
 设置 cboTemp = ws.OLEObjects（  ComboBox4）
 开启 错误 恢复 下一步 
 使用 cboTemp 
 .Visible =  True  
 .Left = Target.Left 
 .Top = Target.Top 
 .Width = Target.Width +  15  
 .Height = Target.Height +  5  
 .ListFillRange =  '[ InputData.xlsx]可用性'！$ B $ 2：$ C $ 9 
 .LinkedCell = Target.Address 
 结束 使用 
 cboTemp.Activate 
 wbSource.Close 
 结束  Sub

请帮助我获取值绑定到下拉列表

解决方案

这篇关于在Excel中进行VBScripting的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！