Hallo,
ich möchte mir in einer Textbox die sheets der Datei C:\test.xls anzeigen lassen.
(Datei ist ungeöffnet).
Geht das ?
Grüße aus dem kalten Hamburg
Ray
Sub test()
Dim i As Integer
Workbooks.Open Filename:="C:\test.xls"
With ActiveWorkbook
For i = 1 To .Sheets.Count
UserForm1.TextBox1 = UserForm1.TextBox1 & Chr(10) & .Sheets(i).Name
Next 'i
'Erste Zeilenschaltung in der Textbox wieder löschen
UserForm1.TextBox1 = Right(UserForm1.TextBox1, Len(UserForm1.TextBox1) - 1)
End With
End Sub
Gruß aus dem sonnigen, warmen Stuttgart (Büro: 23 Grad, Neonlicht)
Ingolf
Anzeige
AW: sheets anzeigen lassen
25.01.2007 09:06:25
ray
hi,
danke ich chk das.
Gruß ray
PS: Hol Dir bloß keinen Sonnenbrand... :-)