将一个工作簿的工作表的名称添加到另一个工作簿的组合框中

Question

我有2个工作簿test1（有3张）和测试（有1张）。

在测试我有一个名为ComboBox1。我的组合框必须从工作簿test1的在这个ComboBox1添加纸张的名称。

我写了下面的代码

Sub Workbook_open() 

Dim sht As Worksheet 

Set wkbSource = Workbooks.Open("test1.xls") 

For Each sht In wkbSource.Worksheets 

ActiveWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name 

Next sht 

End Sub 

这是给我一个错误

错误：对象不支持就行此属性或方法 ActiveWorkbook.Worksheets（1）.ComboBox1 .AddItem sht.Name

我该如何解决？

Answer 1

由于您使用ActiveWorkbook而出现此错误。打开"test1.xls"后，它变为活动状态，因此线路ActiveWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name因无法找到组合框而失败。

与ThisWorkbook

ThisWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name