Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 6 of 6

Thread: Does Anyone Out there use the IBM as400 system?

  1. #1
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.?

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    A Post Would Be Great Thanks JAck

  4. #4
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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
    >>>>>>>

  5. #5
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

  6. #6
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    jack did you find that code in the end??

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •