Ir ao conteúdo
  • Cadastre-se

Iomari Silva Roza Junior

Membro Júnior
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. @Midori Pode ser... Alguma sugestão de código para wait?
  2. @Midori Continua sem remover a numeração. Segue imagem...
  3. @Midori É exatamente isso. Mas a instrução só funciona rodando sozinha. Quando o relatório é gerado, o arquivo não é renomeado, ou seja, continua com a numeração mesmo após a macro ser finalizada.
  4. @Midori Se já houver um arquivo no padrão mencionado na pasta, a macro executa a função no arquivo existente, e não no criado (extraído do site). A macro funciona. O relatório é extraído do site corretamente, mas a instrução para renomear o arquivo extraído não roda.
  5. @Midori Inseri seu código no final do evento. Ele em separado funciona perfeitamente, porém, após o evento, quando ele não deleta o arquivo, não o renomeia. Segue o código do evento: Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim ID As Boolean, ieForm Dim ID_ As Integer Global Const SW_MAXIMIZE = 3 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Sub Login() Worksheets("Dashbo
  6. @Midori O código funciona, obrigado. vou tentar adaptar, pois quando uso ele em uma call, o arquivo é deletado.
  7. @Midori , essa ID é só um exemplo. Como eu disse no primeiro post, os arquivos são gerados de acordo com a ID que solicitamos o relatórios, ou seja, os relatórios sempre são extraídos com uma sequência numérica final aleatória e, para automatizar uma macro, preciso padronizar esse aquivo, removendo essa sequência numérica aleatória final.
  8. @Midori Não entendi. Devo substituir o nome do arquivo pelo código "MsgBox Left(Arquivo, 13) & ".csv"???
  9. Salve, mestres!! Estou quebrando a cabeça para renomear arquivos de relatórios que são extraídos automaticamente de um site, mas que são gerados de acordo com uma ID inserida na página. Ex: Name "C:\Users\" & Environ("UserName") & "\Downloads\AlunosTurmaID50978.csv" As "C:\Users\" & Environ("UserName") & "\Downloads\AlunosTurmaID.csv" Já tentei usar "*", "#" e "?", mas nada funciona. Alguém pode me dar uma luz??

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

907618_67f7_4.jpg

PROMOÇÃO RELÂMPAGO!

Curso "Arquitetura de Redes", de Gabriel Torres, por apenas R$ 22,90. Só até as 23h59min desta sexta-feira 23/10/2020!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!