無題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
書きたいと思うことを書いています!😉 誰かの何かの役に立ったらとても嬉しいです😄 これからも頑張って記事を書いていきます!💪