Makronuz raporları kaydedecek ama ya "C:\Yedekler" klasörü yoksa? Hata verir. Kodun önce klasörü oluşturması gerekir.
Kod Örneği
Sub KlasorYap()
Dim KlasorYolu As String
KlasorYolu = "C:\Raporlar\" & Year(Date)
'Klasör yoksa oluştur
If Dir(KlasorYolu, vbDirectory) = "" Then
MkDir KlasorYolu
MsgBox "Klasör oluşturuldu: " & KlasorYolu
End If
End Sub
Dim KlasorYolu As String
KlasorYolu = "C:\Raporlar\" & Year(Date)
'Klasör yoksa oluştur
If Dir(KlasorYolu, vbDirectory) = "" Then
MkDir KlasorYolu
MsgBox "Klasör oluşturuldu: " & KlasorYolu
End If
End Sub
Bu kod, örneğin "C:\Raporlar\2026" klasörünü otomatik yaratır.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap