Thanks a lot. The aid was very good.

Manoel Fernandes (I´m from Brasil)

Thank you for your response.
I assume you mean sending data from an AS/400 client access emulator (like IBM Personal Communications) to an Excel spreadsheet, using a macro.
I also assume you know some basic VBScript to write macro’s. If not, check out http://www.w3schools.com/vbscript/default.asp.

To send data from an AS/400 terminal screen to an Excel sheet, you basically need to use only two functions from that template macro:

1
2
3
4
5

Function GetText(ByVal row, ByVal column, ByVal length)
	autECLSession.autECLOIA.WaitForAppAvailable
	autECLSession.autECLOIA.WaitForInputReady
	GetText = Trim(autECLSession.autECLPS.GetText(row, column, length))
End Function

and

1
2
3

Function SetCellData(ByVal row, ByVal column, ByVal cellValue)
	ObjWorksheet.Cells(row, column).Value = cellValue
End Function

E.g. if you want to send the text from 10/20 to 10/30 in the AS/400 emulator to cell D2 (= row 2, column 4) in your Excel sheet, you could add the following code to the “Main” subroutine (if your macro has the same layout as my template):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

' ... [ your code ] ...
Sub Main()
 
	' ... [ your code ] ...
	If IsCorrectSheet() Then	
 
		' ... [ your code ] ...

		var lineText = GetText(10, 20, 10)
		SetCellData 2, 4, lineText
 
		' or simply:
		' SetCellData 2, 4, GetText(10, 20, 10)
		' should work too.

		' ... [ more code ] ... 
	
	Else
		Msgbox "Excel sheet doesn't have a valid format."
	End If
 
	' Save the workbook.
	ObjExcelAppl.ActiveWorkbook.Save
	ObjExcelAppl.DisplayAlerts = True
 
End sub
' ... [ your code ] ...

That’s all actually. Just make sure the objects “ObjExcelAppl”, “ObjWorkbook” and “ObjWorksheet” are set, but if you copy-paste my template and customize it to your needs, that shouldn’t be a problem.

Best regards,

Laurens

I saw your post about AS/400. They send data to AS/400. I´d like to know how to send data in AS/400 to spreadsheet EXCEL.

Thanks.