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

[عفرنس]

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

العمود الأول يتضمن 10 أرقام ( رقم الهوية )  ، والعمود الثالث يتضمن 9 أرقام ( رقم الموبايل ) 

العمود الثاني والرابع والخامس نص .. 

[jjafferr]

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

 

بيانات اعمدة/حقول ملف csv ، بينها فاصلة او فاصلة منقوطة .

اما الملف نفسه ، فبالاضافة ان انه يمكن فتحه بالاكسل ، فيمكن فتحه ببرنامج Notepad ، لأنه اصلا ملف txt .

 

ممكن تقرا الملف هكذا :

Dim TextLine
  dim x() as string
  
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,",")  ' اما اذا كانت الفارزة في الملف فاصلوة منقوطة ، فاستعملها بدل الفاصلة

   الحقل 1 = x(0)
    الحقل 2 = x(1)
    الحقل 3 = x(2)
    الحقل 4 = x(3) 
    الحقل 5 = x(4) 
    الحقل 6 = x(5) 
  
  Loop
Close #1    ' Close file.
 

 

جعفر

تم تعديل أغسطس 27, 2020 بواسطه jjafferr
عكس معادلة ()x

[عفرنس]

9 ساعات مضت, jjafferr said:

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

 

بيانات اعمدة/حقول ملف csv ، بينها فاصلة او فاصلة منقوطة .

اما الملف نفسه ، فبالاضافة ان انه يمكن فتحه بالاكسل ، فيمكن فتحه ببرنامج Notepad ، لأنه اصلا ملف txt .

 

ممكن تقرا الملف هكذا :

Dim TextLine
  dim x() as string
  
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,",")  ' اما اذا كانت الفارزة في الملف فاصلوة منقوطة ، فاستعملها بدل الفاصلة

    الحقل 1 = x(0)
    الحقل 2 = x(1)
    الحقل 3 = x(2)
    الحقل 4 = x(3) 
    الحقل 5 = x(4) 
    الحقل 6 = x(5)
  
  Loop
Close #1    ' Close file.
 

 

جعفر

@jjafferr هل تقصد أضع هذا الكود في زر أمر ؟ 

أريد استيراد بيانات الملف إلى جدول في قاعدة البيانات .. 

 

 

[jjafferr]

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

1. هل تقصد أضع هذا الكود في زر أمر ؟ 

2. أريد استيراد بيانات الملف إلى جدول في قاعدة البيانات .. 

1. نعم ، وبجعل المتغير TESTFILE يشير الى مكان وجود الملف ، هكذا :

dim TESTFILE as string
  
TESTFILE = "c:\temp\abc.csv"  
Open TESTFILE For Input As #1    ' Open file.

 

2. هنا يجب ان تستدعي الجدول عن طريقة Recordset ، او ان تعمل استعلام الحاقي ، وتضيف بيانات الحقول.

 

جعفر

[عفرنس]

9 ساعات مضت, jjafferr said:

1. نعم ، وبجعل المتغير TESTFILE يشير الى مكان وجود الملف ، هكذا :

dim TESTFILE as string
  
TESTFILE = "c:\temp\abc.csv"  
Open TESTFILE For Input As #1    ' Open file.

 

2. هنا يجب ان تستدعي الجدول عن طريقة Recordset ، او ان تعمل استعلام الحاقي ، وتضيف بيانات الحقول.

 

جعفر

أخي @jjafferr 

من غير ما تعصب علي ... 

ضعت بين الكود الأول والثاني .. 

برنامج تصدير الطلاب الى السجل fffالإلكتروني.rar

[jjafferr]

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

من غير ما تعصب علي ...

همممم

كيف ، وكالعادة ، ما اعطيتني اي معلومات !!

اي نموذج ، اي جدول !!

 

جعفر

[عفرنس]

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

همممم

كيف ، وكالعادة ، ما اعطيتني اي معلومات !!

اي نموذج ، اي جدول !!

 

جعفر

سامحني أخي الكريم @jjafferr سامحك الله 

نموذج ( استيراد جداول وبيانات الطلاب ) ثم تجد زر الأمر باسم / استيراد ملف templet > 

نريد استيراد بيانات هذا الملف في جدول mobaile >> 

هممممم .. ولا تشره علي تراني جوعان .. 

تم تعديل أغسطس 27, 2020 بواسطه فايز..

[أبو إبراهيم الغامدي]

أهلا بكم..

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

بيانات ملف CSV  لا يمكن أن تكون مفصولة بفاصلة منقوطة أبدا.. 

على أية حال؛ يمكنك أن تستعرض بيانات هذا النوع الملفات بالطريقة التالي:

في محرر الاستعلام أكتب النص التالي

