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

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


إذهب إلى أفضل إجابة Solved by Foksh,

الردود الموصى بها

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

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

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

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

1.jpg

Export_to_Excel xls (97-2003 format).rar

تم تعديل بواسطه ahmed draz
رابط هذا التعليق
شارك

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

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

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

اقتباس

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

 

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

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

تم تعديل بواسطه Foksh
رابط هذا التعليق
شارك

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

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

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

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

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

1.jpg

رابط هذا التعليق
شارك

  • أفضل إجابة
48 دقائق مضت, ahmed draz said:

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

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

 

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

    i_strSql = "Select * From " & Me.cmb_TQ_Name

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

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

 

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

 

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

رابط هذا التعليق
شارك

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

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

 

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

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

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

 

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

Ahmad.png.cd745c3ddcba754ec8e8eb12380c6951.png

  • Like 1
رابط هذا التعليق
شارك

اخي الفاضل Foksh 

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

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

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

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

1.jpg

2.jpg

3.jpg

4.jpg

 

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

تم تعديل بواسطه ahmed draz
رفع ملف خطأ
رابط هذا التعليق
شارك

تحديثات جميلة ، الله يعطيك العافية على مجهودك  image.png.22253fc0381a7dc06ddd5231cffbcbc5.png

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

رابط هذا التعليق
شارك

اخي الفاضل Foksh 

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

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

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

 

6.jpg

5.jpg

تم تعديل بواسطه ahmed draz
  • Like 1
رابط هذا التعليق
شارك

تفضل

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

 

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

 

تم تعديل بواسطه Foksh
تعديل المرفق
  • Like 1
رابط هذا التعليق
شارك

اخي الفاضل Foksh 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

اخي الفاضل Foksh 

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

اخي الفاضل Foksh 

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

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

 

 

 

 

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

1.jpg

2.jpg

3.jpg

تم تعديل بواسطه ahmed draz
  • Thanks 1
رابط هذا التعليق
شارك

اخي الفاضل Foksh 

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

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

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

Untitled-1.png

رابط هذا التعليق
شارك

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

اخي الفاضل Foksh 

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

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

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

Untitled-1.png

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

تم تعديل بواسطه Foksh
رابط هذا التعليق
شارك

اخي الكريم Foksh 

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

رابط هذا التعليق
شارك

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

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

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

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

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

تم تعديل بواسطه SAROOK
  • Like 1
رابط هذا التعليق
شارك

جرب هذا التعديل أخي @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:

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

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

تم تعديل بواسطه Foksh
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information