My company runs the AS400 also. They always had issues with exports to any
usefull file type. 4 years they hired a
VB programmer to write their own
program and took our equipment off the AS400. Of course, the financial and
order fullfillment aspects of the business still ride on the back of the
AS400. We have one full time AS400 guy who seems to have about 3 hairs left.
Does each user generate their own reports? At time of report generation,
does it open an instance of Excel immediately? Both of the prior questions
are examples of my company's method of madness when using the AS400 for
equipment reports. No way the exporting program can open a template instead
of a default workbook?
"mr_bill" wrote in message
...
I have written a query on an AS400 that produces an output file. The
output
file name is variable (usually the terminal that is logged on). Then
there
is a program that copies the data from the output file and writes it to a
CSV. This program strips off the headers, and if I try to make the first
line of the file a header file, I have issues with the data types. The
CSV
is the copied to the IFS portion of the AS400 which is like a Windows Data
share. I can map network drive to the share, etc, so the data is
available
to users that have authority.
The program then launches the STRPCCMD (an AS400 command to start a
program
on the PC that envoked it) that opens the CSV. Since Excel is the program
that is set to open the CSV, the data is then displayed in Excel. The
users
want to have the data in Excel, so that is good, the only problem is that
there are no headers and no formating to the data.
I was wanting to create a Macro in the template that would open
automatically when launced and would import the CSV data. The name of the
CSV file is variable, and the user won't know what it is to select it from
a
list, so it needs to happen without user interaction. I was working on
trying to get the macro to import the CSV based upon a TXT file that has
the
path and file name.
"Alan" wrote:
Might I ask, what program is creating the CSV file?
You could set up a template with the header already in it, or the code to
add the headers can be included in the macro.
Yes, you can open a text file and use the value, (CSV source file
directory), with a macro
Workbooks.OpenText Filename:= _
"YourDirectorPath&\YourFileLocater.txt", Origin:=437 _
, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), _
TrailingMinusNumbers:=True
The path will be in A1. Setting a path variable, this can be used to open
the CSV file then closing the text file:
Dim csvPath As String
csvPath = Range("A1").Value
ActiveWorkbook.Close False
Opens the CSV file.
Workbooks.Open Filename:= csvPath
The text file has to have the exact path & filename included.
The rest is a matter of copying the data into the template or just adding
a
header. Not difficult.
Alan
"The only dumb question is a question left unasked."
"mr_bill" wrote:
It would be difficult to get the program to put headers on, there are
date
and numeric fields and the headers would be text.
Would it be possible to create a template that would auto import the
csv? I
could have the full path and file name written to a text file that
could be
read by a macro to import the csv file.
"Alan" wrote:
mr_bill,
I would look into the "program that produces a CSV file" first to see
if
there are any header options.
If not, since the program opens an instance of Excel, you could not
automatically format it unless you have Excel to perform this on
start up,
which would affect every file you open.
You could write a macro, and make it available on an Excel toolbar,
that you
could click on when the file opens. This macro could set the headers
for you.
The only drawback to this is if you have an instance of Excel open at
the
time the CSV instance opens, it will error on trying to open the
Personal.xls
file for a second time.
Just some thoughts,
Alan
"The only dumb question is a question left unasked."
"mr_bill" wrote:
I have a program that produces a CSV file without headers. When
the program
finishes creating the file, it launches excel and opens the CSV.
Is there a
way that I can have headers added to the file?