ユーザーフォーム変数からコンボボックスにデータを入力する

Question

ユーザーフォームに2つの単純なコードがありますが、私は何をしたいのですか？

Private Sub UserForm_Initialize() 

Dim wkb As Workbook 

    With Me.CB_Excel_File 
     For Each wkb In Application.Workbooks 
      .AddItem wkb.Name 
     Next wkb 
    End With 

End Sub 

Private Sub CB_Excel_File_Change() 

Dim wks As Worksheet 

    With Me.CB_Worksheet 
     For Each wks In ***Me.CB_Excel_File.Value.Worksheets*** 
      .AddItem wks.Name 
     Next wks 
    End With 

End Sub 

その***と作品私はUserform_Initializeコードからユーザによって選択されたブック内のワークシートのすべてをリストするようにこだわっていること。

ありがとうございます！

Answer 1

あなたはそうと、変数としてワークブックコレクションに選択したブック名を渡す必要があります。

Private Sub CB_Excel_File_Change() 

Dim wks As Worksheet 

With Me.CB_Worksheet 
    For Each wks In Workbooks(CB_Excel_File.Value).Worksheets 
     .AddItem wks.Name 
    Next wks 
End With 

End Sub