別のブックのコンボボックスに1つのブックの名前を追加

Question

test1（3枚）とテスト（1枚あり）があります。 テストで

私はComboBox1の .Iという名前のコンボボックスには、この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 

それは私にエラーを与えていると書かれている

ERROR：オブジェクトがライン上で、このプロパティまたはメソッドをサポートしていません 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