Çalışma Kitabının Bulunduğu Klasörün İçine Klasör Oluşturma

[ahmed_ummu]

Merhaba arkadaşlar.

Burada tam olarak ne yapmak istediğimi anlatamam diye ekte gönderdiğim resim üzerinde anlatmaya çalıştım. Yardımcı olursanız çok sevinirim.

 

[Necdet]

Merhaba,

File System Object olarak gerek burada gerekse de arama motorlarında arama yaparsanız çok sayıda örnekle karşılaşırsınız.

 

[ahmed_ummu]

Merhaba,

File System Object olarak gerek burada gerekse de arama motorlarında arama yaparsanız çok sayıda örnekle karşılaşırsınız.

Necdet bey araştırdım örneklerde buldum ama kendi dosyama uyarlayamadım.

Aşağıdaki kod şuan yardım istediğim konunun halihazırdaki kullandığım kod. En yakın kod bu bunu da uyarlayamadım. 1 Günde 1 harcama olursa bu işimi görüyor ama günde 1 harcamadan fazla olursa çok sıkıntı çıkıyor. Hazırladığım belgeleri tekrar hazırlamam gerekiyor.


Set fso = CreateObject("scripting.filesystemobject")
Set wbmevcut = ActiveWorkbook
Sheets(Array("PA", "PA_EK", "LÜZUMBELGESİ", "MKTT")).Copy
Set wbkopya = ActiveWorkbook
yol = Environ("USERPROFILE") & "\Desktop\SATINALMA"
If Not fso.FileExists(yol) Then
On Error Resume Next
MkDir (yol)
On Error GoTo 0
End If
isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " & Sheets("MKTT").Range("b7").Value & " " & Sheets("MKTT").Range("b8").Value
Application.DisplayAlerts = False
wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56
Application.DisplayAlerts = True
wbkopya.Close