Does Anyone Out there use the IBM as400 system?

brettvba

MrExcel MVP
Joined
Feb 18, 2002
Messages
1,030
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.?
 

Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
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
 
Upvote 0
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
>>>>>>>
 
Upvote 0

Forum statistics

Threads
1,213,534
Messages
6,114,184
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top