كيفية ربط الاكسيل بالواتس اب وارسال البيانات للموظفيت
بعد ربط برنامج الاكسيل بالواتس اب سوف تتمكن من ارسال جميع البيانات للموظفين مهما كان عددهم وذلك بخطوة واحده فقط واليكم الخطوات :-
1- ربط التليفون ببرنامج الواتس اب او موقع الواتس اب
2- تسمية صفحة الشيت على الاكسيل ب project1
3- كتابة ارقام التليفونات المراد ارسال اليها الرسائل
4- الذهاب الى قائمه developer , ثم من insert انشاء زر
5 - ثم من new ووضع الكود الاتى
الكود
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("project1").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com"
Application.Wait (Now + TimeValue("00:00:20"))
For I = 0 To u
contact = Sheets("project1").Range("a2").Offset(I, 0).Value
text = Sheets("project1").Range("b2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(contact, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(text, True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
Next I
6- حفظ الملف على excel macro enable
7- ثم الضغط على الزر الذى قمنا بانشاءه
تابع الفيديو للتوضيح