VBA Wrq Reflection IBM3270

[el_jm]

Hello, I am using a loop to copy/ paste data from 0190.csv file (A column) to client (field 3, 30) in order to get
an internal reference appearing afterwards in client 3, 14 field.

My aim is to copy-paste data from client field 3, 14 to a new excel file.
I am able to move my cursor to that field (3, 14) but
do not how to collect (coy paste?) this data to a new excel file, ideally placed in the same Directory
"H:\Spain\Data_Collected.xls"
Here's my code fisrt lines...
If someone has an idea & an explanation on how to do this, I would be very interested.
Thanks,



Sub GET_DATA()
'
Dim Title, Default, fileloc, strLine, arrValues, fso, inputFileStream
Dim line As String
With Session
fileloc = "H:\Spain\0190.csv" ' Set default
Const conStrSeparator = ";"
Set fso = CreateObject("Scripting.FileSystemObject")
Set inputFileStream = fspenTextFile("H:\Spain\0190.csv", 1, False, 0)
Do Until inputFileStream.AtEndOfStream
strLine = inputFileStream.ReadLine
arrValues = Split(strLine, conStrSeparator)
.WaitForEvent rcKbdEnabled, "0", "1", 3, 58
.MoveCursor 3, 30 'campo REF de PODHIS
.TransmitTerminalKey rcIBMEraseEOFKey
.TransmitANSI arrValues(0)
.TransmitTerminalKey rcIBMPf1Key
.WaitForEvent rcKbdEnabled, "0", "1", 58, 8
.MoveCursor 3, 14 'CAMPO A COPIAR

 

[RickXL]

Hi,

Do you want to save the whole .csv file as an Excel file or just part of it.

I assume Excel will be installed on the appropriate server?

If so there are ways to open and control Excel from VBScript. If you want to save the whole .csv file then it might be easiest to just open the .csv file with Excel and save it to another file. If you only need part of the .csv file then one plan would be to read the records as you are doing and deciding which ones to save before copying into Excel.

 

[el_jm]

Hi,

Do you want to save the whole .csv file as an Excel file or just part of it.

I assume Excel will be installed on the appropriate server?

If so there are ways to open and control Excel from VBScript. If you want to save the whole .csv file then it might be easiest to just open the .csv file with Excel and save it to another file. If you only need part of the .csv file then one plan would be to read the records as you are doing and deciding which ones to save before copying into Excel.

Hi, Yes excel is available on the server.
Actually I am looking for a script that generates a simple vertical list of data stored on "3, 14" field ... which is the point where I stopped my code (and do this till end of my .csv list).
I do not know if my explanations are clear enough.

 

[RickXL]

Hi,

Here is a simple script that will open Excel, write some data to a cell, save the workbook then close Excel.

' Set Excel FileName
strFileName    = H:\Spain\0190.xlsx"

' Create Excel Objects
set objXL     = WScript.CreateObject("Excel.Application")

' Show Excel
objXL.Visible = TRUE      

' Add a new workbook
Set objWorkbook = objXL.Workbooks.Add

' Write to a cell (Row, Col)
objXL.Cells(1, 1).Value = "Test value"

' Save the workbook
objWorkbook.SaveAs(strFileName)

' Quit Excel
objXL.quit

' Tidy Up
Set objXL = nothing

You should probably be able to work that into your script now.

EDIT: Nearly forgot - here is a link to some VBScripts that control Excel: Microsoft Excel VBScript Script samples