MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 21.09.2017, 15:44   #1
F.Schweiger
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Ordner auswählen

Hallo zusammen,

habe ein Problem mit dem auswählen von Ordnern, dies mache ich mit den unten aufgeführten Code. Was mir noch fehlt ist wenn dieser Pfad nicht vorhanden ist sollte er auf einen anderen Pfad zugreifen z.B. "F:/Dokumente/Unterlagen/Sonstiges".
Es wäre auch ein Code interessant der die nicht vorhandenen Ordner vom Pfad einer TextBox gleich unter Windows erstellen darf (z.B "F:/Dokumente/Unterlagen/Sonstiges" der Ordner Sonstiges ist nicht vorhanden, wird aber dann erstellt).


Code:

Public Sub OrdnerWählen()
     Dim strOrdner As String

     With Application.FileDialog(msoFileDialogFolderPicker)
         .InitialFileName = "E:/Dokumente/Unterlagen/" & Cells(6, 2) & "/" & Cells(6, 5) & "_" & Cells(9, 2) & "/"
         .Title = "Ordnerauswahl"
         .ButtonName = "Auswahl..."
         .InitialView = msoFileDialogViewList
         If .Show = -1 Then
             strOrdner = .SelectedItems(1)
             If Right(strOrdner, 1) <> "" Then strOrdner = strOrdner
           Else
             strOrdner = ""
         End If
     End With

     If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else
     TextBox1 = strOrdner
     TextBox4 = strOrdner
 End Sub
Ich hoffe ihr könnt mir helfen, vielen Dank auf jeden Fall.

Gruß,
Florian
F.Schweiger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.09.2017, 09:14   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

wie kannst Du mit With Application.FileDialog(msoFileDialogFolderPicker)
auf einen Ordner zugreifen den es nicht gibt.
Ich würde vermuten das geht nicht.
Warum schreibst Du hier
strOrdner = ""
nicht den Ordner hin?

GrußformelHomepage

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.09.2017, 09:59   #3
F.Schweiger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Lösung

Hallo,
das war ja meine Frage, manche Ordnerstrukturen sind schon vorhanden deswegen der Pfad. wenn diese Ordnerstruktur nicht vorhanden ist wollte ich nicht lange suchen sondern das er auf einen anderen Pfad springt!

Habe das Problem jetzt selbst ganz einfach gelöst.
Code:

Public Sub OrdnerWählen()
     Dim strOrdner As String

    If Dir("E:/Dokumente/Unterlagen/" & Cells(6, 2) & "/" & Cells(6, 5) & "_" & Cells(9, 2) & "/") <> "" Then
            GoTo Pfad1
    Else
            GoTo Pfad2
    End If

Pfad1:

     With Application.FileDialog(msoFileDialogFolderPicker)
         .InitialFileName = "E:/Dokumente/Unterlagen/" & Cells(6, 2) & "/" & Cells(6, 5) & "_" & Cells(9, 2) & "/"
         .Title = "Ordnerauswahl"
         .ButtonName = "Auswahl..."
         .InitialView = msoFileDialogViewList
         If .Show = -1 Then
             strOrdner = .SelectedItems(1)
             If Right(strOrdner, 1) <> "" Then strOrdner = strOrdner
           Else
             strOrdner = ""
         End If
     End With

     If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else
     TextBox1 = strOrdner
     TextBox4 = strOrdner

Pfad2:

     With Application.FileDialog(msoFileDialogFolderPicker)
         .InitialFileName = "F:/Dokumente/Unterlagen/Sonstiges"
         .ButtonName = "Auswahl..."
         .InitialView = msoFileDialogViewList
         If .Show = -1 Then
             strOrdner = .SelectedItems(1)
             If Right(strOrdner, 1) <> "" Then strOrdner = strOrdner
           Else
             strOrdner = ""
         End If
     End With

     If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else
     TextBox1 = strOrdner
     TextBox4 = strOrdner

 End Sub
aber Danke,
Florian
F.Schweiger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.09.2017, 10:07   #4
F.Schweiger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Lösung Ordner erstellen

habe das Problem mit den Ordner erstellen habe ich auch selbst gelöst, funktioniert bei mir recht gut.

Code in UserForm:
Code:

Private Sub CommandButton1_Click()
Dim Ord As String
Dim antwort As Integer

    Ord = TextBox1
    
    If Dir(Ord, vbDirectory) <> "" Then
        MsgBox "Ordner ist schon vorhanden"
    Else
    antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
            & vbNewLine _
            & "soll der Ordner angelegt werden?!", vbYesNo)
        If antwort = vbYes Then
        GoTo erstellen        
        MsgBox "Ordner " & Ord & " angelegt"
        Else
        MsgBox "Es wurden keine Änderungen vorgenommen"
        Exit Sub
        End If
    End If
erstellen:
    Call MakeDir(Ord)
    
End Sub
Code in Modul:
Code:

Public Function MakeDir(FolderName As String)
Dim S As Variant, I As Long, F As String


S = Split(FolderName, "")

For I = LBound(S) To UBound(S)
  If S(I) <> "" Then
    F = F & S(I) & ""
    On Error Resume Next
    MkDir F
    On Error GoTo 0
  End If
Next I

End Function
vielleicht Hilft es dem ein oder andern.

Gruß,
Florian
F.Schweiger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:02 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.