Private Sub CommandButton1_Click()
Dim ime As Variant
Dim sh As Worksheet
'filename ist "c:\jedan.xls" und er is geschlossen.
ime = Application.GetOpenFilename("Excel Files (*.xls), *.xls,", 1, "")
If ime = 0 Then
Exit Sub
End If
textbox1.Text = ime
For Each sh In Workbooks(ime).Sheets
listbox1.AddItem sh.Name 'fullen listbox mit tabellenamen aus "c:\jedan.xls" files
Next sh
listbox1.ListIndex = 1
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Dim ime As Variant
Dim sh As Worksheet
'filename ist "c:\jedan.xls" und er is geschlossen.
ime = Application.GetOpenFilename("Excel Files (*.xls), *.xls,", 1, "")
If ime = 0 Then
Exit Sub
End If
Workbooks.Open ime
textbox1.Text = ime
For Each sh In Workbooks(ime).Sheets
listbox1.AddItem sh.Name 'fullen listbox mit tabellenamen aus "c:\jedan.xls" files
Next sh
listbox1.ListIndex = 1
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen