مساعدة في اتمام سطر ناقص

[حراثي تواتي]

ارجوا من الاخوة الافاضل اتمام السطر المخفي و الناقص

[احمد بدره]

إليك كود فتح ملف إكسيل

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

[حراثي تواتي]

شكرا اخي الكريم شغال 10/10

لو تكرمتم علينا مرة اخرى بكود غلق ملف الاكسيل الذي فتحته بعد نقل البيانات وسنكون لكم شاكرين

يعني بعد اتمام نقل البيانات يغلق الملف القديم