AW: Dateiliste in Symbolleiste -mit Bsp-
11.12.2005 23:14:17
Peterchen
Hi Peter,
versuchs mal mit dem Code, und dazu
"Microsoft Scripting Runtime"
als Verweis anwählen.
Gruss Peterchen
Option Explicit
Public fso As New FileSystemObject
Public
Sub Datei_Menue()
Dim objCmdBar As CommandBar
Dim objCbo As CommandBarComboBox
Dim VzPfad As String
Dim Verz As Folder
Dim Datei As File
On Error Resume Next
Application.CommandBars("Dateien").Delete
VzPfad = InputBox("Verzeichnis", "Verzeichnis", "A:\Abt\Urlaubslisten")
If VzPfad = "" Then Exit Sub
Err.Clear
Set Verz = fso.GetFolder(VzPfad)
If Err.Number <> 0 Then
MsgBox "Auf das Verzeichniss:" & vbNewLine & VzPfad & vbNewLine & _
"kann nicht zugegriffen werden."
Exit Sub
End If
On Error GoTo 0
Set objCmdBar = Application.CommandBars.Add("Dateien", msoBarTop)
Set objCbo = objCmdBar.Controls.Add(msoControlComboBox)
For Each Datei In Verz.Files
If UCase(Right(Datei.Name, 3)) = "XLS" Then objCbo.AddItem Datei.Name
Next
If Right(Verz.Path, 1) = "\" Then
objCbo.Parameter = Verz.Path
Else
objCbo.Parameter = Verz.Path & "\"
End If
objCbo.OnAction = "DateiOeffnen"
objCmdBar.Visible = True
End Sub
Sub DateiOeffnen()
Dim objCbo As CommandBarComboBox
Set objCbo = Application.CommandBars("Dateien").Controls(1)
Application.Workbooks.Open objCbo.Parameter & objCbo.Text
End Sub