thenelson
asked on
Extract info from web page
I would like to extract the physician's information from this sample page via code:
http://www.upinregistry.com/provider_detail.asp?KeyField=B207930003
I want to push a button and fill all the values on this page into my active form.
For example: I would like to extract the PHYSICIAN UPIN Value: "B20793" in this sample page and insert it into the UPIN control on my active form.
Inserting the data into the control is no problem extracting the "B20793" (and other values) is what I would like help with.
http://www.upinregistry.com/provider_detail.asp?KeyField=B207930003
I want to push a button and fill all the values on this page into my active form.
For example: I would like to extract the PHYSICIAN UPIN Value: "B20793" in this sample page and insert it into the UPIN control on my active form.
Inserting the data into the control is no problem extracting the "B20793" (and other values) is what I would like help with.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
what version of Access do you have?
i am using A2003 and it is located here
C:\WINDOWS\system32\shdocv w.dll
i am using A2003 and it is located here
C:\WINDOWS\system32\shdocv
ASKER
what version of Access do you have?
Also A2003
Great! that did it!
As far as "how would I get the URL for WC = PageContents from the browser via code?" I'll search for that or ask another question.
Thanks! A great code piece!
Also A2003
Great! that did it!
As far as "how would I get the URL for WC = PageContents from the browser via code?" I'll search for that or ask another question.
Thanks! A great code piece!
<ot>
i sent you an email at nelsonh <at> nosuffering <dot> com
is that mail working still?
</ot>
i sent you an email at nelsonh <at> nosuffering <dot> com
is that mail working still?
</ot>
ASKER
<is that mail working still?>
Yes, haven't got it yet.
Yes, haven't got it yet.
<how would I get the URL>
i got this from my chest box (works for IE)
* you have to pass a portion of the title of the web page and the web page must be open...
Function getURL(vTitle As String)
On Error Resume Next
Dim shlShellWindows As New SHDocVw.ShellWindows
Dim expExplorer As SHDocVw.InternetExplorer
Dim sURL As String, sTitle As String
For Each expExplorer In shlShellWindows
sTitle = expExplorer.LocationName
If InStr(sTitle, vTitle) > 0 Then
getURL = expExplorer.LocationURL
Exit Function
End If
Next
End Function
i got this from my chest box (works for IE)
* you have to pass a portion of the title of the web page and the web page must be open...
Function getURL(vTitle As String)
On Error Resume Next
Dim shlShellWindows As New SHDocVw.ShellWindows
Dim expExplorer As SHDocVw.InternetExplorer
Dim sURL As String, sTitle As String
For Each expExplorer In shlShellWindows
sTitle = expExplorer.LocationName
If InStr(sTitle, vTitle) > 0 Then
getURL = expExplorer.LocationURL
Exit Function
End If
Next
End Function
ASKER
I did not see Microsoft Internet control in the list of references. Where would I find it?
Also, how would I get the URL for WC = PageContents from the browser via code?