أكاديمية الصقر للتدريب

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


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





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

الإخوة الأفاضل / السلام عليكم اريد كود يقوم بنسخ البيانات الخاصة بالاسم والسن من الملف الاول واسمه Frist_File والذى ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


11-03-2021 11:15 مساء
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

الإخوة الأفاضل / السلام عليكم
اريد كود يقوم بنسخ البيانات الخاصة بالاسم والسن
 من الملف الاول واسمه
 Frist_File 
والذى يكون مفتوحا
مع العلم أن اسمه ومساره قد يتغير (اى غير ثابت )إلى هذا الملف المفتوح ThisWorkbook
واسمه  Second_File  والذى يكون مفتوحا أيضا
وقد استخدمت هذا الكود ، وهو يفى بالغرض 
لكن المشكلة لو تم تغير اسم الملف الاول الذى به البيانات



Sub Copy_Data()
Workbooks("Frist_File").Sheets("Sheet1").Range("A2:B15").Copy
ThisWorkbook.Sheets("Sheet1").Range("A2:B15").PasteSpecial Paste:=xlPasteValues
End Sub


وشكرا لكم 
الملفين المرفقين

MzQ2NDQ1MQ9393Capture
 
 







 
 
  Second_File.zip   تحميل zip مرات التحميل :(3)
الحجم :(15.548) KB
  Frist_File.zip   تحميل zip مرات التحميل :(3)
الحجم :(6.885) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذا الكود
يحدد لك عدد المصنفات المفنوحة ما عدا المصنف الرئيسي
و يفترض ان  الملف المصدر ( المراد النسخ منه ) هو أول واحد منها

Option Explicit

Sub How_Many_Opened_Books()
Dim P%, Other_Path$
Dim Coll As New Collection
Dim Main_Book As Workbook
Dim Other_Book As Workbook
    
    For P = 1 To Application.Workbooks.Count
     If Workbooks(P).Name <> ThisWorkbook.Name Then
       Coll.Add Workbooks(P).Name
     End If
    Next
 
 If Coll.Count = 0 Then Exit Sub
    Set Main_Book = ThisWorkbook
    Set Other_Book = Workbooks(Coll(1))
    MsgBox Other_Book.Name
    Other_Path = Other_Book.Path
    MsgBox Other_Path
End Sub


 
عرض الإجابة




12-03-2021 08:47 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
وعليكم السلام أخي الكريم أبا الحسن
ما المشكلة التي تحدث معك بالضبط وأين هو الكود الذي بدأت في العمل عليه؟
يفضل أن تحاول في حل المشكلة قبل طرح السؤال وتخبرنا إلى أين توصلت بالضبط وأين تعثرت
التعامل مع الملف المفتوح أمر في غاية البساطة ، كل ما عليك هو أن تستخدم متغير لهذا المصنف المفتوح وليكن wb ثم تستخدم السطر التالي للإشارة إليه
Set wb=Workbooks("myopenfile.xlsm")


وللإشارة إلى ورقة عمل معينة في المصنف الذي أشرت إليه
Set ws=wb.Worksheets(1)

12-03-2021 02:28 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
الإخوة الأفاضل
الأخ الفاضل  / ياسر خليل 
تم إعادة رفع الملفات فى نفس الموضوع
مع كتابة الكود المستخدم 
وتوضيح المطلوب بشكل أوضح

14-03-2021 07:47 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
 اسم الملف الاول المفتوح الذي تريد النسخ منه اسمه غير ثابت ومسارة غير ثابت ؟
اسم الملف الثانى المفتوح الذي تريد النسخ اليه اسمه ثابت ومسارة ثابت ولا متغير ايضا ؟

 

15-03-2021 01:23 صباحا
مشاهدة مشاركة منفردة [4]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
 اسم الملف الاول المفتوح المطلوب النسخ منه  غير ثابت وقد يختلف من مستخدم لاخر او من شركة لاخري او حسب ما يسميه المستخدم
اسم
الملف الثانى المطلوب النسخ إليه ايضا غير ثابت لكن استخدمت
ThisWorkBook للاشارة اليه 
لذا ف
المشكلة كلها فى اسم الملف الأول غير الثابت
 

15-03-2021 05:14 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
هل سيكون هناك ملفات أخرى مفتوحة؟
إذا لم يكن هناك غير هذين الملفين يمكن عمل حلقة تكرارية حول المصنفات المفتوحة ثم معرفة اسم المصنف الآخر المفتوح دون المصنف الحالي وبهذا تنتهي المشكلة
أما إذا كان هناك مصنفات أخرى مفتوحة كثيرة فأعتقد مستحيل معرفة اسم المصنف المطلوب إلا إذا كان هناك شيء مختلف بهذا الملف أو شيء مميز داخله في ورقة عمل محددة.

15-03-2021 07:13 مساء
مشاهدة مشاركة منفردة [6]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif كود لنسخ بيانات من ملف اسمه ومساره غير ثابت الى ملف اخر
بالفعل يكون هذين الملفين هما المفتوحين فقط 
وينبه على المستخدم بهذا عند استخدامه للملفات


والمطلوب التوصل للملف الاخر (الوحيد) المفتوح 
حيث ان الملف الحالى الذى يتم النسخ  اليه يشار اليه بـ  Thisworkbook

يعنى المطلوب باختصار كود معناه
انسخ النطاق ..... من الملف الاخر المفتوح (غير الملف الحالى) الى النطاق ..... بالملف الحالى المفتوح.


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
بيانات ، لنسخ ، ومساره ، اسمه ، ثابت ،


 










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

الساعة الآن 11:48 صباحا