Office: Dateien aus bestimmten ordner über ComboBox auflisten und auswählen

AndreasDomme · 17. Juli 2009

Hallo,

ich habe folgendes Problem. Ich habe eine UserForm mit u.a. einer ComboBox in der ich bestimmte Dateien aus einem vorgegebenen Ordner auflisten will und aus diese Auflistung dann eine beliebige Datei in der Druckansicht öffnen kann.

Z.B.: In der ComboBox1 sollen aus dem Ordner Dokumente auf der Festplatte C: alle Dateien mit den Anfangsbuchstaben "ZF oder ZE etc." aufgeliset werden und aus dieser Auflistung will ich dann eine beliebige Auswahl treffen und per Druckvorschau öffnen.

Kann mir da jemand helfen?

Danke

Andreas

:)

chris-kaiser · 19. Juli 2009

hiho

beim Laden des UF

Code:

Private Sub UserForm_Activate()
Dim StrPath As String
Dim StrName As String
'*************************************
StrPath = "C:\temp\" ' Anpassen
'*************************************
StrName = Dir(StrPath & "*.xls")
Do While StrName > ""
If StrName Like "ZE*" Or StrName Like "ZF*" Then
Me.ComboBox1.AddItem StrName 'Name der Combo überprüfen
End If
StrName = Dir
Loop
Me.ComboBox1.ListIndex = 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AndreasDomme · 20. Juli 2009

hallo Chris,

erst einmal vielen Dank für Deine Hilfe - die Auflistung in meiner ComboBox bzw. meinen ComboBoxen funktioniert wunderbar.

Jetzt habe ich noch das Problem, das Ganze bei Auswahl einer Datei aus der ComboBox in die Druckansicht zu bringen.

Ich möchte per CommandButton eine der aufgelisteten Dateien der ComboBox in die Druckansicht bringen um sie dann evtl. bei Bedarf noch mal ausdrucken zu können.

Wie kann ich das anstellen ?

Meine "Routine, die ich bis dato immer verwendet habe sieht so aus:

UserForm29.Hide
UserForm5.Hide
UserForm32.Hide

With Sheets("XY")
.Select
.UsedRange.Select
.PrintPreview
End With

UserForm32.Show
UserForm5.Show
UserForm29.Show

Ich weiß jetzt nur nicht, wie ich die ganze Sache umsetzen kann - hab schon einiges probiert aber ohne Erfolg.

Vielleicht kann mir ja jemand da auf die Sprünge helfen.

Vielen Dank

Andreas

chris-kaiser · 20. Juli 2009

hiho

hier ein Versuch

Code:

Option Explicit
Private Sub CommandButton1_Click()
Dim oExcel As Excel.Application
Dim oWb As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.application")
oExcel.Visible = True
Set oWb = oExcel.Workbooks.Open(StrPath & Me.ComboBox1.Value)
Set oSheet = oWb.ActiveSheet
oSheet.PrintPreview
oWb.Close savechanges:=False
oExcel.Quit
Set oSheet = Nothing
Set oWb = Nothing
Set oExcel = Nothing
End Sub

Private Sub UserForm_Activate()
Dim StrName As String
'*************************************
StrPath = "C:\temp\" ' Anpassen
'*************************************
StrName = Dir(StrPath & "*.xls")
Do While StrName > ""
If StrName Like "ZE*" Or StrName Like "ZF*" Then
Me.ComboBox1.AddItem StrName 'Name der Combo überprüfen
End If
StrName = Dir
Loop
Me.ComboBox1.ListIndex = 0
End Sub

'in einem Allgemeinen Modul
Public StrPath As String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und anbei noch die Demo
Pfad aber anpassen!! bzw sollte auch welche dateien mit ZE oder ZF* enthalten sein

AndreasDomme · 20. Juli 2009

Hallo Chris,

hat mit einigen kleinen Anpassungen wunderbar geklappt - ich danke Dir.

was heißt übrigens "Meister MOF" ??

Bis dahin

Andreas

P.S. Vielleicht komme ich bald schon wieder mit einem kleinen Problem - will aber erst mal sehen, ob ich es selbst lösen kann !!*wink.gif*

chris-kaiser · 20. Juli 2009

Hallo Andreas

freut mich wenn es passt.

was heißt übrigens "Meister MOF" ??
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MOF =Ms-Office-Forum
nichts, ausser das ich viel gepostet habe, hat nur mit den Anzahl der Beiträge zu tun.

Office: Dateien aus bestimmten ordner über ComboBox auflisten und auswählen

Dateien aus bestimmten ordner über ComboBox auflisten und auswählen

Dateien aus bestimmten ordner über ComboBox auflisten und auswählen

Dateien aus bestimmten ordner über ComboBox auflisten und auswählen

Dateien aus bestimmten ordner über ComboBox auflisten und auswählen - Similar Threads - Dateien bestimmten ordner

Bestimmte Zellen aus geschlossenen Dateien in eine Master Liste hineinkopieren VBA

VBA: Bestimmte Zellen von einer Excel Datei in die andere (nach Bedienungen)

Excel VBA Datei durchsuchen, Datentyp prüfen und bestimmten Inhalt auslesen

Datei schließen nach bestimmter Zeit.

Öffnen einer bestimmten Seite einer pdf-Datei

Datei automatisch per mail senden (täglich zu einer bestimmten Uhrzeit)

VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren