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

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

عفرنس

بواسطه عفرنس
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة jjafferr,

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

عفرنس

عفرنس

قام بنشر
قام بنشر

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

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

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

jjafferr

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.

 

جعفر

تم تعديل بواسطه jjafferr
عكس معادلة ()x
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 26‏/8‏/2020 at 21:08, 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.

 

جعفر

Expand  

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

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

 

 

jjafferr

jjafferr

قام بنشر
قام بنشر
  في 26‏/8‏/2020 at 21:26, فايز.. said:

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

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

Expand  

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

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

 

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

 

جعفر

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 27‏/8‏/2020 at 09:09, jjafferr said:

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

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

 

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

 

جعفر

Expand  

أخي @jjafferr 

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

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

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

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 27‏/8‏/2020 at 20:36, jjafferr said:

همممم

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

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

 

جعفر

Expand  

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

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

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

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

تم تعديل بواسطه فايز..
أبو إبراهيم الغامدي

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

قام بنشر
قام بنشر

أهلا بكم..

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

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

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

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

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

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

 DEF_DIR.PNG.909f680d9df07d99437c991fe64da2f9.PNG

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

Access With CSV.zipFetching info...

  • Like 1
  • تمت الإجابة
jjafferr

jjafferr

قام بنشر
  • تمت الإجابة
قام بنشر
  في 27‏/8‏/2020 at 21:02, فايز.. said:

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

Expand  

🙂

 

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

    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);

 

  • Like 1
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 27‏/8‏/2020 at 22:01, 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

 

جعفر

Expand  

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

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

image.png.c3a05abd1ce628411210ec2842fc3d68.png

  في 27‏/8‏/2020 at 22:28, أبو إبراهيم الغامدي said:

أهلا بكم..

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

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

 

Expand  

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

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

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

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

قام بنشر
قام بنشر
  في 28‏/8‏/2020 at 01:54, فايز.. said:

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

Expand  

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

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

jjafferr

jjafferr

قام بنشر
قام بنشر
  في 28‏/8‏/2020 at 01:54, فايز.. said:

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

Expand  

تفضل 🙂 

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

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

 

جعفر

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

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 28‏/8‏/2020 at 07:41, jjafferr said:

تفضل 🙂 

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

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

 

جعفر

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

Expand  

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

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

image.png.21c98e0ed8de8fb160e37d870be16605.png

 

تم تعديل بواسطه فايز..
jjafferr

jjafferr

قام بنشر
قام بنشر
  في 27‏/8‏/2020 at 21:02, فايز.. said:

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

Expand  

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

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

 

جعفر

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 11:45, jjafferr said:

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

 

Expand  

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

 

  في 28‏/8‏/2020 at 11:45, jjafferr said:

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

Expand  

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

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

jjafferr

jjafferr

قام بنشر
قام بنشر

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

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

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

 

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 13:22, jjafferr said:

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

Expand  

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

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

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

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

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

قام بنشر
قام بنشر
  في 28‏/8‏/2020 at 12:49, فايز.. said:

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

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

Expand  

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

    ' 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

 

  • Like 1
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 15:48, kanory said:

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

 

1.png

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

Expand  

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

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

kanory

kanory

قام بنشر
قام بنشر

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

 

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

  في 28‏/8‏/2020 at 16:20, فايز.. said:

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

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

Expand  

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

 

1.png

  • Like 1
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 16:20, kanory said:

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

 

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

Expand  

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

image.png.cdf71b6ad24577a5088ea097fead5a31.png

زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept