Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade
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.