مساعدة وتعديل على برنامج Export_to_Excel تصدير البيانات الى اكسيل

[ahmed draz]

Export_to_Excel تصدير البيانات الى اكسيل.zip

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

عند استعمال البرنامج وهو برنامج رائع جدا ومفيد للغاية وجدت انه لايستطيع أن يتعامل مع اسماء الجداول و الاستعلامات عند تسميتها باللغة العربية وبالتحديد عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى) فإنه يعطي رسالة خطأ كالتالي  3131 Syntax error in FROM clause وعندما بحثت في الأمر وجدت أن اسم الجدول في كود vba  غير صحيح مع العلم أنه لايوجد اسم جدول في كود vba .

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

Export_to_Excel xls (97-2003 format).rar

تم تعديل April 13 بواسطه ahmed draz

[Foksh]

أخي @ahmed draz ، كل عام وأنت بخير ، وأهلاً بك معنا في عالم آكسيس 

بداية يرجى منك أن تلتزم بقوانين المنتدى ومن أهمها :-
 

محتوى المشاركة

اقتباس

8.    يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملماً بالمشكلة مثلك .....

 

بالنسبة للملف الذي ارسلته كمرفق لم يعمل عندي على أوفيس 2016 . اذا تكرمت ان تقوم بحفظه على الأقل بإصدار 2007 وأحدث 

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

تم تعديل April 13 بواسطه Foksh

[ahmed draz]

السلام عليكم ورحمة الله وبركاته ، أخواني الكرام

تم رفع ملف Export_to_Excel تصدير البيانات الى اكسيل بواسطة الاستاذ ابو الآء 

في الموضع التالى 

ولكن عند استعمال البرنامج وهو برنامج رائع جدا ومفيد للغاية وجدت انه لايستطيع أن يتعامل مع اسماء الجداول و الاستعلامات عند تسميتها باللغة العربية وبالتحديد عن عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى) فإنه يعطي رسالة خطأ كالتالي  3131 Syntax error in FROM clause وعندما بحثت في الأمر وجدت أن اسم الجدول في كود vba  غير صحيح مع العلم أنه لايوجد اسم جدول في كود vba .

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

[ahmed draz]

شكرا لسرعة استجابة حضرتك والملف محدث بصيغة 2007

Export_to_Excel.accdb

[Foksh]

48 دقائق مضت, ahmed draz said:

تسميتها باللغة العربية وبالتحديد عن عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى)

بما أن المشكلة في وجود مسافات في إسم الجدول المستهدف لتصدير سجلاته . فالحل بسيط بإذن الله 

 

لاحظ في السطر التالي الأساسي :-

    i_strSql = "Select * From " & Me.cmb_TQ_Name

سيأخذ اسم الجدول المكون من 4 مقاطع على فرضاً ( وليس بالضرورة لغة عربية أو انجليزية ) ولن يتعرف على الإسم كاملاً . لكن ! في التعديل التالي ستلاحظ الفرق بأن الكود أخذ الإسم كاملاً بكل مقاطعه عند استخدام علامات الإقتباس [ و ] :-

    i_strSql = "Select * From " & "[" & Me.cmb_TQ_Name & "]"

 

طبعاً الشكر موصول لأخونا @ابو الآء على هذا الطرح الجميل  وهذا أثر جميل له رغم أن عمر المشاركة من عام 2015 

 

على العموم جرب وأخبرني بالنتيجة 

[ahmed draz]

شكرا جزيلا اخي الكريم Foksh فأنت في من يصدق فيهم قول الشاعر 

الناس من جهة التفضيل أكفاءُ … أبوهم آدم والأم حــــــــــــــــواءُ
فإن لهمْ يكن من أصلهم شرفٌ … يفاخرون به فالطينُ والمـــــــاءُ
وما الفخر إلا لأهل العلم إنهمُ… على الهدى لمن استهدى أدلاءُ
وقيمة المرءِ ما قد كان يحسنهُ … والجاهلون لأهل العلمِ أعـــداءٌ
فَعِشْ بعلمٍ تَفُـزْ حيَّاً به أبدا … الناسُ موتى وأهلُ العلمِ أحـــــــياءُ

 

شكرا جزيلا فلقد اوضحت المشكلة واعطيت الحل و هذا هو كمال العطاء

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