SELECT * FROM [TEMPLATE#CSV] IN '.'[TEXT; HDR=YES;]

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

 

هذا المثال للتوضيح

Access With CSV.zip

[jjafferr]

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

هممممم .. ولا تشره علي تراني جوعان .. 

🙂

 

هذا الكود الكامل :

    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"

    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

 

جعفر

[أبو إبراهيم الغامدي]

أهلا بكم..

لإدراج بيانات من ملف CSV إلى جدول بنفس الحقول مع استبعاد التكرار استخدم الجملة التالية

INSERT INTO TEMPLATE
SELECT * FROM [TEMPLATE#CSV] IN '.'[TEXT; HDR=YES;]
WHERE NOT IdentificationID=ANY(SELECT IdentificationID FROM TEMPLATE);

 

[عفرنس]

3 ساعات مضت, jjafferr said:

🙂

 

هذا الكود الكامل :

    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"

    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

 

جعفر

جزاك الله خيرا أخي الكريم  @jjafferr

وضعت الكود في زر الأمر .. .. وعند طلب الملف لم يظهر . 

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

أهلا بكم..

لإدراج بيانات من ملف CSV إلى جدول بنفس الحقول مع استبعاد التكرار استخدم الجملة التالية

INSERT INTO TEMPLATE
SELECT * FROM [TEMPLATE#CSV] IN '.'[TEXT; HDR=YES;]
WHERE NOT IdentificationID=ANY(SELECT IdentificationID FROM TEMPLATE);

 

وفقك الله أخي @أبو إبراهيم الغامدي 

وأين أضع الكود من كود ألأستاذ @jjafferr في حال احتجت إليه ؟ 

[أبو إبراهيم الغامدي]

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

وأين أضع الكود من كود ألأستاذ @jjafferr في حال احتجت إليه ؟

هذى جمل استلام توضع في محرر الاستلام وتحفظ كاستعلام ولا علاقة لها بشفرة الاستاذ جعفر..

كتبتها من أجل إعطائك فكرة عن كيفية الاتصال بمثل هذا النوع من البيانات..

[jjafferr]

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

وضعت الكود في زر الأمر .. .. وعند طلب الملف لم يظهر . 

تفضل 🙂 

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

والسؤال الآخر ، ليش لازلت تستعمل صيغة mdb ، انتقل الى accdb ، إلا اذا المستخدمين عنهم اكسس 2003 فما دون !!

 

جعفر

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

[عفرنس]

2 ساعات مضت, jjafferr said:

تفضل 🙂 

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

والسؤال الآخر ، ليش لازلت تستعمل صيغة mdb ، انتقل الى accdb ، إلا اذا المستخدمين عنهم اكسس 2003 فما دون !!

 

جعفر

برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.zip 544.95 kB · 0 تنزيلات

جزاك الله خيرا .. على نصحك .. @jjafferr 

نفس المشكلة :: عندما اضغط زر Browse  لا يظهر ملف templat :: ما ذا يجب علي فعله حتى يظهر ضمن الملفات 

 

تم تعديل أغسطس 28, 2020 بواسطه فايز..

[jjafferr]

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

ثم تجد زر الأمر باسم / استيراد ملف templet

انت اخبرتني انك تريد الكود على هذا الزر ، فوضعته هناك 🙂 

وللعلم ، علشان الكود يشتغل ، يجب ان يكون الملف Template.csv في نفس مجلد البرنامج.

 

جعفر

[عفرنس]

منذ ساعه, jjafferr said:

انت اخبرتني انك تريد الكود على هذا الزر ، فوضعته هناك 🙂 

 

@jjafferr وضع الكود في الزر صحيح .. وهو المطلوب . 

 

منذ ساعه, jjafferr said:

وللعلم ، علشان الكود يشتغل ، يجب ان يكون الملف Template.csv في نفس مجلد البرنامج.

وضعت الملف في نفس مجلد البرنامج ومازالت المشكلة لا يظهر ( مختفي عني ) ما أحصله .. 

لا أدري أين هي المشكلة .. 

[jjafferr]

شوف اذا مشكلتك مثل هاي :

 

 

جعفر

[عفرنس]

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

شوف اذا مشكلتك مثل هاي :

 

ما فيه فائدة .. 

استفسار :: هل أضع مسار المجلد في الكود ؟؟ 

[jjafferr]

مسار الملف موجود في الكود :

TESTFILE = Application.CurrentProject.Path & "\Template.csv"

TESTFILE = 
  Application.CurrentProject.Path  معناه مسار البرنامج ، واذا كانت قاعدة بياناتك قسمين ، فهذا مسار برنامج الواجهة وليس الجداول
  & "\Template.csv"   اسم الملف

 

[عفرنس]

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

TESTFILE = Application.CurrentProject.Path معناه مسار البرنامج ، واذا كانت قاعدة بياناتك قسمين ، فهذا مسار برنامج الواجهة وليس الجداول & "\Template.csv" اسم الملف

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

طيب :: وش الحل مع هذه المصيبة ؟؟ 

لأنك استوردت الملف ومشى معك تمام .. 

[أبو إبراهيم الغامدي]

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

وضعت الملف في نفس مجلد البرنامج ومازالت المشكلة لا يظهر ( مختفي عني ) ما أحصله .. 

لا أدري أين هي المشكلة .. 

في زر أمر اختيار الملف غير الشفرة بهذه

    ' open the windows file dialog to select the file

    With Application.FileDialog(1)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls ; *.xlsx"
        .Filters.Add "CSV Files", "*.csv"
        .Filters.Add "All File", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
            Me.txtPath = .SelectedItems(1)
        End If
    End With

 

[kanory]

تفضل بالتعديلات التي ذكرها الاساتذة الأفاضل .... ملفك بعد التعديل

 

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

[عفرنس]

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

تفضل بالتعديلات التي ذكرها الاساتذة الأفاضل .... ملفك بعد التعديل

 

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb 4.12 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 تنزيلات

شكر الله لك أخي @kanory 

يبدو انك ارفقت ملف أخر .. لم أجد التعديلات .. 

[kanory]

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

 

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

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

شكر الله لك أخي @kanory 

يبدو انك ارفقت ملف أخر .. لم أجد التعديلات .. 

اليس الحديث حول هذا الزر الخاص باستيراد ملف اكسل به ارقام هواتف

 

[عفرنس]

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

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

 

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb 4.25 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

شكر الله لك .. عند اختيار الملف وعمل الاستيراد تظهر هذه الرسالة