I'm trying to transfer data from the AS/400 to a Excel workbook. But I'm still getting a error.
[VBA]
Sub Transfer_File()
Dim rst As ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from B400.DEVIN100"
Set rst = New ADODB.Recordset
' xxx = your as/400 ip address
rst.Open strSQL, "Provider=IBMDA400;Data Source=204.254.X.XXX;"
Range("A2").CopyFromRecordset rst
End Sub
[/VBA]
I'm getting a error along this line:
[VBA]
rst.Open strSQL, "Provider=IBMDA400;Data Source=204.254.X.XXX;"
[/VBA]
I installed the Visual Basic reference:
Microsoft ActiveX Data Objects 2.7 Library.
Am I missing something?