How to Change Sleep Mode of System

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

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 objWorkbook1 =objExcel.Workbooks.Open(vMasterFilePath)


For Each wks In objWorkbook1.Worksheets
MsgBox("sheet name"& wks.Name)

If objExcel.Worksheets(wks.name).visible=False Then
MsgBox(wks.Name)
objExcel.Worksheets(wks.name).visible=True
count=count+1
End If

If wks.autofilterMode Then
wks.autofilterMode = False
End If
objExcel.Worksheets(wks.name).range("A1:BY100").ClearOutline

Next

objWorkbook1.Save
objWorkbook1.Close True
objExcel.Quit

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 bring RoI.

Once after finalizing the process, planning of work that includes resources and time identification is being formulated with the help of an RPA lead.

A formal approach is being documented and after approval from all stakeholders development is started.

b.)  Bot Development-: RPA developer (Team) starts working on requirement in their environment possibly a separate dev environment. Most of the development is wizard driven, with limited or no coding/scripting effort required.
However there are cases where RPA tools have limitation and coding needs to be done.

c.)  Testing -: There are two approaches on which testing is being carried out-

1- Separate testing team
2- Testing done by RPA dev team only

Some of the organisation believes that Unlike SDLC-software development life cycle in RPA testing is not that extremely critical part in most of the organization, therefore, script correctness is verified by the development team usually, with a peer review and once it is done same is ready for deployment.

While other few have a dedicated testing team which perform a dedicated QA like normal SDLC flow.

We recommend to have a dedicated testing team which perform QA of developed bot.

d.)  Deployment and Maintenance-

After the Dev and testing closure, a bot is ready for deployment and enters maintenance phase.Whenever a change comes in a process script/bot is updated or in a case, any issue is being caught in a bot same is being re-deployed by following the dev-test process again.

                           

Read More

How to select SAP layout with name

session.findById("wnd[0]/tbar[1]/btn[33]").press
Set 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 For

  End If
  
  Next

https://archive.sap.com/discussions/thread/3748959

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 is available  in  excel)

4/18/2018 6:12:23 AM=> Excel Operation -:Input File(Master File)  has been opened successfully

4/18/2018 6:12:23 AM=> Excel Operation -: Sheet1 has been activated

4/18/2018 6:12:24 AM=> Excel Operation -: Total Row in ExcelFile is10

4/18/2018 6:12:27 AM=> Excel Operation -: First Address of Filter Data is $D$3

4/18/2018 6:12:27 AM=> Excel Operation -: Data has been deletd successfully

4/18/2018 6:12:30 AM=> Excel Operation-: Activity has been completed successfully

4/18/2018 6:25:48 AM=> Excel Operation -:Input File(Master File)  has been opened successfully

Condition-2  (Data is not available  in  excel)

4/18/2018 6:25:48 AM=> Excel Operation -: Sheet1 has been activated

4/18/2018 6:25:49 AM=> Excel Operation -: Total Row in ExcelFile is7

4/18/2018 6:25:54 AM=> Excel Operation -: Data is Not Found because Filter Data first Address value is blank

4/18/2018 6:25:57 AM => Excel Operation-: Activity has been completed successfully

Condition-3  (Error Handling)

4/18/2018 6:26:26 AM=> Excel Operation -:Input File(Master File)  has been opened successfully

4/18/2018 6:26:26 AM=> Excel Operation -: Sheet1 has been activated

4/18/2018 6:26:27 AM=> Excel Operation -: Total Row in ExcelFile is

4/18/2018 6:26:30 AM=> Excel Operation -: Data is Not Found because Filter Data first Address value is blank

4/18/2018 6:26:33 AM => Excel Operation-: Activity has been completed successfully

4/18/2018 6:26:33 AM | Excel Operation | Error | 424-:Object required

Read More