نقل بيانات من ملف لأخر؟؟

[shar]

نأمل من الأخوة المساعدة حيث أنه لدي بيانات في ملف أكسل وهي عبارة عن خمسة أعمدة : عمود لرقم الموظف والعمود الثاني للاسم الأول والعمود الثالث للاسم الثاني وعمود الرابع للاسم الثالث والعمود الخامس للقب .

والمطلوب نقل هذه البيانات إلى ملف أكسل أخر بضغطة زر بالملف الثاني المراد نقل البيانات إليه على أن ينقل رقم الموظف في العمود الأول والاسم كاملا ( الرباعي ) في العمود الثاني اختصار للوقت .... مع الشكر والتقدير مقدماً.

[shar]

UP

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

أخي الفاضل

نحتاج منك فولدر به مثالين للملفين المراد العمل عليهم

مع التحية

[shar]

مثال للتوضيح

New Folder.rar

[عبد الفتاح كيرة]

موضوع مهم

[طارق محمود]

السلام عليكم

كود نقل البيانات في هذه الحالة ممكن يكون كالتالي

Sub Shift_Data()

'

' Macro2 Macro

' Macro recorded 09/11/2010 by web


Dim file_1 As String

On Error Resume Next

file_1 = ActiveWorkbook.Path & "\Book1.xls"

Workbooks.Open Filename:=file_1

Workbooks("Book1.xls").Activate


	z = Range("B1", [E1000].End(xlUp)).Rows.Count


	For j = 1 To z

 	x = ""


 	For i = 1 To 4

 	x = x & " " & Cells(j, 1 + i)

 	Next i


 	Range(Cells(j, 3), Cells(j, 5)).Clear

 	Cells(j, 2) = x

	Next j

 Range("A1", "B" & z).Copy

 	Workbooks("Book1.xls").Close False

	Workbooks("Book2.xls").Activate

	[A2].Select

	ActiveSheet.Paste

 	[A2].Select

End Sub

مرفق الملف Book2.xls وبه الكود

Book2.rar

[shar]

جاري التحميل والتجربة .... وجزاك الله خير

[shar]

عزيزي

الله يسعدك دنيا وأخرة

عند سؤال في طريقة ربط الزر الذي يضغط عليه كيف طريقة ربطه لو اريد تغير نوع الأزار مثلا على شكل صورة ، وثانياً ارغب بدلا من أن يكون الملف المراد النقل منه اسم Book1 أنا أريد أن يسحب من أي ملف مفتوح وبأي أسم كان وبشكل عام ... ومعليش على الإزعاج " عضو مبتدي " وشكرا لك .

تم تعديل نوفمبر 10, 2010 بواسطه shar

[طارق محمود]

السلام عليكم

أخي الكريم

مافيش إزعاج أبدا

طريقة ربط الزر الذي يضغط عليه كيف طريقة ربطه لو اريد تغير نوع الأزار مثلا على شكل صورة ،

يجوز عمل الربط علي الصورة أو الأشكال الجاهزة بالأوفيس

وطريقة الربط واحدة

كليك بالماوس يمين علي الشكل او الصورة ثم إختر Assign Macro

ستجد قائمة بها أسماء الماكروهات المتاحة ، كليك علي ماتشاء منها

مرفق فيديو للتوضيح

وثانياً ارغب بدلا من أن يكون الملف المراد النقل منه اسم Book1 أنا أريد أن يسحب من أي ملف مفتوح وبأي أسم كان وبشكل عام

في الكود الذي بالملف والموجود أيضا في المشاركة #6 من هذا الموضوع

إستبدل كل كلمة Book1 باسم الملف الذي تريد وهي موجودة 3 مرات في الكود

مثلا لو الملف إسمه SHAR.xls

فيكون الكود كالتالي

 Sub Shift_Data()

'

' Macro2 Macro

' Macro recorded 09/11/2010 by web


Dim file_1 As String

On Error Resume Next

file_1 = ActiveWorkbook.Path & "\SHAR.xls" 'هنا

Workbooks.Open Filename:=file_1

Workbooks("SHAR.xls").Activate 'هنا


	z = Range("B1", [E1000].End(xlUp)).Rows.Count


	For j = 1 To z

 	x = ""


 	For i = 1 To 4

 	x = x & " " & Cells(j, 1 + i)

 	Next i


 	Range(Cells(j, 3), Cells(j, 5)).Clear

 	Cells(j, 2) = x

	Next j

 Range("A1", "B" & z).Copy

 	Workbooks("SHAR.xls").Close False 'هنا

	Workbooks("Book2.xls").Activate

	[A2].Select

	ActiveSheet.Paste

 	[A2].Select

End Sub 

مع التحية

ASSIGN_Macro.rar

[shar]

في الكود الذي بالملف والموجود أيضا في المشاركة #6 من هذا الموضوع

إستبدل كل كلمة Book1 باسم الملف الذي تريد وهي موجودة 3 مرات في الكود

مثلا لو الملف إسمه SHAR.xls

قصدي يسحب من أي ملف مفتوح مع Book2 على سطح المكتب (مسار مفتوح ) أي بدون تحديد اسم في الكود ... وشكرا

تم تعديل نوفمبر 10, 2010 بواسطه shar

[طارق محمود]

في هذه الحالة

تسجل نسخة من الملف الذي به الماكرو كملحق من ملحقات الإكسل علي جهازك

أي Add-In

لو كنت تستخدم 2003 فستجد خيار التسجيل هذا في آخر خيارات حفظ بإسم Save As

وسينتج عنه

نسخة من الملف بامتداد xla وليس xls

وستحفظ في فولدر الإكسل

وستجد إسم هذا الملف موجود في قائمة الـ Add-In

التي تجدها في

Tools > Add-In

