mgsandoval
/ otro-codigo.vba
Created
March 10, 2025 20:26
— forked from SidVal/otro-codigo.vba
Para el post: https://www.consultoria-sap.com/2021/04/como-conectar-excel-con-sap.html
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| If Session.ActiveWindow.Text = "Error" Then Err.Raise 99 ' error detected? | |
| ' | |
| ' find the collection object that contains the Message from the bottom of the SAP screen and write the message to Excel | |
| Info (17) ' puts the Message in the 17th column on the Excel Spreadsheet - column "Q" | |
| ' | |
| If Session.ActiveWindow.Name = "wnd[1]" And Session.ActiveWindow.Text = "Log Off" Then | |
| Session.findById("wnd[1]/usr/btnSPOP-OPTION2").press | |
| Sheets("SAP_DATA").Cells(lDataRow, 16) = "error" | |
| End If | |
| '------------------------------------------------------- |