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

[mabeed]

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

[عبدالله المجرب]

السلام عليكم

من حفظ بأسم اختر csv

شاهد الصورة

[اوفيس 2003]

لا تقبل معي ياغالي على الإطلاق

[طارق محمود]

السلام عليكم

أخي العزيز

صيغة 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

 

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

[حسين شاكر]

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

 

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

Book1.rar

[اوفيس 2003]

مشكور على الرد

 

ولكن هناك مشكلة في استيراد الملف من الأوتلوك حيث جربته مسبقاً  ، لا يقرأه ايضا

[طارق محمود]

ولكن هناك مشكلة في استيراد الملف من الأوتلوك حيث جربته مسبقاً  ، لا يقرأه ايضا

 

أي إصدار للأوفيس تستخدم

2003

2007

2010 

[طارق محمود]

اقتباس

كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل 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

[saad abed]

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

المهندس طارق

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

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

شكرا لك

وشكرا للسائل

[ا بو سليمان]

شكر للجميع   تعااون بين الاعضاء لا يوجد له مثيل في اي موقع اخر 

[البراق]

صدقت والله

[محمود_الشريف]

مجهود أكثر من رائع

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

وأول مرة أعرف هذه الطريقة

جزاكم الله عنى خير الجزاء

[منصور القباطي]

شكرا جزيلا وفقكم الله لما يحب ويرضى

[م/ مغترب]

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

 

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

 

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

 

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

[alabadi]

ما شاء الله طريقة المهندس طارق صحيحة 100%

 

بس في مشكلة لما انقلها لتليفون اندرويد بتطلعلي رسالة : تعذر استيراد vCard. 1.vcf

[ياسر خليل أبو البراء]

أخي الحبيب

جرب الملف التالي قد يفيدك كثيرا

Excel Contacts To VCF.rar

[alabadi]

شكرا استاذ تحدي 

و شكرا للمهندس طارق 

استفدت من الموضوعين سويا

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

مشكور على إفادتنا بالرد

[عبد التواب]

حضرتك انا استخدمت الملفدة والطريقة نجعت معي ازاى اقدر اضيف الكود الدولى للارفام كلها مرة واحده

Excel Contacts To VCF

[أشرف حسين]

السلام عليكم

أخي العزيز

صيغة 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 ملفات ممكن تساعدني ؟

[ياسر خليل أبو البراء]

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

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

yakh777@yahoo.com

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

تقبل تحياتي

[وليد حجاب]

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

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

[وليد حجاب]

هل من حل لتفادي مشكلة اللغة العربية  وظهور  الاسم بالشكل الصحيح ام لا استاذتنا الافاضل

[وليد حجاب]

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

[محمد طاهر عرفه]

جرب التالي

من لوحة التحكم

Control Pannel

Region

Adminstrative

Change System Local

و اختار عربي لاحدى الدول المتاحة