استيراد واضافة ملف CSV الى جدول معيد

[saffar]

السلام عليكم

هل ممكن اصافة ملف CSV الى جدول معين في عن طريق رز في الفورم

لان الاستيراد العادي فيه خطوات كثيرة للمستخدم

[kanory]

ممكن مثال مصغر ... 

[saffar]

مثال هذا الملف يقبل استيراد xls لكن لا يتعرف على csv

ثانية المفروض يضيف البيانات على الجدول الرئيسي append 

ImportExcel.rarFetching info...

[ابو جودي]

  في 2‏/11‏/2020 at 12:37, saffar said:

مثال هذا الملف يقبل استيراد xls لكن لا يتعرف على csv

ثانية المفروض يضيف البيانات على الجدول الرئيسي append 

ImportExcel.rar 22.36 kB · 3 downloads

Expand  

للعلم فى  مشكلة فى ملفات الاكسل تبعك

استبدل الكود على زر الامر الخاص بالإستيرد بالكود الاتى

On Error GoTo Err_MyProc

    Dim strTable As String
    Dim FSO As New FileSystemObject
    
    If Nz(Me.txtFileName, "") = "" Then
        MsgBox "Please select a file!"
        Exit Sub
    End If
    
    If FSO.FileExists(Nz(Me.txtFileName, "")) Then
        
        strTable = "tblJudy" 'Table Name
        DoCmd.DeleteObject acTable, strTable
        DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True
        MsgBox "Transfer Complete!"

    Else
        MsgBox "File not found!"
    End If

Err_MyProc:
        'Error handler here.
        Resume Next

 

[ابو جودي]

اتفضل المرفق وجرب الاكسل تبعى انا 

اسم الملف :  Template2.csv

ImportExcel 2.zipFetching info...

[saffar]

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

لان الملفات المراد استيرادها نفس الشي

وهي عبارة عن ملفات حضور Teams 

لاستخراج غياب الطلبة

[ابو جودي]

  في 2‏/11‏/2020 at 13:45, saffar said:

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

لان الملفات المراد استيرادها نفس الشي

وهي عبارة عن ملفات حضور Teams 

لاستخراج غياب الطلبة

Expand  

غير كما تشاء الملف والكود ملك يمينك 

هل تمت الاجابة على سؤالك على الوجه الذى تريده ؟!

[saffar]

قصدي انك انت استبدلت الجدول 

[ابو جودي]

  في 2‏/11‏/2020 at 14:00, saffar said:

قصدي انك انت استبدلت الجدول 

Expand  

حضرتك استبدل فى الكود الجزء ده 

tblJudy

بالاسم اللى انت عاوزه

انظر اسم الجدول فى الكود ممكن تغيره من مكان التظليل بالصورة

لو مش عارف قول لى اسم الجدول زى ما انت عاوزه وانا اعمله لحضرتك

 

[عفرنس]

  في 2‏/11‏/2020 at 14:40, ابا جودى said:

حضرتك استبدل فى الكود الجزء ده 

tblJudy

بالاسم اللى انت عاوزه

انظر اسم الجدول فى الكود ممكن تغيره من مكان التظليل بالصورة

لو مش عارف قول لى اسم الجدول زى ما انت عاوزه وانا اعمله لحضرتك

 

Expand  

أخي @ابا جودى 

** الملف الذي ارفقه الأخ السائل مكون من عدة أعمدة . 

** الأمر الآخر ماذا لو كان عنده أكثر من ملف هل يظل يغير اسم الجدول في كل مرة في الكود ؟؟ 

 

[ابو جودي]

  في 2‏/11‏/2020 at 15:22, فايز.. said:

أخي @ابا جودى 

** الملف الذي ارفقه الأخ السائل مكون من عدة أعمدة . 

** الأمر الآخر ماذا لو كان عنده أكثر من ملف هل يظل يغير اسم الجدول في كل مرة في الكود ؟؟ 

 

Expand  

لا كل مره بيتم حذف الجدول اولا 

DoCmd.DeleteObject acTable, strTable

ثم الاستيراد من خلال الكود 

DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True

 

[saffar]

اشكر سعة صدرك اخي ابا جودي

