Hi Friends
Today i am gone show you that how to get html Properties by using VBA
code and macro.
Option Explicit
Option Compare Text
Const cForm_name As Long = 1
Const cForm_Id As Long = 2
Const cElement_Name As Long = 3
Const cElement_ID As Long = 4
Const cElement_nodeName As Long = 5
Const cElement_Type As Long = 6
Const cElement_Value As Long = 7
Const cElement_SetValue As Long = 8
Sub getdata()
On Error GoTo GetFields_Error
Dim objIE As Object
Dim objForms As Object, objForm As Object
Dim objInputElement As Object
Dim objOption As Object
Dim lngRow As Long
Dim strComment As String
Set objIE = GetIEApp
'Make sure an IE object was hooked
If TypeName(objIE) = "Nothing" Then
MsgBox "Could not hook Internet Explorer object", vbCritical,
"GetFields() Error"
GoTo Clean_Up
End If
'In case the sheet is being resused, clear it
ClearActiveSheet
'Get the forms object
Set objForms = objIE.Document.Forms
'Test to see if there are forms before proceding
If objForms.Length <> 0 Then
'Write the header
lngRow = lngRow + 4
With ActiveSheet
.Cells(lngRow, cForm_name) = "Form_Name"
.Cells(lngRow, cForm_Id) = "Form_ID"
.Cells(lngRow, cElement_Name) = "Element_Name"
.Cells(lngRow, cElement_ID) = "Element_ID"
.Cells(lngRow, cElement_nodeName) = "Element_nodeName"
.Cells(lngRow, cElement_Type) = "Element_Type"
.Cells(lngRow, cElement_Value) = "Element_Value"
.Cells(lngRow, cElement_SetValue) = "Element_SetValue"
End With
'End Header
'Cycle through all the forms in the document
For Each objForm In objForms
'Cycle through the input elements in the form
For Each objInputElement In objForm
lngRow = lngRow + 1
With ActiveSheet
.Cells(lngRow, cForm_name) = objForm.Name
.Cells(lngRow, cForm_Id) = objForm.ID
.Cells(lngRow, cElement_Name) = objInputElement.Name
.Cells(lngRow, cElement_ID) = objInputElement.ID
.Cells(lngRow, cElement_nodeName) = objInputElement.nodeName
.Cells(lngRow, cElement_Type) = objInputElement.Type
If objInputElement.Type = "submit" Or objInputElement.Type =
"button" Then
.Cells(lngRow, cElement_SetValue).Interior.Color = vbBlack
ElseIf objInputElement.Type = "hidden" Then
.Cells(lngRow, cElement_SetValue).Interior.Color = vbYellow
End If
.Cells(lngRow, cElement_Value) = objInputElement.Value
'build a list of the possible selections for a select elements
If objInputElement.nodeName = "SELECT" Then
For Each objOption In objInputElement
strComment = strComment & Chr(34) & objOption.Value &
Chr(34) & ": " & objOption.Text & vbNewLine
Next objOption
'place the list as a comment in the SetValue column
.Cells(lngRow, cElement_SetValue).AddComment strComment
strComment = ""
End If
End With
Next objInputElement
Next objForm
End If
Clean_Up:
Set objInputElement = Nothing
Set objForm = Nothing
Set objForms = Nothing
Set objIE = Nothing
Exit Sub
GetFields_Error:
Debug.Print Err.Number, Err.Description
Resume Next
End Sub
Function GetIEApp() As Object
Dim objShell As Object
Dim objWindows As Object
Dim objWindow As Object
Dim lngSingleWindow As Long
Dim intOption As Integer
Dim strMessage As String, strReturnValue As String
Set objShell = CreateObject("Shell.Application")
Set objWindows = objShell.Windows
lngSingleWindow = -1
For Each objWindow In objWindows
'Build a list of windows, make sure they are Internet Explorer
If Right(objWindow.FullName, 12) = "iexplore.exe" Then
strMessage = strMessage & intOption & " : " &
objWindow.LocationName & vbCrLf
If lngSingleWindow = -1 Then
lngSingleWindow = intOption
Else
lngSingleWindow = 0
End If
End If
intOption = intOption + 1
Next
'Check if there are any IE windows
If Len(strMessage) <> 0 Then
'Prompt to pick a window, used an InputBox for portability
If lngSingleWindow > 0 Then
Set GetIEApp = objWindows.Item(CLng(lngSingleWindow))
Else
strReturnValue = InputBox(strMessage, "Please select Browser
window")
'If the user cancels the input box an empty string is returned
If strReturnValue <> "" Then
'Make sure the number selected is valid
If Val(strReturnValue) >= 0 And Val(strReturnValue) <= intOption
Then
Set GetIEApp = objWindows.Item(CLng(strReturnValue))
End If
End If
End If
End If
Set objWindow = Nothing
Set objWindows = Nothing
Set objShell = Nothing
End Function
Function ClearActiveSheet()
ActiveSheet.UsedRange.Clear
ActiveSheet.Cells(2, 1).Activate
End Function
Well in above coding you only need to do is just copy and paste in you
excel module.
And also need to be vary clear with input box.Only put integer value
in input box to select internet browsers like 0,1,2,3.
That will be help you while communicate with internet explorer by
using VBA macro.
Like Vba code to get html propatis,Vba code to get html page
detail,Vba code to get internet explorer detail.
"VBA code macro to communicate with internet explorer"
Regards
Vishal parihar
9910415530
vish.pari...@gmail.com
vishal.pari...@yahoo.co.in
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
