حفظ الملف بتاريخ اليوم

[kabq]

اريد ان احفظ ملف اكسل بتاريخ اليوم بوضع زر لذلك

او بدلالة خلية موجودة بها تاريخ اليوم

تم تعديل مارس 30, 2007 بواسطه kabq

[mehyo27]

السلام عليكم

وضعة الكود على أن يحفظ الملف على /:C بأسم Test مع تاريخ اليوم

Private Sub CommandButton1_Click()
Dim FileName As String
FileName = Format(Date, "YY-MM-DD") & "_test.xls"
ActiveWorkbook.SaveAs FileName:="C:\" & FileName, FileFormat:=xlNormal
End Sub

وإليك المرفق

try.rar

[ابو اسامة العينبوسي]

السلام عليكم

مشكووور

طريقة nice