Tenho uma rotina em VBA que está totalmente funcional, mas gostaria que mostrasse a janela do Windows dos arquivos que estão sendo copiados. Alguém poderia me ajudar?
Obrigado.
- TELA_COPIANDO.jpg (67.22 KiB) Exibido 16771 vezes
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 36 ocorrências
- Dom Mar 29, 2020 7:04 pm
- Fórum: Artigos do Site e Blog
- Tópico: Visualizar tela Windows-Copiando Arquivos
- Respostas: 5
- Exibições: 17053
Visualizar tela Windows-Copiando Arquivos
Prezados(as),
Tenho uma rotina em VBA que está totalmente funcional, mas gostaria que mostrasse a janela do Windows dos arquivos que estão sendo copiados. Alguém poderia me ajudar?
Obrigado.
Tenho uma rotina em VBA que está totalmente funcional, mas gostaria que mostrasse a janela do Windows dos arquivos que estão sendo copiados. Alguém poderia me ajudar?
Obrigado.
- Sáb Nov 03, 2018 4:33 pm
- Fórum: VBA Básico
- Tópico: PROGRESS BAR QUE CONTA ARQUIVOS
- Respostas: 1
- Exibições: 2218
PROGRESS BAR QUE CONTA ARQUIVOS
Boa tarde Pessoal, Estou tentando inserir uma Progress Bar em um form de um tipo específico, porém não roda de jeito nenhum. Como é uma rotina de copiar arquivos <Diretório> para o Pen Drive a mesma é demorada. Achei o código abaixo do Macoratti em VBA-Access, mas também não consegui adaptar para o ...
- Sáb Jul 28, 2018 12:59 pm
- Fórum: Geral
- Tópico: COPIAR DIRETÓRIO PARA PENDRIVE
- Respostas: 3
- Exibições: 3580
Re: COPIAR DIRETÓRIO PARA PENDRIVE
Prezados,
Mikel e Reinaldo, adaptei os códigos e referências postadas por vocês e está funcionando perfeitamente. Muito obrigado.
Mikel e Reinaldo, adaptei os códigos e referências postadas por vocês e está funcionando perfeitamente. Muito obrigado.
- Qui Jul 26, 2018 7:28 pm
- Fórum: Geral
- Tópico: COPIAR DIRETÓRIO PARA PENDRIVE
- Respostas: 3
- Exibições: 3580
COPIAR DIRETÓRIO PARA PENDRIVE
Boa noite, Preciso criar um código que copie todo o conteúdo de um determinado diretório e sub diretórios do meu P.C e o sobrescreva no meu pendrive, mas não estou obtendo exito. Estou usando a seguinte linha: Sub Copiar_dir() Shell "cmd /c xcopy /y /e C:\ORIGEM\*.* F:\DESTINO\" End Sub Al...
- Sex Jul 14, 2017 1:46 pm
- Fórum: Geral
- Tópico: Compatibilidade API 32 para 64 bits
- Respostas: 3
- Exibições: 4027
Re: Compatibilidade API 32 para 64 bits
Funcionou perfeitamente Mikel. Obg mais uma vez.
- Dom Jul 09, 2017 3:09 pm
- Fórum: Geral
- Tópico: Compatibilidade API 32 para 64 bits
- Respostas: 3
- Exibições: 4027
Re: Compatibilidade API 32 para 64 bits
Olá mestre Mikel,
Muito obrigado pela sua ajuda.
Muito obrigado pela sua ajuda.
- Dom Jul 02, 2017 12:11 pm
- Fórum: Geral
- Tópico: Compatibilidade API 32 para 64 bits
- Respostas: 3
- Exibições: 4027
Compatibilidade API 32 para 64 bits
Pessoal, necessito de ajuda para finalizar uma API que roda perfeitamente em 32 bits, porém em Office 64 (Excel) está apresentando erro de compatibilidade. Ela é: Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private D...
- Qui Jun 01, 2017 3:07 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10736
Re: Verificar se impressora padrão está desligada
Legal seu código com os avisos. Vou testar caso precise implantar com MENSAGENS.
Valeu.
Valeu.
- Qua Mai 31, 2017 6:46 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10736
Re: Verificar se impressora padrão está desligada
Claro que sim, com maior prazer.
Lembrando que adaptei o código que enviei primeiro por engano, esse só implantei.
Abraços.
Lembrando que adaptei o código que enviei primeiro por engano, esse só implantei.
Abraços.
- Qua Mai 31, 2017 3:47 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10736
Re: Verificar se impressora padrão está desligada
Pessoal peço mil desculpas, a função de verificar se impressora está ON\OFF é a seguinte: Public Function PrinterOffline(Optional pstrPrinter As String = "Default") As Boolean Dim strWhere As String Dim objWMI As Object Dim objPrinters As Object Dim objPrinter As Object Set objWMI = GetObj...
