دالة التعامل مع الملفات getOpenFileName



فائدة الدالة getOpenFileName
تفتح نافذه حوارية لاختيار ملف و من ثم تحتفظ بأسم و مسار الملف فى متغير نصى
اذا تم الغاء العملية سيتم اعطاء الدالة المنطقية False
اذا تم حفظ مسار الملف فى متغير يجب ان يكون variant
و لا يجب ان يكون المتغير string حتى اذا تم الالغاء لا يكون الناتج "False"



فتح نافذه حوارية لاختيار ملف

Sub Get_Data_From_File()
Application.GetOpenFilename
End Sub



معاملات الدالة getOpenFileName
1- Title:= "عنوان النافذه الحوارية"
2- FileFilter:="Excel Files (*.xls*),*xls*"
Application.GetOpenFilename("Excel Files (*xls*), *xls*, Text Files (*.TXT), *.txt, All Files (*.*), *.*")
3- MultiSelect للملفات المتعددة يستخدم True التلقائى False اى ملف واحد



فتح نافذة حوارية لاختيار ملف و اعطاء اسم الملف لمتغير

Sub Get_Data_From_File()
Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
(Things happen here)
End If
End Sub



فتح نافذة حوارية لاختيار الملف و من ثم فتح الملف

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook as Workbook
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
End If
End Sub



فتح نافذة حوارية لاختيار الملف و نسخ نطاق منه الى الملف الحالى

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook as Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:E20").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A10").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = False
End Sub