حراثي تواتي قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 ارجوا من الاخوة الافاضل اتمام السطر المخفي و الناقص رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 إليك كود فتح ملف إكسيل Sub open_file() Dim file_name As Variant Dim open_wk As Workbook On Error GoTo 1 file_name = Application.GetOpenFilename(Title:="اختار ملف الاكسل", FileFilter:="Excel Files *.xlsm (*.xlsm),") If file_name = False Then 1 MsgBox "من فضلك اختار ملف الاكسل xlsm", vbCritical Exit Sub Else Set open_wk = Workbooks.Open(file_name) End If End Sub 1 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 18, 2019 الكاتب مشاركة قام بنشر مايو 18, 2019 شكرا اخي الكريم شغال 10/10 لو تكرمتم علينا مرة اخرى بكود غلق ملف الاكسيل الذي فتحته بعد نقل البيانات وسنكون لكم شاكرين يعني بعد اتمام نقل البيانات يغلق الملف القديم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.