نسخ بيانات من ملف مغلق

[خالد الشاعر]

السادة الخبراء

 

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

 

مع العلم انى بحثت فى هذا المنتدى العظيم كل المشاركات تفتح ملف البيانات

 

فهل هذه الفكرة ممكن ان تطبق

 

ولكم جزيل الشكر

 

جزاكم الله خيراً

[خالد الشاعر]

السادة الخبراء

 

وجدت هذا الملف ممتاز ينقل البيانات و الملف مغلق

 

ولكن ينقل عدد من الصفوف و الاعمدة

 

فهل ممكن نعدل الى نسخ عمود معين مثال عمود B , E

 

برجاء من الخبراء المساعدة فى هذا العمل

 

جزاكم الله كل خيرGetData.rar

[طارق عبد الحكيم]

السلام عليكم

 

يمكنك هذا بتحديد رقم العمود المراد نقله أو نسخه 

 لاحظ أخي الكود التالي : لقد غيرت فيه قيم :

Sub GetDataDemo()
   
    Dim FilePath$, Row&, Column&, Address$
     
     'change constants & FilePath below to suit
     '***************************************
    Const FileName$ = "Book2.xls"
    Const SheetName$ = "Sheet1"
    Const NumRows& = 10
    Const NumColumns& = 10
    FilePath = ActiveWorkbook.Path & "\"
     '***************************************
     
    DoEvents
    Application.ScreenUpdating = False
    If Dir(FilePath & FileName) = Empty Then
        MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist"
        Exit Sub
    End If
    For Row = 1 To NumRows
        For Column = 1 To NumColumns
            Address = Cells(Row, 5).Address
             Cells(Row, 5) = GetData(FilePath, FileName, SheetName, Address)
            Columns.AutoFit
             Address = Cells(Row, 2).Address
            Cells(Row, 2) = GetData(FilePath, FileName, SheetName, Address)
            Columns.AutoFit
        Next Column
    Next Row
    ActiveWindow.DisplayZeros = False
End Sub

حيث حددت ما طلبته أنت مثلا : العمود E يقابله رقم 5 أما العمود B يقابله العمود 2 وهكذا يمكنك أضافة ما تريد

            Address = Cells(Row, 5).Address
             Cells(Row, 5) = GetData(FilePath, FileName, SheetName, Address)
            Columns.AutoFit
             Address = Cells(Row, 2).Address
            Cells(Row, 2) = GetData(FilePath, FileName, SheetName, Address)
            Columns.AutoFit

بالتوفيق أخي 

[خالد الشاعر]

استاذ طارق عبد الحكيم

 

يعجز لساني عن الشكر

 

تسلم ايدك الف الف شكر

 

جزاك الله كل خير

[حمادة عمر]

السلام عليكم

الاخ الكريم / طارق عبد الحكيم

بارك الله فيك

تعديل جميل وموفق

احسنت اخي الحبيب

جزاك الله خيرا

[خالد الشاعر]

استاذ طارق

 

هل ممكن نعكس عملية النسخ

 

بمعنى ننسخ من الملف المفتوح الى الملف المغلق

 

فهل هذا ممكن المساعدة به

 

جزاكم الله كل خير

[خالد الشاعر]

up