copy data from a closed excel file & paste it in a closed excel file by mokhtar

[مختار حسين محمود]

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :-

********************************************

مع كل شىء جديد فى الأكسل أصل إليه   أحب أن أقدمه للمنتدى

                                                    الذى تعلمت منه وفيه   كرد للجميل الذى وهبنى إياه من قبل

 

باختصار لو عندى 3 ملفات اكسل  ( أ  و  ب  و ج ) نقدر ننقل بيانات  من ( أ )  إلى  ( ج )   بدون فتح ( أ ) ولا فتح (ج )

                                   ( انجليزى ده يا مرسى  ؟؟؟؟ )

 

لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك .

طريقة التعامل مع المرفق :

 

فك الضغط عن المرفق هتلاقى 3 ملفات  mokhtar1   و   mokhtar2  و   mokhtar3

1-    افتح  mokhtar1     واكتب ما يبدو لك فى المدى المحدد (  A1 : C5   )  واقفله

2-    رووووح    على mokhtar2    فقط اضغط الزر   " اقفل يا سمسم "

3-     اجرى بسرعة على  mokhtar3     وشوف النتيجة .
 

 

الشرح والأكواد فى المرفق    123 كلمة سر الفيجوال بيسك .

أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف .

 

                                                                      تحياتى لأساتذتى وزملائى

 

 

 

copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

تم تعديل ديسمبر 26, 2014 بواسطه مختار حسين محمود

[محمد لطفى]

السلام عليكم

اخى الحبيب / مختار حسين محمود 

اولا انى احبك فى الله  واتمنى لك التوفيق والنجاح الدائم

انا منذ فترة وانا متابع جيد لاغلب المواضيع الخاصه بسيادتكم  وكلها ماشاء الله قويه

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

[الجموعي]

استاذي الفاضل

مختار حسين محمود

عمل رائع جدا فعلا مبدع

بورك فيك وفي مساعيك

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

[مختار حسين محمود]

الأستاذ الفاضل محمد لطفى  

                                أحبك الذى أحببتنى فيه

                                                            بارك الله فيكم وشكرا على مروركم الكريم .

                      ************************************************

الأستاذ الفاضل الجموعى

                        بارك الله فيك .وفى أهلك . 

                                                  نحن هنا بنتعلم من بعض .

 

                       *************************************************

                                تابعا الموضوع لأنى بصدد تقديمه بصورة أراها أجمل إن لم تكن مثلها.

                                                                                       تحياتى لكما ولكل الزملاء والأحبه فى المنتدى .

تم تعديل ديسمبر 26, 2014 بواسطه مختار حسين محمود

[أبوعيد]

رحم الله أباك يا استاذ مختار
عمل رائع جدا

[ابراهيم الحداد]

بارك الله فيك اخى واصل ابداعاتك

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

[ياسر خليل أبو البراء]

جزيت خيراً أخي الحبيب مختار ..بارك الله فيك .. واصل واصل بلا فواصل

لم أجرب الملف بعد ...سأجربه ليلاً لأن النت بطيء جدا دلوقتي

[مختار حسين محمود]

  

الأستاذ الفاضل أبو عيد  

رحم الله موتانا وموتاكم     وجعل قبورهم روضة من رياض الجنة    مد بصرهم 

                                                                       بارك الله فيكم وشكرا على مروركم الكريم

                                        **********************************************************************

 

الأخ زيزووووووووووو     بارك الله فيك وشكرا على مرورك الكريم 

                                                             والله يا أخى ما هو ابداعى كله  هى فكرة وأنا بنيت عليها

                                *********************************************************************************

.

أستاذى العزيز / أبوخليل  نورت الموضوع

                                   فينك من بدرى ؟   ( سؤال مش أغنية )

 

وعدتكم بأن أقدم لكم موضوعات جديدة 

                                                وها أنا أفعل وسوف أفعل

 

