Het vullen van listbox met sheet namen

[Relleboer]

Wie kan mij helpen??????

Ik ben bezig met een bestand wat txtfiles inleest in mijn workbook. Het aantal kan verschillend zijn. Nu wil ik de namen van alle sheets in een listbox vergeven zodat men kan kiezen met welk sheet ze verder willen gaan om grafieken van te maken. Dus mijn vraag is hoe ik die gegevens in me listbox krijg.


jan-willem

 

[Jan van Asseldonk]

Waarom wil je met een listbox werken, die je eerst moet vullen?

Vermoedelijk kun je al verder met onderstaande standaard .

dlgAnswer = Application.Dialogs(xlDialogOpen).Show

 

[Relleboer]

jan bedankt voor je antwoord maar ik heb het probleem al opgelost via onderstaande code. maar toch bedankt.

Sub Main()

    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant

   
    With fd
        .Filters.Clear
        .Filters.Add "All files", "*.*"
          If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
            file = vrtSelectedItem
                 Workbooks.OpenText Filename:= _
                     file, Origin _
                     :=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0 _
                     , 1), Array(13, 1), Array(16, 1), Array(25, 1), Array(33, 1), Array(42, 1), Array(49, 1), _
                     Array(57, 1), Array(65, 1)), TrailingMinusNumbers:=True
        
                 Sheets(1).Move After:=Workbooks("data voor R&D.xls").Sheets(1)
                 Columns("A:A").Delete Shift:=xlToLeft
                 Range("A1").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
                 Rows("1:1").Insert Shift:=xlDown
                 Range("a1").Value = "Preform number"
                 Range("b1").Value = "Injection pressure"
                 Range("c1").Value = "Cycle time"
                 Range("d1").Value = "Recovery"
                 
            Next vrtSelectedItem
         Else
        End If
    End With
    Set fd = Nothing

End Sub