ملاحظة: الملف المرفوع للجداول فقط وسيتم اخر قريبا للجداول والاستعلامات

Export_to_Excel الملف محدث وبشكل افضل.rar

[Foksh]

48 دقائق مضت, ahmed draz said:

شكرا جزيلا اخي الكريم Foksh فأنت في من يصدق فيهم قول الشاعر 

الناس من جهة التفضيل أكفاءُ … أبوهم آدم والأم حــــــــــــــــواءُ
فإن لهمْ يكن من أصلهم شرفٌ … يفاخرون به فالطينُ والمـــــــاءُ
وما الفخر إلا لأهل العلم إنهمُ… على الهدى لمن استهدى أدلاءُ
وقيمة المرءِ ما قد كان يحسنهُ … والجاهلون لأهل العلمِ أعـــداءٌ
فَعِشْ بعلمٍ تَفُـزْ حيَّاً به أبدا … الناسُ موتى وأهلُ العلمِ أحـــــــياءُ

 

شكرا جزيلا فلقد اوضحت المشكلة واعطيت الحل و هذا هو كمال العطاء

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

ملاحظة: الملف المرفوع للجداول فقط وسيتم اخر قريبا للجداول والاستعلامات

Export_to_Excel الملف محدث وبشكل افضل.rar 81.89 kB · 1 download

شكراً لك أخي @ahmed draz على هذا الشعور والكلام الطيب ؛ النابع من شخص طيب .

 

وشكراً على التنسيق الجميل أيضاً

[ahmed draz]

جزاك الله خيرا اخي الفاضل Foksh 

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

Export_to_Excel تصدير البيانات الى اكسيل محدث.rar

[ahmed draz]

اخي الفاضل Foksh 

لو تكرمت و ساعدتني في طلبي الأخير ان شاء الله

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

وقد ساعدتني مساعدة كبيرة في تصدير الملفات وجرت الامور على أكمل وجه والحمد لله ولكن تبقت معي مسألة استيراد البيانات من الاكسل فقد نجحت في اسيراد ملف واحد فقط ولكنني اريد استيراد باقي الملفات عن طريق كومبوبوكس وليس عن طريق كتابة اسم الجدول المراد استيراد البيانات اليه كل مره في كود VBA ولقد قمت بمعظم العمل والحمد لله ولكن تبقت هذه النقطة فقط و سأوضح بالصور 

واشكرك على صبرك وسعة صدرك. 

 

المشروع الجديد 1.rar

تم تعديل April 14 بواسطه ahmed draz
رفع ملف خطأ

[Foksh]

تحديثات جميلة ، الله يعطيك العافية على مجهودك  

ولا يهمك ، إن شاء الله حال وصولي للعمل سأتابع معك 🤗

[Foksh]

تفضل يا صديقي ، واتمنى ان اكون فهمت صح 

 

المشروع الجديد 1.zip

[ahmed draz]

اخي الفاضل Foksh 

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

رجاءاً ومن فضلك: الإشارة الى المكان الذي تم فيه التعديل لأني لم اعرف مكان التعديل و لكي اتعلم 

واطمع في كرمك لو تكرمت وقمت بحل رسالة الخطأ التي تظهر لو نسيت ولم اقم بإختيار  كومبو بوكس ورقة العمل فإذا تكرمت و قمت بإظهار رسالة تفيد بعدم الإختيار من كومبوبوكس ورقة العمل وعدم تنفيذ الاستيراد دون اختيارهها وشكر جزيلا لك اخي الكريم.

 

تم تعديل April 14 بواسطه ahmed draz

[Foksh]

تفضل

المشروع الجديد 1.zip

 

تم تعديل المرفق ، كنت قد ارفقت الملف الأصلي وليس الملف الذي تم التعديل عليه 

 

تم تعديل April 14 بواسطه Foksh
تعديل المرفق

[ahmed draz]

اخي الفاضل Foksh 

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

واشكرك على صبرك وسعة صدرك. 

[Foksh]

7 دقائق مضت, ahmed draz said:

اخي الفاضل Foksh 

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

واشكرك على صبرك وسعة صدرك. 

اعتذر ، تم تعديل المشاركة السابقة والملف المرفق فيها .

[ahmed draz]

اخي الفاضل Foksh 

بارك الله فيك و في علمك ونفع بك الناس ووجدت عونك للناس خيراً يوم القيامة. اّمين 

