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