اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود استيراد ملف اكسل من نوع CSV


عفرنس
إذهب إلى أفضل إجابة Solved by jjafferr,

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

8 دقائق مضت, kanory said:

ارفق الملف الذي تعمل عليه الان ... عشان ما تصير تداخل في الملفات

تفضل @kanory

 

Deffi.rar

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

36 دقائق مضت, kanory said:

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر

 

1.png

أريد هذا .. 

علما أن الملف الذي أرفقته لك هو نفس الملف الذي أرفقته للأخ جعفر .. 

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

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

ابو عبدالرحمن

اتفضل هذي المشاركة من طرفي يمكن تفي بالغرض

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

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

1 دقيقه مضت, أبو إبراهيم الغامدي said:

أهلا بكم..

أتسائل لماذا لم يجرب أحد أسلوبي 😟

   IMPORT CSV DATA .zip 873.08 kB · 0 تنزيلات

مين قال ما جربنا بل عكس طريقة جديدة بالنسبة لي ..... بارك الله فيك أخي ابا ابراهيم 

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

13 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بكم..

أتسائل لماذا لم يجرب أحد أسلوبي 😟

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

 

13 ساعات مضت, kanory said:

 

1.png

 

3 ساعات مضت, د.كاف يار said:

استيراد الملف الى ملف Mobile

الحقول ظهرت فارغة @د.كاف يار 

image.png.e5e858478cda58d01e468e5e8a044fa2.png

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

6 دقائق مضت, ابو البشر said:

اخي فايز هل جربت هذا المرفق

14 ساعات مضت, kanory said:

وهذه مشاركة تفضل .....

 

Deffi.rar 426.19 kB · 4 تنزيلات

 

جربتها فتظهر لي هذه الرسالة

image.png.fc4d002604599a283bd9729ac4a832bf.png

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

5 دقائق مضت, ابو البشر said:

البرنامج شغال عندي

يمكن طريقة استخدامك خطأ

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

طريقة الاستخدام / اختيار الملف ثم زر استيراد ملف template . 

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

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب .....

    Dim TextLine
    Dim x() As String
    Dim TESTFILE As String
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("Select * From Mobaile")
  
    'TESTFILE = Application.CurrentProject.Path & "\Template.csv"
     TESTFILE = Me.txtPath
    Open TESTFILE For Input As #1    ' Open file.
    Do While Not EOF(1)    ' Loop until end of file.
        Line Input #1, TextLine    ' Read line into variable.
        'Debug.Print TextLine    ' Print to the Immediate window.
  
        x = Split(TextLine, ",")
        
        If x(0) <> "IdentificationID" Then
        
            rst.AddNew
                rst!IdentificationID = x(0)
                rst!FullName = x(1)
                rst!MobileNumber = x(2)
                rst!ClassName = x(3)
            rst.Update

        End If
    
    Loop

    Close #1    ' Close file.
    
    rst.Close: Set rst = Nothing

 

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

منذ ساعه, فايز.. said:

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

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

سبق وأن أشرت أن ملف CSV المرفق في مثالك ليس مطابق لمقاييس هذا النوع من الملفات! بل هو ملف نصي مفرز بفاصلة منقوطة ومن المفترض أن تكون لاحقة الملف (txt.) وليس (csv.).ولهذا قمت بإعادة تنسيق الملف TEMPLATE.CSV قبل التطبيق عليه، كما أن حقول جدول MOBAILE لا تتطابق مع ملف TEMPLATE.CSV..

 

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

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @jjafferrوبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

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

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

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @kanory وبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

فضلا غير افضل اجابة للاستاذ . @jjafferr 

لانه اول من طرح اجابة صحيحة .... بارك الله فيك

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

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

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

 

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

البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده .

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

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

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

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

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

 

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

اسعدكم الله جميعا .. وشكر الله لكم .. 

بالنسبة لملف الاكسل كنت استورد نفس اللي ارفقته لكم ولم اكن مخطئ .. 

وانا والله اني في حرج منكم .. 

 

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

منذ ساعه, jjafferr said:

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

جعفر

بارك الله فيك اخي جعفر

ليس فضلا ولا احسان ... بل انت صاحب الفضل بعد الله عز وجل ..... فعلا البرامج مثل التي طرحها الاساتذة @jjafferr  و @أبو إبراهيم الغامدي

و @د.كاف يار

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information