تصدير الى ملف اكسل من نوع xlsm

[عفرنس]

اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . 

لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . 

ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B  في ملف اكسل وعمود F16  في عمود C في ملف اكسل .

والتصدير يكون في ورقة  ( متابعة الدرجات ) ..

لكم الود والتقدير .. 

[ابو البشر]

اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل

[عفرنس]

منذ ساعه, ابو البشر said:

اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل

جميل أخي @ابو البشر تم التعديل وظهر .. 

بقي كود التصدير ..

أريد عند اختيار الصف والشعبة ثم اختيار ملف اكسل نضغط زر تصدير ليرحل أسماء الصف والشعبة إليه في ورقة ( متابعة الدرجات ) 

طبعا أريد ترحيل بيانات العمودين t1 و f16  إلى القالب المرفق في المشاركة الأولى لي . وليس انشاء ملف اكسل جديد .. 

تم تعديل يوليو 24, 2020 بواسطه فايز..

[محمد أبوعبدالله]

اين المرفق

3 ساعات مضت, فايز.. said:

أريد ترحيل بيانات العمودين t1 و f16

على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها

ثم قم بتصدير الاستعلام

DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True 

تحياتي

[عفرنس]

38 دقائق مضت, محمد أبوعبدالله said:

اين المرفق

على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها

ثم قم بتصدير الاستعلام

DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True 

تحياتي

هذا المرفق . وأظن نسيت ارفاقه في المشاركة السابقة .. 

المطلوب نقل البيانات من عمود t1 إلى عمود B  في ملف اكسل المرفق وعمود F16  في عمود C في الملف المرفق . 

نقل البيانات .rar

[محمد أبوعبدالله]

تفضل اخي الكريم

الحل موجود في الموضوع التالي

تحياتي

[Barna]

 

 

تم تعديل يوليو 25, 2020 بواسطه Barna

[عفرنس]

6 ساعات مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

الحل موجود في الموضوع التالي

تحياتي

سأجرب ومن ثم اوافيكم بالنتيجة .. 

[Barna]

23 ساعات مضت, فايز.. said:

اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . 

لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . 

ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B  في ملف اكسل وعمود F16  في عمود C في ملف اكسل .

والتصدير يكون في ورقة  ( متابعة الدرجات ) ..

لكم الود والتقدير .. 

اخي فايز ... 

ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟

لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا....

 

تم تعديل يوليو 25, 2020 بواسطه Barna

[عفرنس]

7 دقائق مضت, Barna said:

اخي فايز ... 

ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟

لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا....

 

جميع المواد عمود B يحتوي  الرقم الاكاديمي وعمود C يحتوي اسم الطالب .. 

انا هدفي من هذا البرنامج .. اريد نقل اسماء الطلاب وارقامهم الاكاديمية في هذين العمودين بضغطة زر .. 

سابقا كنت انسخ والصق لكن هذا يستغرق وقتا كثيرا .. 

خاصة اذا كل مادة لا تقل عن 5 شعب في كل مرحلة .. 

اذا اردت ارفق لك بقية المواد حاضر .. 

لكن في البداية نريد نطبق على مادة الاجتماعيات .. 

كتب الله اجرك .. 

[عفرنس]

12 ساعات مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

الحل موجود في الموضوع التالي

تحياتي

لأسف أخي @محمد أبوعبدالله ليس هذا المراد . 

[jjafferr]

الاستاذ فايز 🙂

 

تقدر تعمل استعلام بالحقلين المطلوبين ،

ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 

 

جعفر

[عفرنس]

10 دقائق مضت, jjafferr said:

الاستاذ فايز 🙂

 

تقدر تعمل استعلام بالحقلين المطلوبين ،

ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 

 

جعفر

اعملهم فين ؟؟ 

في نفس برنامجك والا برنامجي ؟؟ 

لأن لما اختار الخطوة الاولى والثانية ما يظهر لي غير الجدولين اللذين في برنامجك .. 

ايضا لما اجي للخطوة رقم 3 لا يظهر لي ملفي الذي اريد ارحل العمودين له .. 

المرفق موجود مسبقا ولك ان تجرب وتوافينا بالنتائج 

تم تعديل يوليو 25, 2020 بواسطه فايز..

[Barna]

مشاركة مع حبايبنا الاساتذة ....

استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل .....

Dim db1          As DAO.Database
Dim Rst1         As DAO.Recordset
Set db1 = CurrentDb
Dim objExcel     As Object
Dim objWorkbook  As Object
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(sXlsFile)
  
    Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot)
objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")"
    With Rst1
        If .RecordCount <> 0 Then
            .MoveFirst
            objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1
            objWorkbook.Sheets(2).range("b5").Select
        End If
    End With
  objExcel.DisplayAlerts = True
  objWorkbook.Close SaveChanges:=True
  Set objWorkbook = Nothing
  objExcel.Quit

