Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade

Script para Abrir um Programa, Copiar Dados da Tela e Colar no Excel

Script:


' Defina o caminho do aplicativo que deseja abrir
Dim appPath
appPath = "C:\Caminho\Para\Seu\Programa.exe"

' Crie um objeto Shell
Set shell = CreateObject("WScript.Shell")

' Abra o aplicativo
shell.Run Chr(34) & appPath & Chr(34)

' Aguarde alguns segundos para garantir que o aplicativo esteja totalmente carregado
WScript.Sleep 5000

' Copie o conteúdo da tela ativa (Pressiona Ctrl+C)
shell.SendKeys "^c"

' Aguarde um momento para garantir que a cópia foi concluída
WScript.Sleep 1000

' Abra o Excel
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True

' Adicione uma nova pasta de trabalho
Set workbook = excelApp.Workbooks.Add

' Selecione a primeira planilha
Set worksheet = workbook.Worksheets(1)

' Cole os dados na célula A1 (Pressiona Ctrl+V)
worksheet.Cells(1, 1).Select
shell.SendKeys "^v"

' Salve o arquivo Excel
workbook.SaveAs "C:\Caminho\Para\Salvar\Dados.xlsx"

' Limpe os objetos
Set worksheet = Nothing
Set workbook = Nothing
Set excelApp = Nothing
Set shell = Nothing

Como Executar o Script:


1. Abra o Bloco de Notas no Windows.
2. Copie e cole o código do script acima no Bloco de Notas.
3. Substitua "C:\Caminho\Para\Seu\Programa.exe" pelo caminho do programa que deseja abrir.
4. Substitua "C:\Caminho\Para\Salvar\Dados.xlsx" pelo caminho onde deseja salvar o arquivo Excel.
5. Salve o arquivo com a extensão .vbs, por exemplo, meuScript.vbs.
6. Clique duas vezes no arquivo salvo para executá-lo.
7. O script abrirá o programa especificado, copiará os dados da tela e os colará em um novo arquivo Excel.


To share Download PDF

Gostou do artigo? Deixe sua avaliação!
Sua opinião é muito importante para nós. Clique em um dos botões abaixo para nos dizer o que achou deste conteúdo.