Hirdetés

Új hozzászólás Aktív témák

  • Mutt

    senior tag

    válasz Delila_1 #19122 üzenetére

    Hello,

    Nem kell ChDir-el váltatni, azonban szerintem fontos lenne előbb ellenőrízni, hogy a megadott útvonal létezik-e egyáltalán.
    Sub direktor()
    Dim utvonal$

    utvonal$ = Range("B1")

    'ha nincs a végén \ akkor hozzáadjuk
    If Right(utvonal$, 1) <> "\" Then utvonal$ = utvonal$ & "\"

    'ellenőrízzük hogy a mappa létezik-e
    If Dir(utvonal$, vbDirectory) <> "" Then
    ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
    Else
    MsgBox "Hiba az útvonal nem létezik"
    End If
    End Sub

    És talán esetleg ellenőrízni is célszerű, hogy a mappa írható-e:
    Sub direktor()
    Dim utvonal$

    utvonal$ = Range("B1")

    'ha nincs a végén \ akkor hozzáadjuk
    If Right(utvonal$, 1) <> "\" Then utvonal$ = utvonal$ & "\"

    'ellenőrízzük hogy a mappa létezik-e
    If Dir(utvonal$, vbDirectory) <> "" Then
    'ellenőrizzük, hogy a könyvtár írható-e
    If GetAttr(utvonal$) And vbReadOnly = 0 Then
    ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
    Else
    MsgBox "A megadott könyvtár nem írható"
    End If
    Else
    MsgBox "Hiba az útvonal nem létezik"
    End If
    End Sub

    üdv.

Új hozzászólás Aktív témák