;#Region ;**** Directives created by AutoIt3Wrapper_GUI **** ;#AutoIt3Wrapper_Version=Beta ;;#AutoIt3Wrapper_UseX64=n ;#AutoIt3Wrapper_UseX64=Y ;Should be used for stuff like tagpoint having right struct etc. when running on a 64 bits os ;#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;#AutoIt3Wrapper_Run_Debug_Mode=Y ;******************************************************************************************************************** ;NOTE: CAPTURE THE NEW,SELL, etc. ICONS from the portfolios so can be included in the Watchlists spreadsheets ;******************************************************************************************************************** ;INVESTING SCRIPT - Watchlists (Grades & ERD), Zacks & Yahoo Finance websites synced, and Grade Updates ;******************NEW VERSION OF ICON ACCESS TO TRY USING RECOMMENDASTION FROM DanP********************************************* ;*******************************THIS SCRIPT NOW WORKS PERFECT FOR ACCESSING ALL THE TEXT SYMBOLS*********************************** GLOBAL $oExcel Global $ticker ;Global $oIEPGP ;UI Stuff: global $frmSimpleSpy, $edtCtrlInfo , $lblCapture, $lblEscape, $lblRecord, $edtCtrlRecord, $msg, $x, $y, $oUIElement, $oTW, $objParent, $oldElement, $text1, $t #include #include #include ;#include #include #include #include #Include #include #include #include ;From UI Examples, may not need all #include #include #include #include #include ;#include "UIAWrappers.au3" #include ;#include <_Dbug.au3> #include Local $IPSnglWLs = "C:\TRADING_IP\IP_WATCHLISTS.xlsx" ; Create application object Local $oWls = _Excel_Open() If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Sleep(500) ;OPEN THE IP_WATCHLISTS FILE Local $IPSnglwlst = _Excel_BookOpen($oWls, $IPSnglWLs) If @error = 1 Then MsgBox(0, "Error!", "Unable to Create the Excel Object") Exit ElseIf @error = 2 Then MsgBox(0, "Error!", "File does not exist - XXX_WL file") Exit EndIf MsgBox(0,"status","IP_WATCHLISTS opened") ;Trying to access and change sheet names Local $Sh1Name = $IPSnglwlst.Sheets(1).Name ;Actual name of sheet1 is HG-g; This statement is returning "sheet1" MsgBox (0,"Sh1Name",$Sh1Name) $IPSnglwlst.Sheets(2).Name = "HG" ;This statement is not changing the name of Sheet2 on the workbook