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 e Copiar Dados para o Excel

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.


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.