Properties and methods used for CurrentStyle of Object.

http://msdn.microsoft.com/en-us/library/ms535231.aspx

XlsApp.DisplayAlerts = False

Set XLBook = XlsApp.WorkBooks.Open(“c:\test.xls”)

On Error Resume Next

Call XlsApp.Run(“TestMacro”)

boolresult = Err.Number <> 0

On Error GoTo 0

 If boolresult Then

 Reporter.ReportEvent micFail, “Run Excel Macro”, “Failed to call macro or Incorrect or not existing macro”

Else

 Reporter.ReportEvent micDonel, “Run Excel Macro”, “Successfully invoked macro”

End If

XLBook.Save

XLBook.Close

 XlsApp.Quit

 Set XLBook = Nothing

Set XlsApp = Nothing

]]> http://qtpn.wordpress.com/2011/08/20/invoke-excel-macro-through-qtp/feed/ 0 hk http://qtpn.wordpress.com/2011/07/14/working-with-cookies/ http://qtpn.wordpress.com/2011/07/14/working-with-cookies/#comments Thu, 14 Jul 2011 15:22:12 +0000 qtpn http://qtpn.wordpress.com/?p=266 ]]> Call clearcookies

Function clearCookies()

on error Resume Next

Const COOKIES = 33  ‘&H21&

Set objShell = CreateObject(“Shell.Application”)

=================================================================

‘Geting cookies information using DOM

c=Browser(“Gmail: Email from Google”).Page(“Gmail – Inbox (981) -”).Object.cookie
msgbox(c)

‘ To get the cookies information through URL
a=webutil.GetCookies(“https://mail.google.com/mail/?hl=en&shva=1#inbox”)
msgbox(a)

‘To delete cookies
webutil.DeleteCookies

=================================================================

Call ClearCookiesInternet

Function ClearCookiesInternet()
SystemUtil.Run “Control.exe”,”inetcpl.cpl”
Set objShell = CreateObject(“Wscript.Shell”)
Do Until done = True
done = objShell.AppActivate(“Internet Properties”)
Wait(1)
Loop
objShell.Sendkeys “%i”
Wait(1)
objShell.Sendkeys “{ENTER}”
Wait(1)
objShell.Sendkeys “%f”
Wait(1)
objShell.Sendkeys “%d”
Wait(1)
objShell.Sendkeys “{ENTER}”
Wait(4)
objShell.Sendkeys “{ENTER}”
End Function

==============================================================================

set WshShell = CreateObject(“WScript.Shell”)
user= WshShell.ExpandEnvironmentStrings(“%userprofile%”)
Set fso = CreateObject(“Scripting.FileSystemObject”)

file_path = user & “\Cookies”
WScript.echo(file_path)
Set folder = fso.getFolder(file_path)

For Each Fr in folder.Files
If UCase(FSO.GetExtensionName(Fr.Path)) = “TXT” Then
fso.DeleteFile(Fichier)
end if
Next
WScript.echo(“All Cookies are deleted succefuly !”)

Set objXML = CreateObject(“Microsoft.XMLDOM”)

objXML.async = False

ObjXml.load(“D:\Testing\All\Automation\QTP_Doc\QTP ALL\XML\data.xml”)

msgbox ObjXml.XML

Dim objChildNodes, snode

set objChildNodes = ObjXml.documentElement.childNodes

msgbox(objchildnodes.length)

‘Set objChildNodes = ObjXml.documentElement.childNodes.item(0).childNodes

For Each snode In objChildNodes

msgbox(snode.nodeName)

Next

For i=0 to (root.childnodes.length)-1

Msgbox(root.childnodes.item(i).text)

Next

Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True

objWord.Documents.Open docfile1
objWord.ActiveDocument.Compare docfile2
If objWord.ActiveDocument.Revisions.count <> 0 Then
msgbox “File Comparision has been failed”
objWord.ActiveDocument.SaveAs result, 1,False,”",True,”",False,False,False,False,False,”",False,False, 1,True
objWord.Quit
Else
msgbox “File Comparision has been passed”
objWord.Quit(False)
End If

Set objWord = Nothing

orname=”test”

OR_fileName = PathFinder.Locate(orname & “.tsr”)
if OR_fileName <> “” Then
If RepositoriesCollection.Find(OR_fileName) = -1 then
RepositoriesCollection.Add orName
End if
ENd if

Browser(“s”).Sync

Set child1 = objXMLDoc.documentElement.firstChild
Set child2 = child1.nextSibling
msgbox child2.text

xmlFile=”c:\test.xml”

csvFile=”c:\result.csv”

Set xlsApp = CreateObject(“Excel.Application”)
Set xlswb = xlsApp.Workbooks.OpenXML(xmlFile,2)
xlswb.SaveAs csvFile, 6
xlswb.close false
xlsApp.quit

Set xDoc = CreateObject( “Microsoft.XMLDOM” )
xDoc.Async = “False”
xDoc.Load(xmlpath)
If xDoc.parseError.errorCode=0 Then
Print “Invalid XMLFile orNo file ”
else
Set colNodes = xDoc.selectNodes(str)
If colNodes.length>0 Then
For Each objNode in colNodes
Print objNode.nodeName & “: ” & objNode.text
Next
else
Print “Nothing Found for this str =” & str
End If
End If
Set xDoc = nothing
Set colNodes = nothing

Set xmlDoc = CreateObject(“Msxml2.DOMDocument”)
xmlDoc.load(“C:\test.xml”)

Set ElemList = xmlDoc.getElementsByTagName(“CATALOG”)
fp = ElemList.item(0).getAttribute(“Plant”)
MsgBox fp

Set ElemList = xmlDoc.getElementsByTagName(“PLANT”)
plot = ElemList.item(0).Text
MsgBox plot