بس لازم آخد فاااااااااااااااااااااااااااااااااااااااااااااااااصل عشان أقدر أواصل  ولا إيه ؟!

                                                     أرجو أن يعجبك الملف  منتظر رأيك  أيا كان

 

وليعلم الجميع أن الكودين المهمين فى الموضوع 

                               طبعاً مش من عندى ( جهزوا لى محامى )

                                                      صاحبهم واحد معرفوش كان ناشره فى مشاركة  لا أذكره ولا أنا فاكر موقعه  

 

أنا لما بقعد على النت  أقعد أغوص أغوص  أغوص فى بحر النت لاصطاد اللؤلو والمرجان

                                                      وأخطف اللؤلؤة من دول  ويا فكيك على نزلة باقور

 

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

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

الحج  اياااااااه عمل كودين وجاب لى بيهم  البيانات

                                   بس أنا وديتهم  له  بلينك ( أصل أنا  لسه على أقدى )    :biggrin:

 وكلمه فى سركم  (عشان أغيظه كتبت العنوان بتاع الموضوع بالإنجليزى... يمكن يطلع امريكانى ) :wavetowel:

           

       بس وحياة اللى  كلت دراع جوزها  لأنا موديهم له

                                         برده و بكود ( واااااااحد ) بس اصبروا علىّ شويه 

                ( أنا دلوقتى x الفاصل )

                                               انتظرونى وفى نفس الموضوع  وتحياتى للجميع

                                        

 

                                                                                                        

 

  

[ياسر خليل أبو البراء]

أخي الحبيب مختار ..

الملف الأخير مختار3 لم تظهر فيه البيانات بشكل صحيح ..

مش عارف المشكلة عندي انا بس ولا فيه حد تاني قابلته نفس المشكلة ، وعلى فكرة أنا طبقت الخطوات كما في الملف النصي بالضبط ..

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

استاذ مختار

 

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

[مختار حسين محمود]

أستاذى العزيز / ياسر

اعمل تنسيق  الخلايا فى الملفات الثلاث ( نص ) هتظبط معاك          منتظر الرد

 

                 *****************************************************

 

الأستاذ  خالد الشاعر  بارك الله فيك  وشكرا على مرورك الكريم

تم تعديل ديسمبر 27, 2014 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

طيب أنا وجدت تنسيقها نص بالفعل ..غيرتها لـ General ثم ضغطت دبل كليك في كذا خلية بدأت تظهر البيانات بس الرقمية فقط وليس البيانات النصية.. البيانات النصية يظهر مكانها صفر

[مختار حسين محمود]

أستاذى الفاضل

لاحظ أنه يجب أن يكون تنسيق الخلايا فى الملفات الثلاث واحد

وموضوع الأصفار ده

لأن حضرتك    فى الكود اللى بيجيب الخلايا من مختار 1 الى مختار2

طلبنا احضار المدى كله   ( a1:c5  )   الى مختار2   ومن ثم الى  مختار3

لذلك الخلية التى بها داتا هنا  بتروح الى هناك داتا

والخلية الفارغة فى مختار 1            بتروح الى مختار 2    صفر   وبالتالى  بتكون فى  مختار3    صفر

 

لاحظ كمان أن فى الشيت الثالث لينك بيجيب البيانات من مختار2   ده ثابث ما بنغيروش

التغيير فقط   فقط فى الشيت مختار 1 لما نحب نعيد التجربة مع بيانات جديدة

                                                                      ولحضرتك جزيل الشكر أستاذى العزيز

[مختار حسين محمود]

السلام عليكم أساتذتى وإخوانى

فى المشاركة الأولى تم طرح كيفية نقل البيانات من ملف مغلق

الى آخر مغلق استخدمت فيها كودين كنت لا أعرف من صاحبهما
وجائى تعقيب من أستاذى الفاضل بن عليه حاجى

أكد فيه على أهمية الموضوع وشىء من هذا القبيل

