خالد الشاعر قام بنشر يونيو 14, 2013 مشاركة قام بنشر يونيو 14, 2013 السادة الخبراء هل ممكن نسخ بيانات من ملف مغلق الى ملف اخر دون ان يفتح هذا الملف مع العلم انى بحثت فى هذا المنتدى العظيم كل المشاركات تفتح ملف البيانات فهل هذه الفكرة ممكن ان تطبق ولكم جزيل الشكر جزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر يونيو 14, 2013 الكاتب مشاركة قام بنشر يونيو 14, 2013 السادة الخبراء وجدت هذا الملف ممتاز ينقل البيانات و الملف مغلق ولكن ينقل عدد من الصفوف و الاعمدة فهل ممكن نعدل الى نسخ عمود معين مثال عمود B , E برجاء من الخبراء المساعدة فى هذا العمل جزاكم الله كل خيرGetData.rar رابط هذا التعليق شارك More sharing options...
طارق عبد الحكيم قام بنشر يونيو 14, 2013 مشاركة قام بنشر يونيو 14, 2013 السلام عليكم يمكنك هذا بتحديد رقم العمود المراد نقله أو نسخه لاحظ أخي الكود التالي : لقد غيرت فيه قيم : 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 بالتوفيق أخي رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر يونيو 14, 2013 الكاتب مشاركة قام بنشر يونيو 14, 2013 استاذ طارق عبد الحكيم يعجز لساني عن الشكر تسلم ايدك الف الف شكر جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 15, 2013 مشاركة قام بنشر يونيو 15, 2013 السلام عليكم الاخ الكريم / طارق عبد الحكيم بارك الله فيك تعديل جميل وموفق احسنت اخي الحبيب جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر يونيو 15, 2013 الكاتب مشاركة قام بنشر يونيو 15, 2013 استاذ طارق هل ممكن نعكس عملية النسخ بمعنى ننسخ من الملف المفتوح الى الملف المغلق فهل هذا ممكن المساعدة به جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر يونيو 15, 2013 الكاتب مشاركة قام بنشر يونيو 15, 2013 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.