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

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

شيت الى شيت اخر

داخل نفس الملف ؛ او من شيت فى ملف الى شيت فى ملف اخر .

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

مـــــــــــــــــــــــن هـــــــــــــــــــنـــــــــــــــــــــــــــــــــــــــا:

ولكن كان هناك صعوبة تظهر عند نقل الملف المرحل اليه من مكانه داخل الجهاز او نقل الملف المرحل منه الى جهاز اخر ؛

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

وشرحنا ذلك فى الفيديو التالى :

واستخدمنا الاكواد التالية فى الملف بنفس طريقة الشرح فى الفيديو السابق :

Dim FileToOpen As Variant

    Dim OpenBook As Workbook

    Dim lr As Integer

    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)

ويقوم الكود السابق بوظيفة اظهار المستعرض واختيار الملف فقط ؛ اما اذا اردت ترحيل البيانات للملف الذى تم 

اختياره فشاهد الفيديو التالى :

الاكواد المستخدمة فى هذا الفيديو هى :

lr = OpenBook.Sheets("ورقة4").Cells(Rows.Count, 1).End(xlUp).Row + 1

         ThisWorkbook.Worksheets("SelectFile").Range("j4:n20").Copy

       OpenBook.Sheets("ورقة4").Range("a" & lr).Select

       OpenBook.Sheets("ورقة4").Range("a" & lr).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _

        , SkipBlanks:=False, Transpose:=False

        OpenBook.Save

        OpenBook.Close False

        ThisWorkbook.Worksheets("SelectFile").Range("A10").Value = ""

    Range("J4:M5,K8:l14,J19:M20").Select

    Range("J19").Activate

    Selection.ClearContents

    End If

    Application.ScreenUpdating = True

ولتتمكن من تطبيق الاكواد شاهد الطريقة من الفيديو السابق .