填充ComboBox

时间:2017-08-02 14:51:17

标签: excel vba excel-vba combobox

我有2个excel文件,在主excel文件中我有2个comboBox元素,其中一个应该从另一个工作表填充,第二个来自另一个工作簿,当我试图通过使用来自另一个工作簿的数据来填充这个组合框时这个

Private Sub Worksheet_Activate()
    ThisWorkbook.Sheets("Master").ComboBox23.List = Sheets("Modification").Range("C2:C55").Value
    ThisWorkbook.Sheets("Master").ComboBox24.List = GetObject(ThisWorkbook.Path & "\resourcetracker.xls").Sheets("Resources").Range("A2:A22").Value 
End Sub

我可以从主excel文件中的另一个工作表中获取数据,但是我打开另一个工作簿的行会给我一个错误

  

无效的过程调用或参数(运行时错误5)

有人可以帮助了解我做错了什么吗? 谢谢

1 个答案:

答案 0 :(得分:0)

GetObject不是打开另一个WorkBook

的正确方法

试试这个

Public Sub Worksheet_Activate()
    Dim wb As Workbook
    ThisWorkbook.Sheets("Master").ComboBox23.List = Sheets("Modification").Range("C2:C55").Value
    Set wb = Workbooks.Add(ThisWorkbook.Path & "\resourcetracker.xls")
    ThisWorkbook.Sheets("Master").ComboBox24.List = wb.Sheets("Resources").Range("A2:A22").Value
    wb.Close False
End Sub