ليست المشكلة في تغيير اسم الجدول في الكود 

ما اردته هو استيراد ملف الاكسل بنفس الاعمدة وكل ما عملت استيراد يضيف البيانات على نفس الجدول

اسم الجدول في قاعدو البيانات meetingAttendanceList

 

اسماء الملفات قد تكون 

meetingAttendanceList1

meetingAttendanceList2

 

[ابو جودي]

  في 2‏/11‏/2020 at 19:11, saffar said:

اشكر سعة صدرك اخي ابا جودي

ليست المشكلة في تغيير اسم الجدول في الكود 

ما اردته هو استيراد ملف الاكسل بنفس الاعمدة وكل ما عملت استيراد يضيف البيانات على نفس الجدول

اسم الجدول في قاعدو البيانات meetingAttendanceList

 

اسماء الملفات قد تكون 

meetingAttendanceList1

meetingAttendanceList2

 

Expand  

طيب انا اسف تقريبا انا ما قدرت افهم الموضوع

جرب المرفق الاتى ان شاء الله يكون تمام

 

ImportExcel 3.zipFetching info...

[saffar]

شكرا لك ابا جودي سلمت يداك

[jjafferr]

السلام عليكم 🙂

 

وهذا شغل اخوي ابا جودي ، بس يأخذ اكثر من ملف دفعة واحدة (يعني تقدر تختار مجموعة ملفات ، ثم تضيف مجموعة اخرى الى القائمة ، دفعة واحدة) 🙂

تقدر بالفأرة تختار اكثر من ملف ، او عند طريق الضغط على الزر shift او ctrl اثناء النقر على اسماء الملفات 🙂

 

جعفر

ImportExcel.accdbFetching info...

[saffar]

سلمت يداكم 

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

 

[jjafferr]

وبدون لمس البرنامج ، وبعد استيراد البيانات الى الجدول meetingAttendanceList ،

نعمل استعلام ليكون مصدر بيانات للتقرير ، في هذا الاستعلام نفكك الحقل TimesStamp الى حقل تاريخ D1 وحقل وقت T1 (يعني حقول تاريخ وليس حقول نص) ، وبعدها يمكنك عمل ما تشاء في جمعهما 🙂

.

.

جعفر

 

1279.ImportExcel.accdb.zipFetching info...

[saffar]

الى الان لم استطع حل المشكلة 

 

[ابو جودي]

مشكلة شنو انت طلبت استيراد من ملف الى  csv  الى جدول 

اعتقد ان العملية تمت بنجاح 

اذا بدك شئ تانى فضلا وكرما افتح موضوع جديد 

كل موضوع يخص سؤال واحد فقط 

رجاء الاهتمام بقوانين وقواعد المشاركات ليسهل الوصول مستقبلا الى المعلومة 

[jjafferr]

السلام عليكم 🙂

 

  في 24‏/11‏/2020 at 10:36, ابا جودى said:

اعتقد ان العملية تمت بنجاح

Expand  

كلامك صحيح ، وبقي لما يستورد الملف ، تنسيق timestamp عبارة عن نص ، ويحتاج الى تنسيق اخير 🙂

 

  في 24‏/11‏/2020 at 10:31, saffar said:

الى الان لم استطع حل المشكلة 

Expand  

تقريبا انتهيت من الطلب ، فاعطني بعض الوقت 🙂

 

جعفر

[ابو جودي]

  في 24‏/11‏/2020 at 10:59, jjafferr said:

السلام عليكم 🙂

 

كلامك صحيح ، وبقي لما يستورد الملف ، تنسيق timestamp عبارة عن نص ، ويحتاج الى تنسيق اخير 🙂

 

تقريبا انتهيت من الطلب ، فاعطني بعض الوقت 🙂

 

جعفر

Expand  

الموضوع سهل جدا

انشاء جدول بالتنسيقات التى يريدها واستعلام الحاق من الجدول  timestamp الى الجدول الاخر !

ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد ان لم يستطع التنفيذ  

فقط من باب المصلحة العامة

[jjafferr]

  في 24‏/11‏/2020 at 11:03, ابا جودى said:

ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد

Expand  

 

تمام بشمهندس 🙂

 

تم فصل الموضوع الى :

 

جعفر