اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

 

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

 

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

 

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

 

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

رابط هذا التعليق
شارك

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

 

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

 

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

 

فهل ممكن نعدل الى نسخ عمود معين مثال عمود 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

بالتوفيق أخي 

رابط هذا التعليق
شارك

السلام عليكم

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

بارك الله فيك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information