Verzeichnisbaum in Excel

09/08/2008 - 20:39 von Mike Berger | Report spam
Hallo zusammen,

ich möchte gerne eine UserForm anzeigen lassen und dort sollte ein
Verzeichnisbaum sein von Beispielsweise Home = O:\Briefe\Makros

Anzeige dann + Kunden
Stammdaten
+ Auftràge
Jan 08
Feb 08
Mar 08

In der dritten Ebene sollen alle Textdateien angezeigt werden und wenn
man dann darauf klickt wird in der UserForm die Textbox gefüllt.

Kann mir jemand einen Trick sagen?

Danke
Mike
 

Lesen sie die antworten

#1 stefan onken
11/08/2008 - 12:07 | Warnen spam
On 9 Aug., 20:39, Mike Berger wrote:
Hallo zusammen,

ich möchte gerne eine UserForm anzeigen lassen und dort sollte ein
Verzeichnisbaum sein von Beispielsweise Home = O:\Briefe\Makros

Anzeige dann + Kunden
                Stammdaten
              + Auftràge
               Jan 08
                Feb 08
                Mar 08

In der dritten Ebene sollen alle Textdateien angezeigt werden und wenn
man dann darauf klickt wird in der UserForm die Textbox gefüllt.

Kann mir jemand einen Trick sagen?

Danke
Mike



hallo Mike,
dafür kannst du ein TreeView-Steuerelement nutzen. Rechtsklick auf
Userform-Werkzeugsammlung, weiter Steuerelemente -> Microsoft Treeview-
Control.
zum füllen kannst du zB das UserForm_Activate -Ereignis nutzen

TreeView1.Nodes.Clear
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder("O:\Briefe\Makros\")
For Each subfld In fld.SubFolders
Set neuereintrag = TreeView1.Nodes.Add(, , , subfld)
For Each fil In subfld.Files
TreeView1.Nodes.Add neuereintrag.Index, tvwChild, , _
Replace(fil, subfld.Path & "\", "")
Next
Next

Im Click-Ereignis des Treeview dann das öffnen der txt-Datei

auswahl = TreeView1.SelectedItem.FullPath
If Right(auswahl, 3) = "txt" Then
Open auswahl For Input As #1
TextBox1 = Input(LOF(1), #1)
Close #1
End If

Evtl ist eine andere Überwachung hinsichtlich txt-Datei nötig, falls
deine Verzeichnisse als letzte 3 Zeichen auch txt haben.
Die Textbox-Eigenschaft MultiLine auf True stellen, damit nicht alles
in einer Zeile dargestellt wird.

Gruß
stefan

Ähnliche fragen