rmalves21

Pessoal tudo bem? eu não tenho muito conhecimento com VBA, mas consegui fazer uma planilha para envio de Whatsapp. Mas de uns tempo para cá essa planilha apresenta muitos erros. Será que alguém pode me ajudar ? Na vdd eu preciso que ela envie o whtasapp, e ela faz, porém a mensagem não sai configurada com espaços e paragrafos, e isso não ocorre hoje. alguém pode me ajudar ? Sub whatsapp() Dim texto As String Dim linha As Integer Dim GC As Object Dim WebUrl As String Dim NavigatorAddress As String Sheets("bancodedados").Select linha = 2 texto = Cells(linha, 3) linha1 = 2 texto1 = Cells(linha1, 13) Let NavigatorAddress = "C:\Program Files\Google\Chrome\Application\chrome.exe" 'Set GC = CreateObject("InternetExplorer.Application") Let WebUrl = " " Shell (NavigatorAddress & " -url " & WebUrl) Do Until Sheets("bancodedados").Cells(linha, 3) = "" 'Application.Wait (Now + TimeValue("00:00:01")) Cells(linha, 3).Copy Application.Wait (Now + TimeValue("00:00:03")) Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("{HOME}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("{del}", True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("~", True) Application.Wait (Now + TimeValue("00:00:20")) 'Application.SendKeys ("%{TAB}") Call SendKeys("~", True) 'Cells(linha1, 13).Copy 'Call SendKeys("^{C}", True) 'Application.Wait (Now + TimeValue("00:00:01")) 'Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL 'Call SendKeys("~", True) ' Call SendKeys("~", True) 'entra na tela do contato no WhatsApp 'Call SendKeys("%{F4}", True) 'Application.Wait (Now + TimeValue("00:00:01")) 'Call SendKeys("~", True) ' Application.Wait (Now + #10:51:00 AM#) '---- HORA PARA FECHAR A PLANILHA linha = linha + 1 Loop End Sub

@wagner2029 eu preciso armazenar e compartilhar arquivos com quase 10gb, por isso que estou usando o gdrive

@ricardo_br é só atualizar, mas preciso que isso seja tipo de 5 em 5 minutos. É porque o arquivo é colocado por um programa no servidor 1 nessa drive do gdrive, porém no servidor 2 eu crio esses drivers com rclone, mas o arquivo não aparece automático, aí eu tenho que ficar atualizando com F5 esses drivers do servidor 2 pra que eles apareçam. Queria algo que atualizasse automático pra não ficar fazendo manual @wagner2029 eu isso o gdrive pela capacidade de armazenamento.

Pessoal, alguém pode me ajudar. Eu tenho uma pasta compartilhada do Google Drive e queria que toda vez que um servidor que eu tenho salve um arquivo nela, um outro servidor que compartilha da mesma pasta visualizasse. Só consigo visualizar se eu for na pasta e apertar F 5. Será que alguém pode me ajudar com um bat pra fazer isso automatizado? Obrigado

@Math.Pi valeu

@ricardo_br sim, porém coloquei o loop para ela ficar sempre monitorando a pasta, para não ter que ficar sempre clicando na bat, mas não deu.

Alguem conhece algum programa Free para corrigir ou isolar bads de HD???

@ricardo_br sabe como eu faço para ficar a tela desse jeito? porque assim que clico ela faz a ação e some.

@ricardo_br obrigado vou testar.

@ricardo_br eu não to conseguindo editar o arquivo pros locais certo, estou fazendo algo de errado, pode me ajudar? O arquivo vai ficar na pasta D:\Source e vai procurar as pastas vazias F:\Recebido1, F:\Recebido2, F:\Recebido3, F:\Recebido4, F:\Recebido5, F:\Recebido6, F:\Recebido7

@ricardo_br É sim, obrigada, vou testar ....

Boa tarde! eu quero mover, nessas pastas um programa fica procurando o arquivo TXT que eu preciso para importar no sistema. @ricardo_br o sistema vai importar um arquivo .txt, porém se tiver mais de 1 por pasta ele da erro. ai preciso que ele olha qual está vazia para salvar o arquivo

Obrigado, mas não encontrei nada relacionado a que estou precisando.

Pessoal, alguém pode me ajudar? preciso de um .bat ou algo similar que vai procurar 7 pastas no c:\ diferentes qual está vazia e salvar um arquivo de outro HD neles. E: c:\Pasta1\ c:\Pasta2\ c:\Pasta3\ c:\Pasta4\ c:\Pasta5\ c:\Pasta6\ c:\Pasta7\ o arquivo da pasta D:\server1\ (extensao .txt) vai olhar qual destas 7 pastas está vazia e salvar o arquivo lá