Hi All, After enabling macros in excel application i could able to run this function.
But i dont get the meaning what this function does with excel sheet. Please explain Regards, Udhay On Thu, Aug 7, 2014 at 12:36 PM, Udhaya Kumar <[email protected]> wrote: > Hi All, > > While running the below code for excel macro i go the error " Programmatic > access to VB project is not trusted" > > Set XLHandle = CreateObject("Excel.Application") > XLHandle.DisplayAlerts = False > Set XLBook = XLHandle.WorkBooks.Open("c:\temp\1.xls") > Set objCodeModule = XLBook.VBProject.VBComponents.Item("Module1") > .CodeModule > sNewCode = "Public Function NewFunction(ByVal intStartRow, ByVal > intEndRow)" & vbCrLf > sNewCode = sNewCode &" Sheet1.Range(Sheet1.Cells(intStartRow, 1), > Sheet1.Cells(intEndRow, 10)).Select" & vbCrLf > sNewCode = sNewCode &" Selection.Interior.ColorIndex = 35" & vbCrLf > sNewCode = sNewCode &"End Function" & vbCrLf > objCodeModule.AddFromString(sNewCode) > XLBook.Save > XLBook.Close > XLHandle.Quit > Set objCodeModule = Nothing > Set XLBook = Nothing > Set XLHandle = Nothing > > Please give workaround for this error > > > Regards, > Udhay > -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
