Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade
Script:
' Cria um objeto Excel
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
' Torna o Excel visível
objExcel.Visible = True
' Adiciona uma nova pasta de trabalho
Dim objWorkbook
Set objWorkbook = objExcel.Workbooks.Add()
' Conecta ao IBM Personal Communications
Dim objSession
Set objSession = CreateObject("PCOMM.autECLSession")
' Inicia a sessão
objSession.SetConnectionByName(ThisSessionName)
' Aguarda a tela estar pronta
objSession.autECLOIA.WaitForInputReady
' Captura os dados da tela ativa
Dim screenData
screenData = objSession.autECLPS.GetText(1, 1, 24, 80) ' Ajuste as coordenadas conforme necessário
' Divide os dados em linhas
Dim lines
lines = Split(screenData, vbCrLf)
' Insere os dados na planilha Excel
Dim i
For i = LBound(lines) To UBound(lines)
objWorkbook.Sheets(1).Cells(i + 1, 1).Value = lines(i)
Next
' Salva a pasta de trabalho
objWorkbook.SaveAs "C:\Caminho\Para\Seu\Arquivo.xlsx"
' Fecha o Excel
objExcel.Quit
' Limpa os objetos
Set objWorkbook = Nothing
Set objExcel = Nothing
Set objSession = Nothing
MsgBox "Dados copiados com sucesso para o Excel!"
Como Executar o Script:
1. Abra o Bloco de Notas no Windows.
2. Copie e cole o código acima no Bloco de Notas.
3. Salve o arquivo com a extensão .vbs
, por exemplo, copiar_dados.vbs
.
4. Certifique-se de que o IBM Personal Communications e o Excel estejam instalados e configurados corretamente no seu computador.
5. Execute o script clicando duas vezes no arquivo .vbs
que você salvou.
6. Verifique se os dados foram copiados corretamente para a planilha do Excel no caminho especificado no script.