Power Platform Community Forum Thread Details

Try this:

WebAutomation.LaunchChrome.LaunchChrome Url: $'''www.bde.es''' WindowState: WebAutomation.BrowserWindowState.Maximized ClearCache: False ClearCookies: False WaitForPageToLoadTimeout: 60 Timeout: 60 PiPUserDataFolderMode: WebAutomation.PiPUserDataFolderModeEnum.AutomaticProfile BrowserInstance=> Browser
Excel.LaunchExcel.LaunchUnderExistingProcess Visible: True Instance=> ExcelInstance
SET CabeceraColumnas TO {['Concepto', 'Fecha', 'Valores'] }
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CabeceraColumnas Column: $'''A''' Row: 1
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(0)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> ConceptosActual
SET Fila TO 2
LOOP FOREACH ConceptosActual IN ConceptosActual
    Text.Trim Text: ConceptosActual TrimOption: Text.TrimOption.Both TrimmedText=> ConceptosActual
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: ConceptosActual Column: 1 Row: Fila
    Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(2)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> FechaActual
SET Fila TO 2
LOOP FOREACH FechaActual IN FechaActual
    Text.ParseText.RegexParseForFirstOccurrence Text: FechaActual TextToFind: $'''(\\d{1,2}\\/\\d{1,2}\\/\\d{2,4})|(\\d{1,2}\\\\d{1,2}\\\\d{2,4})|(\\d{1,2}-\\d{1,2}-\\d{2,4})|(\\d{1,2}.\\d{1,2}.\\d{2,4})''' StartingPosition: 0 IgnoreCase: True Match=> Match
    **REGION Date Format Handler
    Text.ConvertTextToDateTime.ToDateTime Text: Match DateTime=> TextAsDateTime
    ON ERROR
        GOTO EuroDateFormat
    END
    GOTO NAdateFormat
    LABEL EuroDateFormat
    Text.ConvertTextToDateTime.ToDateTimeCustomFormat Text: Match CustomFormat: $'''dd/MM/yyyy''' DateTime=> TextAsDateTime
    LABEL NAdateFormat
    **ENDREGION
    Text.ConvertDateTimeToText.FromDateTime DateTime: TextAsDateTime StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> FormattedDateTime
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: FormattedDateTime Column: 2 Row: Fila
    Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
WebAutomation.ExtractData.ExtractList BrowserInstance: Browser Control: $'''html > body > section > section:eq(7) > div > div > div:eq(0) > div > div:eq(1) > div > article''' ExtractionParameters: {[$'''div > div > p:eq(1)''', $'''Own Text''', $''''''] } PostProcessData: False TimeoutInSeconds: 60 ExtractedData=> ValorActual
SET Fila TO 2
LOOP FOREACH ValorActual IN ValorActual
    Text.Trim Text: ValorActual TrimOption: Text.TrimOption.Both TrimmedText=> ValorActual
    Text.Replace Text: ValorActual TextToFind: $'''%' '%''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> ValorActual
    Text.Replace Text: ValorActual TextToFind: $''',''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''.''' ActivateEscapeSequences: False Result=> ValorActual
    IF Contains(ValorActual, $'''%'$'%''', False) THEN
        Text.Replace Text: ValorActual TextToFind: $'''%'$'%''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> ValorActual
        SET ValorActual TO $'''$%ValorActual%'''
    END
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: ValorActual Column: 3 Row: Fila
    Variables.IncreaseVariable Value: Fila IncrementValue: 1
END
# Inicio Fecha Actual
DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> FechaHoraActual
Text.ConvertDateTimeToText.FromCustomDateTime DateTime: FechaHoraActual CustomFormat: $'''ddMMyyyyHHmmss''' Result=> FechaHoraActual
# Fin Fecha Actual
# Inicio RutaArchivo
Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> RutaEscritorio
Text.CropText.CropTextBetweenFlags Text: RutaEscritorio FromFlag: $'''C:\\Users\\''' ToFlag: $'''\\''' IgnoreCase: True CroppedText=> User
SET RutaDownLoads TO $'''C:\\Users\\%User%\\Documents\\%FechaHoraActual%'''
# Fin RutaArchivo
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelInstance DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: RutaDownLoads
WebAutomation.CloseWebBrowser BrowserInstance: Browser