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 Copiar Dados do IBM Emulador 3270 para Excel

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.


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.