Abfrage ob Verzeichnis vorhanden

Private Sub CommandButton6_Click() Dim strDatei ChDrive "C:\" ChDir "C:\Werkstatt\Lager1\" strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*") If strDatei = False Then Exit Sub Workbooks.Open strDatei End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim usn As String usn = Environ("Username") 'Netzwerkanwender MsgBox "Anwender: " & usn & " vorhanden " ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\" & usn & "\Application Data\Microsoft\Excel\XLSTART\0_Start-Menü. _ xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False

Private Sub CommandButton6_Click() Dim strDatei As String Dim strOrdner As String strOrdner = "C:\Werkstatt\Lager1\" ChDrive "C:\" 'Ordnerabfrage If Dir(strOrdner, vbDirectory) = "" Then MsgBox "Ordner gibt es nicht!", vbCritical Else ChDir strOrdner strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*") If strDatei = False Then Exit Sub Workbooks.Open strDatei End If End Sub

Private Sub CommandButton6_Click() Dim strDatei As String Dim strOrdner As String strOrdner = "C:\Werkstatt\Lager1\" ChDrive "C:\" 'Ordnerabfrage If Dir(strOrdner, vbDirectory) = "" Then MsgBox "Ordner gibt es nicht!" & Chr(13) & strOrdner, vbCritical Else ChDir strOrdner strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*") If strDatei = False Then Exit Sub Workbooks.Open strDatei End If End Sub

Private Sub CommandButton6_Click() Dim strDatei As String Dim strOrdner As String Dim strTemp As String, strTemp1 As String strOrdner = "C:\Werkstatt\Lager1\" ChDrive "C:\" 'Ordnerabfrage strTemp = strOrdner Do While InStr(strTemp, "\") > 0 If Dir(strOrdner, vbDirectory) = "" Then strTemp1 = strTemp strTemp = Left$(strTemp, InStrRev(strTemp, "\") - 1) Else Exit Do End If Loop If strTemp1 <> "" Then MsgBox "Ordner gibt es nicht!" & Chr(13) & strTemp1, vbCritical Exit Sub End If ChDir strOrdner strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*") If strDatei = False Then Exit Sub Workbooks.Open strDatei End Sub

Hallo,
da war noch ein Fehler drin.

Option Explicit

Private Sub CommandButton6_Click()
Dim strDatei As String
Dim strOrdner As String
Dim strTemp  As String, strTemp1 As String
strOrdner = "C:\Werkstatt\Lager1\"
ChDrive "C:\"
'Ordnerabfrage 

strTemp = strOrdner

Do While InStr(strTemp, "\") > 0
    If Dir(strTemp, vbDirectory) = "" Then
        strTemp1 = strTemp
        strTemp = Left$(strTemp, InStrRev(strTemp, "\") - 1)
    Else
        Exit Do
    End If
Loop
If strTemp1 <> "" Then
        MsgBox "Ordner gibt es nicht!" & Chr(13) & strTemp1, vbCritical
        Exit Sub
End If
    
    ChDir strOrdner
    strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
    If strDatei = False Then Exit Sub
        Workbooks.Open strDatei


End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage ob Verzeichnis vorhanden

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread