كيفية تعبئة نتائج بحث جوجل بورقة عمل في إكسيل؟
في بعض الحالات ، قد تحتاج إلى إجراء بعض عمليات البحث المهمة عن الكلمات الرئيسية في Google والاحتفاظ بسجل نتائج البحث الأعلى في ورقة عمل تتضمن العنوان والارتباط التشعبي للمقالة. توفر هذه المقالة طريقة VBA للمساعدة في نشر نتائج بحث google في ورقة عمل بناءً على كلمات رئيسية معينة في الخلايا.
تعبئة نتائج بحث google في ورقة عمل برمز VBA
تعبئة نتائج بحث google في ورقة عمل برمز VBA
لنفترض أن الكلمات الرئيسية التي تحتاجها للبحث في القائمة في العمود A كما هو موضح أدناه ، يرجى القيام بما يلي لتعبئة نتائج بحث google لهذه الكلمات الرئيسية في الأعمدة المقابلة برمز VBA.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق كود فبا في نافذة الكود.
كود فبا: ملء نتائج بحث جوجل بورقة العمل
Sub xmlHttp()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Dim url As String
Dim xRtnStr As String
Dim I As Long, xLastRow As Long
Dim xmlHttp As Object, xHtml As Object, xHtmlLink As Object
On Error Resume Next
Set xRg = Application.InputBox("Please select the keywords you will search in Google:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg.Rows.Count
Set xRg = xRg(1)
For I = 0 To xLastRow - 1
url = "https://www.google.co.in/search?q=" & xRg.Offset(I) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "Content-Type", "text/xml"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
xmlHttp.send
Set xHtml = CreateObject("htmlfile")
xHtml.body.innerHTML = xmlHttp.ResponseText
Set xHtmlLink = xHtml.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
xRtnStr = Replace(xHtmlLink.innerHTML, "<EM>", "")
xRtnStr = Replace(xRtnStr, "</EM>", "")
xRg.Offset(I, 1).Value = xRtnStr
xRg.Offset(I, 2).Value = xHtmlLink.href
Next
Application.ScreenUpdating = True
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار، يرجى تحديد الخلايا التي تحتوي على الكلمات الرئيسية التي ستبحث عنها، ثم انقر فوق الزر OK زر. انظر لقطة الشاشة:
بعد ذلك يتم ملء جميع نتائج البحث بما في ذلك العناوين والروابط في خلايا الأعمدة المقابلة بناءً على الكلمات الرئيسية. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيفية تعبئة مربع تحرير وسرد ببيانات محددة في المصنف مفتوح؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!