كيفيه تسميه الملف بأسم خليه ؟

[حسام نور]

احبائي السلام عليكم ورحمه الله وبركاته

وحشتونا جدا

عندي حوالي ٨٠٠ ملف اكسيل . كل ملف فيه حسابات داخليه لأشخاص

هل في طريقه الاكسيل يسمي كل ملف بأسم خليه في كل ملف

وشكرا حبايبي

[سليم حاصبيا]

شاهد هذا الفيديو

https://www.youtube.com/watch?v=9PPVWGJUtZ4

 

[حسام نور]

شكرا لك ولكن كنت احتاج ماكرو يستقي اسم الفايل من خليه داخل الفايل

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub SaveFile()
Dim fname As String
Dim path As String
fname = Range("A1").Value
path = Application.ActiveWorkbook.path
If True Then
    Application.ActiveWorkbook.SaveAs Filename:=path & "\" & fname, _
        FileFormat:=xlOpenXMLWorkbook , CreateBackup:=False
End If
End Sub

 

[Ali Mohamed Ali]

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

حقا كود رائع جعله الله فى ميزان حسناتك