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

• #19130 Mutt senior tag Delila_1 #19122

  Új Válasz 2013-09-29 11:48:52 #19130

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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