Does Anyone Out there use the IBM as400 system?

[brettvba]

Do you have the code for direct transfer from the as400 to a spread sheet I have to use a data transfer program at the mo.?

[Jack in the UK]

Hi --

This links in with yesterdays lotus questions, comapanys i have worked in go lotus notes and AS400

If your Excel then go ODBC that MS Query and should be live linked...

Let me know if you need VAB Script ill email or post you it i wrote it to get adged debtors live data.

Work a treat..

HTH
Rdgs
==========
JAck

[brettvba]

A Post Would Be Great Thanks JAck

[Jack in the UK]

Hi --

Sure i send loads of stuff, need email thou i use a pals at work, i must get email at home - so i could send now.. i have wonderful codes... all i have championed.

Rdgs
==========
Jack


Hang on.... i have a doggy floppy somewhere for years back... poss lucky

you in luck this is Unix download ODBC i wrote 2 yeas back, updated no all i have at home

>>>>>>
'Sheets("3 Oct 2000 11~49~27").Select
'Sheets("3 Oct 2000 11~49~27").Move Before:=Sheets(7)

Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Kopen3 Live;UID=JACK;;SERVER=ufsvr20;DBNAME=KO3LIVE;LUID=JACK;", _
Destination:=Range("A1"))
.Sql = Array( _
"SELECT ""Sales Ledger Transactions Co 01"".""Customer Code"", ""Sales Ledger Transactions Co 01"".""Invoice Number"", ""Sales Ledger Transactions Co 01"".""Invoice Date"", ""Sales Ledger Transactions Co 01"".""Invoi" _
, _
"ce Value (Curr)"", ""Sales Ledger Transactions Co 01"".Status" & Chr(13) & "" & Chr(10) & "FROM ""Sales Ledger Transactions Co 01"" ""Sales Ledger Transactions Co 01""" & Chr(13) & "" & Chr(10) & "WHERE (""Sales Ledger Transactions Co 01"".""Invoice Value (Curr)""<>0" _
, _
") AND (""Sales Ledger Transactions Co 01"".Status<>'P')" & Chr(13) & "" & Chr(10) & "ORDER BY ""Sales Ledger Transactions Co 01"".""Customer Code"", ""Sales Ledger Transactions Co 01"".""Invoice Date""" _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
Columns("D:D").Select
Selection.Style = "Currency"
Range("A1").Select

add into module assign button etc.... might need to edit a bit thou :


or this is AS400 which has decided the floppy is knackered ermmm... i have at work as400 copy email address abnd ill send
>>>>>>>

[brettvba]

bpalliser@foodstuffs-si.co.nz

[brettvba]

jack did you find that code in the end??