AW: No Text
24.01.2005 22:53:50
zeljko
wohin ist feler
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