Importing AS400 Reports and Appending Header Data

  • Hey All,


    I am importing text reports from an AS400 into excel.


    I have the import code down and have cleaned up the data so only relevant things remain.


    I am not that great with VBA and am stuck on appending the header detail to the individual records.


    Attached is what I have thus far in EU_IPI_FILE.xlsm
    Source Report is PRT014G5511212.txt


    the Only_Relevant_Data tab is where I am currently at.
    the append tab is what I need to get to.


    ozgrid.com/forum/core/index.php?attachment/44188/ozgrid.com/forum/core/index.php?attachment/44189/


    Any help is much appreciated.


    Thank you,
    Donald

  • Re: Importing AS400 Reports and Appending Header Data


    Attached is what I wound up doing if anyone is interested.


    It takes a very long time to run so i'm sure my coding isn't very efficient.
    ozgrid.com/forum/core/index.php?attachment/44282/


  • Re: Importing AS400 Reports and Appending Header Data


    Hi Donald


    It looks like you could use a filter rather than loop through each cell in the range.