Tarihe bakarak klasörleri bulmak...

[him6666]

Merhabalar. Benim biraz zor bir sorum olacak...
c:/AHMET/2008/MART/15 MAR 08/A
c:/AHMET/2008/MART/15 MAR 08/B
yukarıdaki gibi iki adet klasör var.
Açık olan bir word dosyasını c:/ahmet/ klasörünün altındaki ilk "2008" klasörünü bugünün tarihine bakarak 2008 olduğunu algılamasını ve o klasörü açmasını daha sonra aynı şekilde bu klasörün içinde "MART" klasörünü bulmasını, aynı şekilde"15 MAR 08" klasörünü bulmasını istiyorum. daha sonra da "A" klasörü için o anki saatin 00:00 12:00 olduğunu algılayarak o klasörünü açmasını, "B" klasörü içinse 12:00 23:59 saatleri arasını kullanmasını istiyorum. en sonunda ise bahsi geçen açık word dökümanını, gelinen son klasöre kaydetmesini istiyorum.
kaydederken ise, yine o günün tarihine algılayarak, dosyanın adını "15 MART_mehmet_A_mustafa" olarak değiştirip kaydetmesini istiyorum.

mesela ahmet klasörünün altında 2001,2002,2003,2004,2005,2006
2007,2008, 2009 klasörleri mevcut. şimdi 2008 yılında olduğumuz için 2008 klasörünü açacak. buraya girdik.
ahmet/2008/ klasörünün altında da OCAK SUBAT MART NISAN... klasörleri mevcut. şimdi mart ayında olduğumuz için MART klasörünü açacak.

bu şekilde gittikten sonra söz konusu açık olan dosyayı en son açılan klasöre adını yukarda belirttiği formatta kaydedecek.

Yalnız makro tarihe, klasörlerin yaratılma tarihine göre bakmaması gerekiyor. çünkü klasörler daha önceden oluşturulmuş oluyor.

şimdiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Peki, bu işlemi Word'den mi Excel'den mi yürütmeyi düşünüyorsunuz? Yani yazılacak makro Word'de mi Excel'de mi çalışacak ?

Eğer Word'de çalışacaksa, konuyu yanlış yerde açmışsınız. Düzeltelim ...

 

[Korhan Ayhan]

Selamlar,

Ben soruyu word dosyası olarak yorumladım. Aşağıdaki kodu denermisiniz.

Sub ARŞİVLE()
    On Error Resume Next
    Dim FSO As Object
    Dim Ana_Klasör, Dosya_Adı As String
    Dim Alt_Klasör_1, Alt_Klasör_2, Alt_Klasör_3 As String
 
    Ana_Klasör = "C:\AHMET"
 
    If Time >= "00:00" And Time <= "11:59" Then
    Alt_Klasör_1 = Ana_Klasör & "\" & Year(Date)
    Alt_Klasör_2 = Ana_Klasör & "\" & Year(Date) & "\" & Format(Date, "mmmm")
    Alt_Klasör_3 = Ana_Klasör & "\" & Year(Date) & "\" & Format(Date, "mmmm") & "\A"
    Dosya_Adı = Format(Date, "dd mmmm") & "_mehmet_A_mustafa" & ".doc"
    ElseIf Time >= "12:00" And Time <= "23:59" Then
    Alt_Klasör_1 = Ana_Klasör & "\" & Year(Date)
    Alt_Klasör_2 = Ana_Klasör & "\" & Year(Date) & "\" & Format(Date, "mmmm")
    Alt_Klasör_3 = Ana_Klasör & "\" & Year(Date) & "\" & Format(Date, "mmmm") & "\B"
    Dosya_Adı = Format(Date, "dd mmmm") & "_mehmet_B_mustafa" & ".doc"
    End If
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    If Not FSO.FolderExists(Ana_Klasör) Then
    FSO.CreateFolder (Ana_Klasör)
    End If
 
    If Not FSO.FolderExists(Alt_Klasör_1) Then
    FSO.CreateFolder (Alt_Klasör_1)
    End If
 
    If Not FSO.FolderExists(Alt_Klasör_2) Then
    FSO.CreateFolder (Alt_Klasör_2)
    End If
 
    If Not FSO.FolderExists(Alt_Klasör_3) Then
    FSO.CreateFolder (Alt_Klasör_3)
    End If
 
    ActiveDocument.SaveAs Filename:=Alt_Klasör_3 & Application.PathSeparator & Dosya_Adı
 
    Set FSO = Nothing
 
    MsgBox "Dosyanız arşivlenmiştir.", vbInformation
End Sub

 

[Ferhat Pazarçevirdi]

Selamlar,

Ben soruyu word dosyası olarak yorumladım. Ekteki örnek dosyayı incelermisiniz.

Korhan hocam, dosyada kod göremiyorum ama ... Dalgınlıkla yanlış dosya yüklemiş olmayasanız ...

 

[Korhan Ayhan]

Selamlar,

Ferhat bey,

Eklediğim dosyayı tekrar kontrol ettim. ALT+F11 tuşlarına basınca kodlar direk karşıma geldi.

 

[Ferhat Pazarçevirdi]

Korhan bey,

Kodu, VBA Project Explorer'da Normal.dot'un kod modülüne yazdıysanız, siz boş bir word belgesinde de Alt+F11 yapsanız koda ulaşırsınız ama biz sizin Word'un normal.dot'unu göremediğimiz için kodlara da ulaşmamız mümkün değil.

Bende aynı hatayı sık sık yapıyorum. Sonra nerde bu kodlar diye arıyorum

Bir kontrol ederseniz sevinirim. Kodlar, Normal.dot'a mı yoksa Örnek.doc'a mı yazılmış acaba ?

 

[Korhan Ayhan]

Selamlar,

Haklısınız Ferhat bey hep excel dosyaları üzerinde çalışınca normal olarak eklenen dosyanın içindeki kodunda dosya ile beraber gideceğini düşünmüştüm.

Üstteki mesajımdaki ekli dosyayı kaldırıp kodu ekledim.

Uyarınız için ayrıca teşekkür ederim.