Set objExcel = Nothing
Set Rst1 = Nothing
Set db1 = Nothing
VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus
DoCmd.DeleteObject acTable, "temp"

انظر النتيجة في ملف الاكسل ..........

 

Ba_Deffi.rar

[jjafferr]

استاذ فايز ،

في الرابط ، المادة 12 و 13 تقول :

اقتباس

12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها.

 

يعني استورد هذه الكائنات الى برنامجك 🙂

وبعدين كل شيء يتم من برنامجك 🙂

 

جعفر

 

[عفرنس]

1 ساعه مضت, Barna said:

مشاركة مع حبايبنا الاساتذة ....

استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل .....

Dim db1          As DAO.Database
Dim Rst1         As DAO.Recordset
Set db1 = CurrentDb
Dim objExcel     As Object
Dim objWorkbook  As Object
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(sXlsFile)
  
    Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot)
objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")"
    With Rst1
        If .RecordCount <> 0 Then
            .MoveFirst
            objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1
            objWorkbook.Sheets(2).range("b5").Select
        End If
    End With
  objExcel.DisplayAlerts = True
  objWorkbook.Close SaveChanges:=True
  Set objWorkbook = Nothing
  objExcel.Quit

Set objExcel = Nothing
Set Rst1 = Nothing
Set db1 = Nothing
VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus
DoCmd.DeleteObject acTable, "temp"

انظر النتيجة في ملف الاكسل ..........

 

Ba_Deffi.rar 81.2 kB · 0 تنزيلات

جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. 

لكن عندي بعض الملحوظات وهي : 

اذا عندي مادة اجتماعيات كمثال : للصف الأول الثانوي والصف يتكون من 5 شعب . وصدرت بيانات الشعبة رقم ( 1 ) في الملف يتم تصديرها تمام . ثم اذا أردت تصدير شعبة رقم ( 2 ) واخترت ملف الاكسل في المجلد لنفس المادة يحذف بيانات الشعبة رقم ( 1) ويضع هذه مكانها . 

كيف نحل المشكلة ذي ؟؟ 

[Barna]

40 دقائق مضت, فايز.. said:

جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. 

لكن عندي بعض الملحوظات وهي : 

اذا عندي مادة اجتماعيات كمثال : للصف الأول الثانوي والصف يتكون من 5 شعب . وصدرت بيانات الشعبة رقم ( 1 ) في الملف يتم تصديرها تمام . ثم اذا أردت تصدير شعبة رقم ( 2 ) واخترت ملف الاكسل في المجلد لنفس المادة يحذف بيانات الشعبة رقم ( 1) ويضع هذه مكانها . 

كيف نحل المشكلة ذي ؟؟ 

حلها بارك الله في تحويل ملف الاكسل الى قالب ...... 

جرب واعلمنا بالنتيجة .......

 

اجتماعيات.rar

[عفرنس]

39 دقائق مضت, Barna said:

حلها بارك الله في تحويل ملف الاكسل الى قالب ...... 

جرب واعلمنا بالنتيجة .......

 

اجتماعيات.rar 131.25 kB · 2 تنزيلات

فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. 

تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو ..

 

@@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..  

تم تعديل يوليو 25, 2020 بواسطه فايز..

[Barna]

33 دقائق مضت, فايز.. said:

فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. 

تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو ..

 

@@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..  

طيب دقائق اعدل بعض الاشياء و نجعل البرنامج يحفظ مباشرة في ملف باسم الشعبة  .....------------>>>>>>>

[Barna]

انظر المرفق واعلمنا بالنتيجة ---------->>>>>>

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

 

Ba1_Deffi.rar

[عفرنس]

52 دقائق مضت, Barna said:

انظر المرفق واعلمنا بالنتيجة ---------->>>>>>

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

 

Ba1_Deffi.rar 81.49 kB · 0 تنزيلات

شكر الله لك أخي محمد @Barna شي جميل وعمل رائع .. 

كفيت ووفيت .. ألف ألف شكر .. وفقك الله ويسر أمرك .. 

[عفرنس]

أخواني @Barna  @kanory @jjafferrتحية طيبة لك .. 

في البرنامج أضفت جدول خاص بالمادة 

وأريد أن يتم تصفية الطلاب حسب المادة والشعبة ومن ثم يتم التصدير .. ( لأنه كما تعلم صف أول ثانوي الشعبة رقم 2 كمثال ليس كلهم يدرسون مادة اجتماعيات ) 

طبعا الأمور تمام لكن المشكلة التي واجهتني هي بعد ما أضغط زر التصدير لا أجد الرقم الأكاديمي ولا اسماء الطلاب في ملف الاكسل .. 

بصراحة خشمي صدع .. 

فريت الكود فر .. ولا طلعت بنتيجة . 

وهذا المرفق 

 

 

برنامج تصدير الطلاب الى السجل الإلكتروني33.rar

تم تعديل يوليو 26, 2020 بواسطه فايز..