Excellent, glad you got it worked out. Hopefully I helped to remove the jam
in the cogs and got the wheels spinning again. I see from your code, you are
far more advanced than I. It seems I may still be coding in QBasic mode,
lol. I just started trying to reprogram myself by readings these threads. I
noticed your thread had been sitting there for a while, so I wanted to throw
something out there, if for no other reason, to bring your thread back
alive. I guess it worked. My code abilities are still in the stoneage. I
still uses "Select", can you imagine that, lol. Good luck in all your
ventures.
Alan
"The only dumb question is a question left unasked."
"Have you made someone smile today?"
"mr_bill" wrote in message
...
What I did was had the program that produces the CSV also write out a text
file with the path and CSV file name. I created an auto execute macro in
the
template that has all the header data to read the TXT file and then import
the CSV file.
Private Sub Workbook_Open()
Dim ConnString As String
Open "location of file\qryfile.txt" For Input As #1
Line Input #1, ConnString
Close #1
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ConnString _
, Destination:=Range("A3"))
.Name = "Rpt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1,
1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
"NickHK" wrote:
If the file name is variable and the user does not know what it is, then
one
way would be to use Application level Events (see
http://www.cpearson.com/excel/AppEvent.htm), to check in the
App_WorkbookOpen event if the file is a CSV. If there are no identifying
structure/data you can use, ask the user "Is this the AS400 export file
?".
If yes, insert a row at A:A and enter your header and formatting etc.
NickHK
"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?