[Resolvido] Selenium - .AsTable().ToExcel substitui ponto por vírgula
Enviado: Ter Jun 25, 2019 12:20 pm
Olá.
Sou novo no forum, iniciante em VBA e iniciante em Selenium.
A partir dos vídeos do Tomás Vasquez elaborei alguns códigos para webscraping de dados do site da bolsa de valores. Tenho conseguido importar os dados com .AsTable().ToExcel, mas quando eu importo tabelas que contém ponto como separador de milhares, nos casos em que tenho apenas um ponto (até 999.999), os dados são colados no excel como se o ponto fosse uma vírgula (por exemplo 999,999), enquanto as células que contém mais de um ponto (a partir de 1.000.000) o ponto é mantido.
Gostaria que a importação retornasse apenas ponto, como no texto de origem. Também serviria, se ele eliminasse os pontos.
Sei que para substituir no VBA se usa .Replace, mas não sei como usar o replace com o Selenium Webdriver na importação.
Agradeço se puderem me ajudar.
Segue o código que estou utilizando.
Sou novo no forum, iniciante em VBA e iniciante em Selenium.
A partir dos vídeos do Tomás Vasquez elaborei alguns códigos para webscraping de dados do site da bolsa de valores. Tenho conseguido importar os dados com .AsTable().ToExcel, mas quando eu importo tabelas que contém ponto como separador de milhares, nos casos em que tenho apenas um ponto (até 999.999), os dados são colados no excel como se o ponto fosse uma vírgula (por exemplo 999,999), enquanto as células que contém mais de um ponto (a partir de 1.000.000) o ponto é mantido.
Gostaria que a importação retornasse apenas ponto, como no texto de origem. Também serviria, se ele eliminasse os pontos.
Sei que para substituir no VBA se usa .Replace, mas não sei como usar o replace com o Selenium Webdriver na importação.
Agradeço se puderem me ajudar.
Segue o código que estou utilizando.
Código: Selecionar todos
Sub BuscaDFP2()
Dim driver As WebDriver
Set driver = New ChromeDriver
Dim CodCVM As Integer
Dim NomePregao As String
Dim novaPlanilha As Worksheet
'Abre a página que contém os dados
driver.Get "https://www.rad.cvm.gov.br/enetconsulta/frmGerenciaPaginaFRE.aspx?CodigoTipoInstituicao=1&NumeroSequencialDocumento=14699"
'Seleciona o Frame que contem os dados
driver.SwitchToFrame ("iFrameFormulariosFilho")
'Exporta a tabela para o excel
driver.FindElementByXPath("//*[@id=""ctl00_cphPopUp_tbDados""]/tbody").AsTable().ToExcel (ActiveSheet.Cells(1, 1))
driver.Quit
End Sub