إلا أنه أوصانى بذكر المصادر احقاقا للحق

وكنت وعدتكم بأنى سوف أنقل البيانات من مختار2 الى مختار3

بكود بدلا من اللينك وأنا عملت بهذه النصيحة
 

فأعدت البحث مرارا حتى توصلت الى المصادر التى اعتمدت عليها
 
كما أن الله عز وجل وفقنى الى ما وعدتكم به

أما عن المصادر وكيفية التوصل للكود

سوف تعرفونها من المقاله التاليه والتى كتبتها باللغة الانجليزية

اعذرونـــــــى على هـــذا .
 
 كما ألتمس العذر على السهو والخطأ فى اللغة الإنجليزية  
                                                                                                                                                                                            

                                      Hi All                                                                                                                                                                                                                     
  Firstly if we have a 3 excel files

  mokhtar1 , mokhtar2 & mokhtar3

  mokhtar1 & mokhtar2 in the same path

  mokhtar3 in a  different place like :

  ("C:/TEMP/mokhtar3.xls")
 
  we can copy "A1:C5" from "Sheet1

  in the closed  file  ( mokhtar1) W.B

  and  paste data in the  ( mokhtar2) W.B

  then we export it to the ( mokhtar3) W.B  

  1- Copy data from ( mokhtar1) to ( mokhtar2
  ====================================
  to do that open the workbook ( mokhtar2)

  then click import tab
 
  we use ADO to copy data from

  a closed workbook ( mokhtar1

  without opening the workbook

  then paste it in the workbook ( mokhtar2)

  Note: * You can also use a named range
 
      " if you want like "Mydat

       If you want to copy only one cell
     use "A1:A1" and not "A1"in the code
      

  for more info about Ado See this page
  http://support.microsoft.com/kb/278973
 
  Ron de Bruin did  this function GetData

  Thanks  Ron  very very very mutch

  for info about Ron de Bruin see

  http://mvp.microsoft.com/en-US/search-mvp.aspx?kw=Ron+de+Bruin


  2 - Export data TO a closed workbook
   ===============================
   we can not put ANY data in ( mokhtar3)

   without open it, it is a closed file
 
   I'm hunt for a code to do this IN SITES
 
   I   FOUND a good one at
   
   http://www.ozgrid.com/forum/showthread.php?t=89776
 

Sub CopyIt() 
    Dim wbCopy As Workbook 
    Dim wbPaste As Workbook 
     
    Application.ScreenUpdating = False 
    Set wbCopy = Workbooks.Open("full path here/Recent Faxes.xls") 
    Set wbPaste = Workbooks.Open("full path here/Current Documentation.xls") 
    wbCopy.Sheets(1).Range("AA47").Copy 
    With wbPaste.Sheets(1).Range("B25") 
        .PasteSpecial xlValues 
        .PasteSpecial xlFormats 
    End With 
    wbCopy.Close , False 
    wbPaste.Close , False 
    Application.ScreenUpdating = True 
  End Sub 

this Dave HAWLY'code

  Thanks  Dave HAWLY very  mutch

   Dave'S code OPEN FILE" wbPaste" THEN put Data  DIRECTLY
   WITH FEELING OF USER  
   
   i  have devloped it to this

Sub export_data()

    Dim mokhtar2 As Workbook
    Dim mokhtar3 As Workbook
     
    Application.ScreenUpdating = False
    
    Set mokhtar2 = ActiveWorkbook
   
    Set mokhtar3 = Workbooks.Open("C:/TEMP/mokhtar3.xls")
    
    mokhtar2.Sheets(1).Range("A1:C5").Copy
    
    With mokhtar3.Sheets(1).Range("A1")
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
           End With
   
    Application.Quit
  
   End Sub

MY code open a closed file  mokhtar3

   and put the data on it, then close it quickly

   without  feeling of the user as app  works
                                                                     
   in  back
   this is my idea TO export data from a closed workbook
   
   to a closed workbook

   I hope that it is easy to use

   =========================

   Download filse from here :
   
   http://www.mediafire.com/download/df17y8oe81f1brk/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__2_).rar
   ===================================================================================

    S.N  VBA " 123 "  { mokhtar1 , mokhtar2 & mokhtar3 }

   ====================================================================================
  
   Thanks 4 all

   H.Mokhtar
   
   HAM2DAY30@YAHOO.COM
   
   http://www.officena.net/ib
     
   EGYPT
   29/12/2014
      00.00 am
 

تم تعديل ديسمبر 28, 2014 بواسطه مختار حسين محمود

[مختار حسين محمود]

للأخوة اللى مش واخدين بالهم من الملف الجديد .

اعذرونى على  اتجاه الكتابه  أظن صعب عليه أظبط ده كله

 

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

 

يمكن تحميله من الميديا فاير على الرابط التالى :    

http://www.mediafire.com/download/df17y8oe81f1brk/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__2_).rar

 

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

copy data from a closed excel file & paste it in a closed excel file by mokhtar ( 2 ).rar

[علي المصري]

جزاك الله خيرا ورحم الله ابيك رحمة واسعة إن شاء الله

[ياسر خليل أبو البراء]

تسلم يا أخ مختار

بارك الله فيك

الملف الأخير مضبوط ..وفكرة جميلة ربنا يجازيك كل خير يا كبير

[أبو محمد عباس]

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

الاخ العزيز مختار حسين جزاكم الله خيرا

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

وفقكم الله واعطاكم الصحة والعافية

[مختار حسين محمود]

الأستاذ الكريم  على المصرى 

كل سنة وحضرتك طيب

آمين  آمين  آمين  تقبل الله دعاءك وجعله فى ميزان حسناتك

( بلدياتى مش كده ؟)

 

الأستاذ أبو محمد عباس 

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

بارك الله لك وعليك وفيك

ربنا يدينا ويديك الصحة

 

أستاذى العزيز/  ياسر 

كله  بفضلكم وتشجيعكم لى  ربنا يخليك ليه يا أستاذى العزيز

 

*******************************************************

انتظرونى  فيه اضافه مهمة للموضوع

تم تعديل ديسمبر 29, 2014 بواسطه مختار حسين محمود

[مختار حسين محمود]

الاضافات الجديدة  على الرابط التالى :

http://www.officena.net/ib/index.php?showtopic=57903#entry368572

ستعرفون معلومات بسيطة عن طريقة  ADO      فى ترحيل ونقل البيانات

وستعرفون كيفية  جلب بيانات من 3 ملفات مغلقة دفعة   واحدة ثم ترحيلها وادخالها الى شيت مغلق آخر دون شعور المستخدم بذلك .

[الســـــــاهر]

جزاك الله خير ورحم الله والدك رحمة واسعة

[Hamdi Edlbi-khalf]

السلام عليكم

جهد عظيم، و لكن منذ 2010 أصبح كافياً في مجال الترحيل و دمج ملفات الإكسل الاستعانة  بالـ Power Query.

مع كفاءة عالية في ذلك و دون مشاكل الأكواد  و  بمييزات يكون تحقيقها بواسطة VBA عسيراً أو ربما غير ممكن.

 

 

[ياسر فاروق]

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

الاخ العزيز مختار حسين جزاكم الله خيرا

لى طلب عند حضرتك

عندى عدد كثير من الملفات (مرفق الملف) والمطلوب وضع صورة ختم الشركة فى هذه الملفات

وفقكم الله واعطاكم الصحة والعافية

1.rar

[محمد الشابورى]

هل تريد الختم فى الشكل

Rectangle 1

ام فى الخلية المدمجة

f25

??

[ياسر فاروق]

أ/محمد الشابورى

شكرا على الاهتمام

الشكل مجرد توضيح أين يتم وضع الصورة (لن يستعمل هذا الشكل)

وشكرا