mabeed قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل csv , vcf ولك جزيل الشكر 1
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 السلام عليكم من حفظ بأسم اختر csv شاهد الصورة
طارق محمود قام بنشر أغسطس 9, 2013 قام بنشر أغسطس 9, 2013 السلام عليكم أخي العزيز صيغة CSV كما قال الغالي أبو أحمد إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF وهذه الاخيرة تحتاج خطوات أكثر ويلزم أن يكون عندك برنامج أوتلوك ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري في الخطوة 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 إن أردت إرسل لي الملف مهما كان كبيرا وسأحوله لك بإذن الله 3
حسين شاكر قام بنشر أغسطس 9, 2013 قام بنشر أغسطس 9, 2013 كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل csv , vcf ولك جزيل الشكر اليك اخى الحبيب ملف فارغ بنفس النهاية المطلوبة Book1.rar
اوفيس 2003 قام بنشر أغسطس 10, 2013 قام بنشر أغسطس 10, 2013 مشكور على الرد ولكن هناك مشكلة في استيراد الملف من الأوتلوك حيث جربته مسبقاً ، لا يقرأه ايضا
طارق محمود قام بنشر أغسطس 10, 2013 قام بنشر أغسطس 10, 2013 ولكن هناك مشكلة في استيراد الملف من الأوتلوك حيث جربته مسبقاً ، لا يقرأه ايضا أي إصدار للأوفيس تستخدم 2003 2007 2010
طارق محمود قام بنشر أغسطس 11, 2013 قام بنشر أغسطس 11, 2013 اقتباس كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل 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 4
saad abed قام بنشر أغسطس 11, 2013 قام بنشر أغسطس 11, 2013 الاخوة الافاضل المهندس طارق كم بل عديد من المرات احاول فى هذا الموضوع وسبحان الله قدمته لنا بكل بساطة والله باتقان منقطع النظير شكرا لك وشكرا للسائل
ا بو سليمان قام بنشر أغسطس 11, 2013 قام بنشر أغسطس 11, 2013 شكر للجميع تعااون بين الاعضاء لا يوجد له مثيل في اي موقع اخر
محمود_الشريف قام بنشر يناير 11, 2014 قام بنشر يناير 11, 2014 مجهود أكثر من رائع بارك الله فيكم جميعا وأول مرة أعرف هذه الطريقة جزاكم الله عنى خير الجزاء
م/ مغترب قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 السلام عليكم ورحمة الله و بركاته أنا إستخدمت الطريقة عندما أردت نسخ أسماء الشركات و الايميلات الموجودة على الايميل الخاص الى جهازي على ملف اكسل للاحتفاظ بها هل هنالك فوائد اخرى وشكرا على الشرح
alabadi قام بنشر سبتمبر 27, 2014 قام بنشر سبتمبر 27, 2014 ما شاء الله طريقة المهندس طارق صحيحة 100% بس في مشكلة لما انقلها لتليفون اندرويد بتطلعلي رسالة : تعذر استيراد vCard. 1.vcf
ياسر خليل أبو البراء قام بنشر سبتمبر 27, 2014 قام بنشر سبتمبر 27, 2014 أخي الحبيب جرب الملف التالي قد يفيدك كثيرا Excel Contacts To VCF.rar 1
alabadi قام بنشر سبتمبر 27, 2014 قام بنشر سبتمبر 27, 2014 شكرا استاذ تحدي و شكرا للمهندس طارق استفدت من الموضوعين سويا 1
ياسر خليل أبو البراء قام بنشر سبتمبر 27, 2014 قام بنشر سبتمبر 27, 2014 الحمد لله الذي بنعمته تتم الصالحات مشكور على إفادتنا بالرد
عبد التواب قام بنشر يناير 15, 2015 قام بنشر يناير 15, 2015 حضرتك انا استخدمت الملفدة والطريقة نجعت معي ازاى اقدر اضيف الكود الدولى للارفام كلها مرة واحده Excel Contacts To VCF
أشرف حسين قام بنشر فبراير 18, 2015 قام بنشر فبراير 18, 2015 السلام عليكم أخي العزيز صيغة CSV كما قال الغالي أبو أحمد إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF وهذه الاخيرة تحتاج خطوات أكثر ويلزم أن يكون عندك برنامج أوتلوك ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري في الخطوة 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 ملفات ممكن تساعدني ؟
ياسر خليل أبو البراء قام بنشر سبتمبر 28, 2016 قام بنشر سبتمبر 28, 2016 السلام عليكم أخي الكريم يوسف ممكن تراسلني على الخاص على الفيس بوك الخاص بي yakh777@yahoo.com لأرى ما يمكنني تقديمه لك تقبل تحياتي
وليد حجاب قام بنشر يناير 28, 2018 قام بنشر يناير 28, 2018 الأسماء بتظهر على شكل رموز ?????????????????? علامات استفهام في حال الاسم بالعربي هل يوجد اي حل استاذتنا الاكارم
وليد حجاب قام بنشر يناير 29, 2018 قام بنشر يناير 29, 2018 هل من حل لتفادي مشكلة اللغة العربية وظهور الاسم بالشكل الصحيح ام لا استاذتنا الافاضل
وليد حجاب قام بنشر فبراير 3, 2018 قام بنشر فبراير 3, 2018 يوجد طريقة اخرى عبر GMAIL ، بس عند استيراد الاسماء ، فإنه لا يتم استيراد الارقام ، في حال أن الاسماء بالعربية ؟؟
محمد طاهر عرفه قام بنشر فبراير 4, 2018 قام بنشر فبراير 4, 2018 جرب التالي من لوحة التحكم Control Pannel Region Adminstrative Change System Local و اختار عربي لاحدى الدول المتاحة 1
الردود الموصى بها