How to Change Sleep Mode of System

Set wshShell=WScript.CreateObject("WScript.Shell") Do WScript.Sleep 60000 wshShell.SendKeys "{NUMLOCK}" wshShell.SendKeys "{NUMLOCK}" loo...

Read More

How to Unhide Sheet all tab from Excel

On Error Resume Next 'vMasterFilePath=WScript.Arguments(0) 'vLogPath=WScript.Arguments(1) vMasterFilePath="C:\Users\admin\Desktop\Operation\Data.xlsx" vLogPath="C:\Users\admin\Desktop\Operation\Log.txt" 'For write the log' Set objFS = CreateObject("Scripting.FileSystemObject") Set FSO_Handle = objFS.OpenTextFile(vLogPath,8,True) Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False objExcel.Visible = True Set objW...

Read More

What is RPA-Life cycle and team structure

What is RPA-Life cycle and team structure a.)  Analysis Life cycle in RPA begins with analysis phase. Business team and RPA strategist/Architect work together to identify a business process for RPA development. Most of the development follows an agile methodology that to is customized (some modifications) agile. The core intent of this analysis is to identify processes which are feasable for automation, as awell as can save manual effort and...

Read More

How to select SAP layout with name

session.findById("wnd[0]/tbar[1]/btn[33]").pressSet Layout =  session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell")Rows = Layout.RowCount()For i = 0 To Rows - 1  LayoutVariant = Layout.getCellValue(i, "VARIANT")  Layout.setCurrentCell i,"TEXT"  Layout.firstVisibleRow = i  Layout.selectedRows=i    If LayoutVariant = "STEFAN3" Then    Layout.currentCellRow = i    Layout.clickCurrentCell    Exit ...

Read More

How to filter and delete rows in excel vba

How to filter and delete rows in excel vba Note -: Here we will discuss How to filter and delete rows in excel vba with log and error handling On Error Resume Next 'vMasterFilePath=WScript.Arguments(0) 'vLogPath=WScript.Arguments(1) vMasterFilePath="C:\Users\Dell\Desktop\Anil Singh\BPTestExcel.xlsx" vLogPath="C:\Users\Dell\Desktop\Anil Singh\Log.txt" Set objFS = CreateObject("Scripting.FileSystemObject") Set FSO_Handle = objFS.OpenTextFile(vLogPath,8,True) Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False objExcel.Visible = True Set objWorkbook1 =objExcel.Workbooks.Open(vMasterFilePath) 'Set objWorkbook1 =objExcel.Workbooks.Open(vMasterFilePath) FSO_Handle.WriteLine(Now & "=> Excel Operation -:Input File(Master File)  has been opened successfully") Dim RowCount objWorkbook1.Worksheets("Sheet1").Activate FSO_Handle.WriteLine(Now & "=> Excel Operation -: Sheet1 has been activated") RowCount=objWorkbook1.Worksheets("Sheet1").UsedRange.Rows.Count AutoCloseMsgBox(RowCount) 'MsgBox(RowCount) FSO_Handle.WriteLine(Now & "=> Excel Operation -: Total Row in ExcelFile is"& RowCount) Set rangDataSearch = objExcel.ActiveSheet.Range("D1:D"&RowCount) Set rangData = objExcel.ActiveSheet.Range("A1:D"&RowCount) firstAddress = Empty  With rangDataSearch  Set c = .Find("Java")  If Not c Is Nothing Then  firstAddress = c.Address  End If End With MsgBox(firstAddress) If firstAddress <> Empty Then FSO_Handle.WriteLine(Now & "=> Excel Operation -: First Address of Filter Data is " & firstAddress) With rangData  .AutoFilter 4, "Java"  .Select  'Delete the visible rows while keeping the header  .Offset(1,0).Resize(.Rows.Count-1).SpecialCells(12).Rows.EntireRow.Delete  '.Resize(.Rows.Count-1).SpecialCells(12).Rows.EntireRow.Delete End With  With objExcel.ActiveSheet  .AutoFilterMode = False  If .FilterMode = True Then  .ShowAllData  End If  End With  FSO_Handle.WriteLine(Now & "=> Excel Operation -: Data has been deletd successfully")   MsgBox("Data has been deletd successfully")  Else  FSO_Handle.WriteLine(Now & "=> Excel Operation -: Data is Not Found because Filter Data first Address value is blank ")  MsgBox("Data is Not Found")  End If  objWorkbook1.Save  objWorkbook1.Close True  objExcel.Quit AutoCloseMsgBox("Excel Operation Activity has been completed successfully") FSO_Handle.WriteLine(Now & " => Excel Operation-: Activity has been completed successfully") If Err.Number <> 0 Then FSO_Handle.WriteLine(Now & " | Excel Operation | Error | " & Err.Number &"-:" & Err.Description) AutoCloseMsgBox("Error") WScript.StdOut.WriteLine "fail" Else WScript.StdOut.WriteLine "pass" AutoCloseMsgBox("No  Error") End If  'write a function For auto close message box Function AutoCloseMsgBox(msg) CreateObject("Wscript.Shell").Popup msg,1,"Auto Close",4+32 End Function Log-: Condition-1  (Data...

Read More