Ir para conteúdo

EdsonBR

  • Postagens

    17
  • Desde

  • Última visita

  • Days Won

    2

EdsonBR venceu no dia Agosto 29

Seu conteúdo teve mais votos "Gostei" neste dia!

Perfil

  • Estado
    Santa Catarina
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

  1. EdsonBR

    Planilha de Vendas por Cartão de Credito/débito

    @Patropi "Mitou" neste tópico. Parabéns!
  2. EdsonBR

    GANTT EXCEL

    Bom dia, @jsbernardo O site do Guia do Excel tem uma pra download: "Gráfico de Gantt no Excel" Mas se quer um conselho se você usará de forma profissional vale a pena investir no Microsoft Project, já que é um software específico e já consolidado para essa finalidade: trabalhar com cronograma (prazos), custos e recursos de projetos/obras.
  3. EdsonBR

    Imagens Excel

    Bom dia, jsbernardo Use a tecla ALT enquanto arrasta a figura próximo aos cantos de uma célula e também ao arrastar as alças para redimensionar. Se forem muitas figuras, daria pra fazer via código, mas aí é necessário especificar completamente o problema sabendo previamente onde as imagens seriam inseridas.
  4. EdsonBR

    Word configuração entre linhas

    Marcio, anexe o arquivo .docx aqui para tentarmos avaliar.
  5. O código que você me enviou no privado infelizmente não rodou: o ResponseText do objHTTP retorna o seguinte conteúdo: "Error detected by Application Firewall. Please contact support if you have any questions." Mesmo copiando a URL gerada no código e colando no navegador, também não abre a página, dá esse erro... você usa alguma API instalada na máquina?
  6. Mas afinal, você quer o valor após TotalPedagioDescricao como no 1º Pots ou após TotalPedagio como no últtimo? Até porque o TotalPedagioDescricao já tem como separador decimal a vírgula, nem precisaria do replace depois. Bem, eu tinha já feito um teste com o texto q você anexou no início e com as solicitações iniciais e tinha funcionado com o código q passei (logicamente sem a parte que pega os dados da internet). Sem ter os outros parâmetros de acesso ao conteúdo do site fica ruim pra testar.
  7. Uma ideia poderia ser: Sub ObtemTotalPedagio() Dim RespostaSite As String, tmpVal As String '...código para obter o texto da página... RespostaSite = objHTTP.responseText With CreateObject("VBScript.RegExp") .Global = False .Pattern = "@TotalPedagioDescricao@:@R\$\s?([\d\.]+,\d{2})@" .Pattern = Replace(.Pattern, "@", """") If .test(RespostaSite) Then tmpVal = .Execute(RespostaSite)(0).SubMatches(0) End With MsgBox tmpVal End Sub
×