ويكون هذا الملف بما فيه من ماكروهات قيد التنفيذ مع الإكسل بشرط تنشيطه من تلك القائمة

[طارق محمود]

يفضل عمل زر إختصار بدل الزر في هذه الحالة

قبل تسجيل الملف كما سبق في الشرح

إضغط Alt-F8

سيظهر لك اسم الماكرو

من Options

إختر زر وليكن k مثلا ليسهل عليك استدعاء الماكرو فيما بعد عن طريق ضغط Ctrl مع k

[shar]

تحت التجربة وسؤال أخير كيف يمكن إحفاء علامات التبويب للأورق في أسفل صفحة برنامج الاكسل وشكرا

[طارق محمود]

عفوا لم أفهم

إن كنت تقصد إخفاء ظهور اسماء الشيتات

من Tools

Options

View

Windows Options

إمسح العلامة أمام الـ Sheet Tabs

[shar]

أوفيس 2007 وحاولت من خيارات وإطهار علامات التبويب في المطور ... هل هذه الطريقة أو يوجد طريقة أخرى ؟؟؟

تم تعديل نوفمبر 10, 2010 بواسطه shar

[shar]

في هذه الحالة

تسجل نسخة من الملف الذي به الماكرو كملحق من ملحقات الإكسل علي جهازك

أي Add-In

لو كنت تستخدم 2003 فستجد خيار التسجيل هذا في آخر خيارات حفظ بإسم Save As

وسينتج عنه

نسخة من الملف بامتداد xla وليس xls

وستحفظ في فولدر الإكسل

وستجد إسم هذا الملف موجود في قائمة الـ Add-In

التي تجدها في

Tools > Add-In

ويكون هذا الملف بما فيه من ماكروهات قيد التنفيذ مع الإكسل بشرط تنشيطه من تلك القائمة

------

يفضل عمل زر إختصار بدل الزر في هذه الحالة

قبل تسجيل الملف كما سبق في الشرح

إضغط Alt-F8

سيظهر لك اسم الماكرو

من Options

إختر زر وليكن k مثلا ليسهل عليك استدعاء الماكرو فيما بعد عن طريق ضغط Ctrl مع k

بصراحة مش عارف الطريقة ولو يوجد ملف مرفق للتوضيح خاصة وأنا الآن أعمل على أوفيس 2007 معليش على الإزعاج وشكرا

[طارق محمود]

مرفق فيديو لتوضيح كيفية عمل ذلك عل 2010

للأسف ليس عندي الآن 2007

ASSIGN_Macro2.rar

[shar]

عزيزي

اشكرك على جهدك الرائع في الشرح ولكن يمكن أنا لم استطيع توصيل الفكرة بشكل واضح حيث كان المطلوب :

أولا : أن يقوم المفتاح أو الاختصار في ملف الاكسل Book2 بسحب البيانات من المصدر ونقطة الاختلاف هو هذا المصدر فأنا لا اريد أن يكون محدد لا بأسم B00k1 أو Book5 وأنما اريد أن يسحب البيانات من أي ملف مفتوح على سطح المكتب (طبعاً يكون واحد فقط ) ويحتوي على البيانات ذات الخمسة أعمدة أي عام .

ثانيا : بالنسبة لعلامات التبويب للأوراق أنا عندي برنامج ذات واجه تحتوي على أزارير وأريد طريقة إخفاء علامات تبويب الأوراق والإكتفاء فقط بالواجه للتنقل عبر الأوراق طبعا الأوفيس 2007 أو 2010 .

ثالثت : والأخير هو كيف يمكن تخزين بيانات ملف الاكسل كقاعة بيانات يحتفظ بها داخل الاكسل ويكون مصدرها مثلا جدول داخل البرنامج وذلك بدلا مثلا من أن اقوم بحفظ ملف منفصل كل سنة على حدة وأسف على كثرة الأسئلة والإزعاج ولكم الشكر والتقدير

[shar]

ملف للتوضيح المطلوب في الفقرة الثانية والثالثة

Book10.rar

[طارق محمود]

السلام عليكم

واحدة بواحدة

أولا

جرب الملف المرفق

أضفت للكود سطر مع مايلزم

يسألك عن الملف الذي تريد منه البيانات

جرب وأخبرني

وبعدين نشوف ثانيا وثالثا

Book2.rar

[shar]

السلام عليكم

واحدة بواحدة

أولا

جرب الملف المرفق

أضفت للكود سطر مع مايلزم

يسألك عن الملف الذي تريد منه البيانات

جرب وأخبرني

وبعدين نشوف ثانيا وثالثا

ممتاز ولكن اريد أن يسحب من أي ملف مفتوح مسبقا ويكون نشط على سطح المكتب بدلا من كتابة اسم في المربع وشكرا

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

طريقه اخرى للترحيل

http://www.officena.net/ib/index.php?showtopic=19642&st=0&p=89651&hl=دفعه&fromsearch=1&#entry89651

السلام عليكم

[shar]

نشوف ثانيا وثالثا

[طارق محمود]

السلام عليكم

مازلنا في أولا

جرب الملف المرفق

أضفت مايلزم للكود ، لن يسألك عن إسم الملف

ولن يتحدد باسم الملفات أو عددها

سيرحل كل البيانات من جميع الملفات المفتوحة أسفل بعضها في الملف الأصلي

لابد ان تكون قد فتحت الملفات قبل بدأ الكود

ولايهم ان تكون علي سطح المكتب أم لا

المهم أن تكون مفتوحة

جرب وأخبرني

وبعدين نرجع مرة أخري لثانيا وثالثا

Book2_new.rar

[shar]

ممتاز بارك فيك وهو المطلوب بالفعل ... بإنتظار الثاني والثالث وكل عام وانت والجميع بخير