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

[SAROOK]

اهلا بشمهندس    foksh 

السؤال هنا كفكرة عامة للطرح وعما ان كانت قابلة لتطبيق  

[ahmed draz]

مرحبا ًاخي الكريم SAROOK

إذا قمت بإختيار  Table من نموذج التصدير في الاداة يقوم بتصدير كل الصفوف التي تمت إضافتها داخل جدول الاكسس دون أختيار أ أن يقوم بمحو البيانات داخل ملف الاكسل المصدر اليه بالكامل ثم نسخ كامل جدول الاكسس لملف الاكسل.

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

 

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

اخي الفاضل Foksh 

شكراً لمحاولتك وتلبيتك لكل طلباتنا الصعبة

ولكن بعد نسخ الكود أعطى الرسالة التالية:

[Foksh]

جرب وأخبرني

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
        
        If Check30 = 1 Then
            DeleteTableSafe strTable
        Else
        
        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 If
End Sub

 

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

[SAROOK]

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

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

كمثال يتم تصدير مرة خمسة حقول 

ومرة اخرى سبعة حقول 

ومرة اكثر او اقل

ارجو ان اكون قد احسنت الشرح

تحياتي

 

 

[ahmed draz]

7 ساعات مضت, SAROOK said:

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

للأسف لايمكن التحكم في إختيار عدد من الحقول وذلك كما وضحت في مشاركتى السابقة مع أخي الفاضل Foksh بأن بعض الطلبات غير قابلة للتنفيذ

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

ولا يمكن فعل ذلك إلا  في برامج أخرى مثل الإكسل مثلا

تحياتي

 

 

 

[ahmed draz]

10 ساعات مضت, SAROOK said:

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

 أخي الفاضل Foksh 

ما توسمته فيك من الخبره أصاب محله بارك الله لك في علمك وزاد لك فيه وكنت عوناً للمسلمين ... اّمين

أحسنت  فقد أنجزت المهمة وتمت إضافة البيانات لجدول الاكسس بنجاح والحمد لله 

فشكراً جزيلا لك

وقد قمت بإرفاق الملفات للتجربة و أفراغ جدول elemnts 1 من البيانات لمن أراد التجربة.

حيث سيقوم باستيرد البيانات من ملفات الاكسل الثلاثة المرفقة و لا يشترط الترتيب فالاداه سوف تنجح في الاضافة أو إلحاق البيانات وهو إنجاز حقيقي لأخونا الفاضل Foksh 

رجاءً تفعيل خيار حذف البيانات لمن أراد 

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

 

 

 

 

اداة لإستيراد جداول الإكسل و تصديرها معدلة لنسخ اخر بيانات.rar

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

[abouelhassan]

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

اى بيانات يتم إضافتها للنموذج المفتوح وتصديرها منه

مع تحياتي