(شكرا جزيلا لوقتك الثمين)

[Foksh]

41 دقائق مضت, ahmed draz said:

بارك الله فيك و في علمك ونفع بك الناس ووجدت عونك للناس خيراً يوم القيامة. اّمين 

 

ولك يالمثل أخي @ahmed draz 

[ahmed draz]

 

شكرا جزيلا

 

 

شكرا جزيلا

تم تعديل April 14 بواسطه ahmed draz

[ahmed draz]

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

اخي الفاضل Foksh 

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

وقدم لي أخونا الكريم Foksh مساعدة كبيرة في تطوير الأداة ولم يبخل بالجهد أو الوقت فجزاه الله خيراً ولعل الله ينفع بها احداً من المسلمين.

 

 

 

 

اداة لإستيراد جداول الإكسل و تصديرها.rar

تم تعديل April 14 بواسطه ahmed draz

[ahmed draz]

اخي الفاضل Foksh 

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

فلقد حاولت مرارا تقليد الكود في نموج التصدير ليصلح في نموذج الاستيراد ولكنني لم انجح فأنا لا اطلب المساعدة إلا بعد استنفاذ جيع المحاولات

ولك جزيل الشكر.

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[Foksh]

13 ساعات مضت, ahmed draz said:

اخي الفاضل Foksh 

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

فلقد حاولت مرارا تقليد الكود في نموج التصدير ليصلح في نموذج الاستيراد ولكنني لم انجح فأنا لا اطلب المساعدة إلا بعد استنفاذ جيع المحاولات

ولك جزيل الشكر.

بدايةً الموضوع ليس بالسهولة التي تتوقعها أخي @ahmed draz . بالإضافة إلى أن الفكرة قد تسبب تكرار للبيانات في الجداول داخل اكسيس . سأحاول غداً إن شاء الله المحاولة 😅

تم تعديل April 16 بواسطه Foksh

[ahmed draz]

اخي الكريم Foksh 

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

[SAROOK]

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

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

قد خطر لي سؤال او هاجس ( ولا ادرى هل محل هذا الموضوع هذا السؤال ام يستدعى فتح موضوع جديد ) 

والسؤال يقول : هل يمكن في عملية تصدير الجدول ان اختار من الجدول مااريد ان اصدره من حقول  او حتى من صفوف ؟

والشكر موصول للجميع 

تم تعديل April 16 بواسطه SAROOK

[Foksh]

جرب هذا التعديل أخي @ahmed draz  ، في زر الإستيراد في نموذج الإستيراد .

Private Sub BtnImpotData_Click()
    If IsNull(listBoxWorksheets) Then
        MsgBox "لم تقم باختيار ورقة العمل من ملف الاكسل", vbCritical, ""
        Exit Sub
    Else
        Call GetWaiting("انتظر لحظة من فضلك .... يتم معالجة البيانات")
        
        Dim sheetRange As String
        Dim strTable As String
        Dim strPath As String
        Dim Check30 As Integer
        
        strTable = Me.cmb_TQ_Name.Value
        strPath = Me.txtPath
        sheetRange = listBoxWorksheets
        
        Check30 = Me.Check30.Value
        
        If Check30 = 1 Then
            DeleteTableSafe strTable
        End If
        
        DoEvents

        Dim objExc As Object ' late
        Dim objWbk As Object ' late
        Dim objWsh As Object ' late
    
        'Set objExc = New Excel.Application ' early
        Set objExc = CreateObject("Excel.Application") ' late
        Set objWbk = objExc.workbooks.Open(Me.txtPath)
    
        For Each objWsh In objWbk.Worksheets
            'Debug.Print objWsh.Name
        Next
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strPath, True, sheetRange & "$"
        DoCmd.Close acForm, "frmWaiting"
        Set objWsh = Nothing
        objWbk.Close
        Set objWbk = Nothing
        objExc.Quit
        Set objExc = Nothing
        
        subFormData.SourceObject = "Table.elemnts 1"
        subFormData.Visible = True
    End If
End Sub

وأخبرني بالنتيجة

اداة لإستيراد جداول الإكسل و تصديرها.accdb

 

 

13 دقائق مضت, SAROOK said:

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

 هذا السؤال موجه لأخ @ahmed draz صاحب الموضوع والتطوير على أداة أستاذنا @ابو الآء 

تم تعديل April 16 بواسطه Foksh