1

Excel VBA を使用して、Google の結果の最初に返されたページを開きます。最初のページから、要素 ID に基づいてデータを操作しています。このプロセスを実行すると、かなり奇妙な動作に遭遇します。

やろうとしていることの概要を簡単に説明しましょう。

ユーザーフォームの入力として姓と名を取得します。指定された名と姓について、リンクされたプロファイルを検索します。

たとえば、ファースト ネームが Sachin でラスト ネームが Tendulkar の場合、VBA を使用して検索用語をSachin TendulkarとしてGoogle にリンクします。返された検索結果について、最初の検索結果ページを開き、リンクされたプロファイル データを取得しようとします。

これまでの私のコードは以下の通りです。

Private Sub CommandButton1_Click()
Dim ie As InternetExplorer
Dim RegEx As RegExp, RegMatch As MatchCollection
Dim MyStr As String
Dim pDisp As Object
Dim FirstName As String
Dim LastName As String
Dim sample As String
Set ie = New InternetExplorer
Set RegEx = New RegExp
Dim iedoc As Object
Dim openedpage As String
Dim inpagestrt, inpageend As Integer
Dim returnstatement As String
Dim detailname, locationdetails, profileexperience, profilecontact
Dim overview,skillslist, profilelanguages, profileeducation, publicgroups
detailname = ""
returnstatement = ""
locationdetails = ""
profileexperience = ""
profilecontact = ""
overview = ""
skillslist = ""
profilelanguages = ""
profileeducation = ""
publicgroups = ""

FirstName = TextBox1.Value
LastName = TextBox2.Value
ie.Navigate "http://www.google.com/search?hl=en&q=" & FirstName & "+" & LastName & "+linkedin&meta="
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
MyStr = ie.Document.body.innerText
Set RegMatch = RegEx.Execute(MyStr)

'If a match to our RegExp searchstring is found then launch this page
If RegMatch.Count > 0 Then
ie.Navigate RegMatch(0)
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
'****************************************
'EDITS
'****************************************
Set iedoc = ie.Document
Dim extractedHTML As String
Dim iStart, iEnd As Integer
extractedHTML = iedoc.getElementById("search").innerHTML
iStart = InStr(1, extractedHTML, "href=", vbTextCompare) + Len("href=") + 1
iEnd = InStr(iStart, extractedHTML, Chr(34), vbTextCompare)
'extract the text
extractedHTML = Mid(extractedHTML, iStart, iEnd - iStart)
'go to the URL
ie.Navigate extractedHTML
Set iedoc1 = ie.Document
'MsgBox iedoc1
On Error GoTo ErrHandler:
openedpage = iedoc1.getElementById("name").innerText
detailname = "NAME:" & vbCrLf & FirstName + " " + LastName
MsgBox ""
openedpage = ""
openedpage = iedoc1.getElementById("headline").innerText
'On Error GoTo ErrHandler:
MsgBox "LOCATION DETAILS:" & vbCrLf & openedpage
locationdetails = openedpage + vbCrLf
MsgBox locationdetails
openedpage = iedoc1.getElementById("profile-experience").innerText
profileexperience = openedpage + vbCrLf
openedpage = iedoc1.getElementById("profile-contact").innerText
profilecontact = openedpage + vbCrLf
openedpage = iedoc1.getElementById("overview").innerText
overview = openedpage + vbCrLf
openedpage = iedoc1.getElementById("skills-list").innerText
skillslist = openedpage + vbCrLf
openedpage = iedoc1.getElementById("profile-languages").innerText
profilelanguages = openedpage + vbCrLf
openedpage = iedoc1.getElementById("profile-education").innerText
profileeducation = openedpage + vbCrLf
openedpage = iedoc1.getElementById("pubgroups").innerText
publicgroups = openedpage + vbCrLf
returnstatement = locationdetails + profileexperience + profilecontact + overview + skillslist + profilelanguages + profileeducation + publicgroups
MsgBox returnstatement

ErrHandler:
   openedpage = "NULL"
 Resume Next

'****************************************
'End EDITS
'****************************************

Else
MsgBox "No linkedin profile found"
End If

Set RegEx = Nothing
Set ie = Nothing
End Sub

最も奇妙なことは、行番号 59 をコメントすると、場所の詳細が NULL として返されることです。ただし、そのメッセージ ボックスがある場合は、場所の詳細が正しく返されます。メッセージ ボックスの代わりに変数を使用してみましたが、メッセージ ボックスを使用する場合を除き、すべてのシナリオで場所の詳細が NULL になります。 

openedpage = iedoc1.getElementById("name").innerText
detailname = "NAME:" & vbCrLf & FirstName + " " + LastName
**MsgBox ""** (If i comment it out, location details becomes NULL. If it is uncommented, location details value is correct. 
openedpage = ""
openedpage = iedoc1.getElementById("headline").innerText
'On Error GoTo ErrHandler:
**MsgBox "LOCATION DETAILS:" & vbCrLf & openedpage**
locationdetails = openedpage + vbCrLf
MsgBox locationdetails
4

2 に答える 2

0

すべての（またはいくつかの追加の）データをロードするには、マクロに追加の時間が必要だと思います。MsgBoxを配置している場合は、MsgBoxを見つけて閉じる前に、意図せずにプロセスを実行してください。

MsgBoxの代わりに他の種類の「待機」ポイント（Application.Waitまたはなど）を配置するとどうなりますか。Do...Loop結果をお知らせください。

于 2013-03-15T07:17:46.220 に答える
0

Internet Explorer では、ページの読み込みとレンダリングに時間がかかります。行を追加

Do While ie.Busy : WScript.Sleep 100 : Loop

命令の後ie.Navigate extractedHTML。最初のページをロードするときに、すでに似たようなことをしています:

ie.Navigate "http://www.google.com/search?hl=en&q=" & FirstName _
  & "+" & LastName & "+linkedin&meta="
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

そこにもスリープ命令を追加する必要がありますが。

于 2013-03-15T12:03:57.990 に答える