将一个工作簿的工作表的名称添加到另一个工作簿的combobox中

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

在testing中，我有一个名为ComboBox1的组合框 。我必须在此ComboBox1中添加工作簿test1中工作表的名称。

我写了下面的代码

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失败，因为找不到combobox。

用ThisWorkbookreplaceActiveWorkbook

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