Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade
Script:
' Script VBS para abrir um programa, copiar dados e colar no Excel
Dim objShell, objExcel, objWorkbook, objWorksheet
Dim strProgramPath, strData
' Caminho do programa que você deseja abrir
strProgramPath = "C:\Caminho\Para\Seu\Programa.exe"
' Cria um objeto Shell para interagir com o sistema
Set objShell = CreateObject("WScript.Shell")
' Abre o programa
objShell.Run strProgramPath
' Aguarda alguns segundos para o programa abrir
WScript.Sleep 5000
' Copia os dados da tela do programa (simulando Ctrl+C)
objShell.SendKeys "^c"
' Aguarda para garantir que os dados sejam copiados
WScript.Sleep 2000
' Cria um novo aplicativo Excel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
' Adiciona uma nova pasta de trabalho
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
' Cola os dados copiados na primeira célula da planilha
objWorksheet.Cells(1, 1).Select
objWorksheet.Paste
' Libera os objetos
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Set objShell = 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. Salve o arquivo com a extensão .vbs
, por exemplo, CopiarDados.vbs
.
4. Certifique-se de substituir "C:\Caminho\Para\Seu\Programa.exe"
pelo caminho correto do programa que você deseja abrir.
5. Dê um duplo clique no arquivo .vbs
para executá-lo.
6. O script abrirá o programa especificado, copiará os dados da tela e os colará em uma nova planilha do Excel.