無題1

指定されたエクセルファイルからすべてのシート名を取得し、コンボボックスに表示させるVBAコードは以下のようになります

Sub FillComboBoxWithSheetNames()
   Dim FileDialog As FileDialog
   Dim SelectedFile As String
   Dim wb As Workbook
   Dim ws As Worksheet
   Dim SheetName As Variant
   Dim ComboBox As Object ' この行はユーザーフォームで使用しているコンボボックスの実際の名前に変更する必要があります

   ' ファイル選択ダイアログを表示
   Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
   FileDialog.AllowMultiSelect = False
   FileDialog.Title = "エクセルファイルを選択してください"
   
   If FileDialog.Show = -1 Then
       SelectedFile = FileDialog.SelectedItems(1)
       
       ' 選択されたファイルを開く
       Set wb = Workbooks.Open(SelectedFile)
       
       ' コンボボックスをクリア
       ComboBox.Clear
       
       ' シート名をコンボボックスに追加
       For Each ws In wb.Worksheets
           ComboBox.AddItem ws.Name
       Next ws
       
       ' ファイルを閉じる
       wb.Close
   End If
End Sub