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

طريقة تحويل ملف اكسل الى csv أو VCF


mabeed

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

  • 1 year later...

السلام عليكم

أخي العزيز

صيغة CSV كما قال الغالي أبو أحمد

إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF

وهذه الاخيرة تحتاج خطوات أكثر 

  1. ويلزم أن يكون عندك برنامج أوتلوك
  2. ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت
  3. ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV 
  4. ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF 
  5. إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري 

في الخطوة 4 ،يلزمك كود صغير علي الأوتلوك وليس علي الإكسل ليمكن الأوتلوك من إرسال جميع الأسماء إلي صيغة VCF وليس إسما بإسم كما هو العادي 

هذا الكود هو

Sub Save_all_Contacts_as_VCF_format()    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem
    Dim colItems As Outlook.Items
    Dim myProperty As Outlook.UserProperty
       
    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)
    Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'")
    
    For Each itemContact In colItems
    i = i + 1
            itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

    Next
End Sub

ستلاحظ كما بالسطر قبل الأخير بالكود

itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

أنك لابد أن تكون مجهز قبل تشغيل الكود مجلد وليكن AAA علي الدرايف D

 

إن أردت إرسل لي الملف مهما كان كبيرا وسأحوله لك بإذن الله

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

كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل csv , vcf ولك جزيل الشكر

 

اليك اخى الحبيب ملف فارغ بنفس النهاية المطلوبة

Book1.rar

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

اقتباس
كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل csv , vcf ولك جزيل الشكر

 

 

في نفس السياف ، سالني صديق نفس السؤال تقريبا علي إميلي الخاص
وأرسل لي أيضا ملف تيكست به أكثر من 90,000 رقم تليفون كلها بالسعودية مثل
966503011273
966505584504
966503932916
966500477498
 
وكان طلبه: 
1. ترتيب الارقام في جهات اتصال vCard ، بحيث ترتب الارقام تصاعديا من الاصغر إلى الاكبر
2. ثم تأخذ كل جهة اتصال اسما تسلسليا يبدأ من J00001
 
الحقيقة أن كثرة الأسماء ، جعلتني أفكر في وسيلة أخري
والحمد لله باستخدام كود صغير يمكن إنشاء عدد كبييير من ملفات الـ vcf التي يمكن قرائتها من الأوتلوك أو من المحمول
 
وبعد إذن صديقي ، سأستعير بعض أرقام التليفونات في الملف المرفق  وبه الشرح 
 
 
فقط تضع في ملف الإكسل الإسم بالعمود الأول ثم الرقم بالعمود الثاني
وتشغل الكود فينشيء لك عدد الكروت الـ vcf المطلوب في المجلد xxx علي القرص D
الكود هو
Sub write_VCF()
LR = [A999999].End(xlUp).Row
For i = 1 To LR
    a = Cells(i, 1): b = "TEL;CELL" & Cells(i, 2)
    Filename = "D:\xxx\" & a & ".vcf"
    Open Filename For Output As 1
       Print #1, "BEGIN: VCARD"
       Print #1, "FN: " & a
       Print #1, b
       Print #1, "End: VCARD"
    Close #1
Next i
End Sub

والآن أترككم مع المرفق

 

تحويل الأسماء.rar

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

الاخوة الافاضل

المهندس طارق

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

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

شكرا لك

وشكرا للسائل

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

  • 2 weeks later...
  • 4 months later...
  • 4 weeks later...

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

 

أنا إستخدمت الطريقة عندما أردت نسخ أسماء الشركات و الايميلات الموجودة على الايميل الخاص الى جهازي على ملف اكسل للاحتفاظ بها

 

هل هنالك فوائد اخرى

 

وشكرا على الشرح

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

  • 7 months later...
  • 3 months later...
  • 1 month later...

السلام عليكم

أخي العزيز

صيغة CSV كما قال الغالي أبو أحمد

إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF

وهذه الاخيرة تحتاج خطوات أكثر 

  1. ويلزم أن يكون عندك برنامج أوتلوك
  2. ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت
  3. ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV 
  4. ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF 
  5. إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري 

في الخطوة 4 ،يلزمك كود صغير علي الأوتلوك وليس علي الإكسل ليمكن الأوتلوك من إرسال جميع الأسماء إلي صيغة VCF وليس إسما بإسم كما هو العادي 

هذا الكود هو

Sub Save_all_Contacts_as_VCF_format()    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem
    Dim colItems As Outlook.Items
    Dim myProperty As Outlook.UserProperty
       
    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)
    Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'")
    
    For Each itemContact In colItems
    i = i + 1
            itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

    Next
End Sub

ستلاحظ كما بالسطر قبل الأخير بالكود

itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

أنك لابد أن تكون مجهز قبل تشغيل الكود مجلد وليكن AAA علي الدرايف D

 

إن أردت إرسل لي الملف مهما كان كبيرا وسأحوله لك بإذن الله

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

انا حاليا بواجه نفس المشكلة 

و عندي 4 ملفات ممكن تساعدني ؟

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

  • 1 year later...

السلام عليكم أخي الكريم يوسف

ممكن تراسلني على الخاص على الفيس بوك الخاص بي

yakh777@yahoo.com

لأرى ما يمكنني تقديمه لك

تقبل تحياتي

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

  • 1 year later...

الأسماء بتظهر على شكل رموز ?????????????????? علامات استفهام في حال الاسم بالعربي

هل يوجد اي حل استاذتنا الاكارم

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

يوجد طريقة اخرى عبر GMAIL ، بس عند استيراد الاسماء ، فإنه لا يتم استيراد الارقام ، في حال أن الاسماء بالعربية ؟؟

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

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information