Πρόβλημα σε vba του Excel (SaveAs, MakeDir)---SOLVED---

[geovala]

Έφτιαξα αυτό το οποίo αποθηκεύει μόνο το Φύλλο1 με όνομα τα δεδομένα από το κελί A2 του ίδιου φύλλου στην διαδρομή D:\Φάκελος.

 

 

 

Αυτό που δεν μπορώ να κάνω είναι να φτιάχνει ένα νέο φάκελο μέσα στο D:\Φάκελος με όνομα την τιμή του κελιού Α3.

Μπορεί κάποιος να με βοηθήσει;

Επεξ/σία 4 Μαρτίου 2013 από geovala

[geovala]

Άκυρο το βρήκα μόνος μου!

[Chrisad]

Άκυρο το βρήκα μόνος μου!

 

 

Μπράβο!! Μην το πεις σε κανέναν....σσσσσσ..!!!

[geovala]

Δεν είναι το θέμα να μην το πω σε κανέναν.

 

 If Len(Dir("D:\Φάκελος", vbDirectory)) = 0 Then

   MkDir "D:\Φάκελος"

End If

Dim fld As String

fld = Φύλλο3.Range("C3").Value

If Len(Dir("D:\Φάκελος" & "\" & fld, vbDirectory)) = 0 Then

   MkDir "D:\Φάκελος" & "\" & fld

End If

Dim wb As Workbook

Dim ws As Worksheet

Dim Fullpath As String

FileName = Format(Date, "dd mm yyyy")

Set ws = Φύλλο3

Set wb = Workbooks.Add

ws.Copy Before:=wb.Sheets(1)

wb.SaveAs FileName:="D:\Φάκελος" & "\" & fld & "\" & FileName & ".xls"

wb.Close

Set wb = Nothing

Set ws = Nothing

Ορίστε!!!

 

Αν νομίζεις οτι μπορείς να βοηθήσεις στο excel ρίξε μια ματιά σε αυτό.

Επεξ/σία 6 Μαρτίου 2013 από geovala