Finally got it! However, my programming is not accomplishing what I need. It
is outputing:
%!,XGF,9999 SETBUFSIZE,"(,) SETDBSEP",QSTRIP_on,(GuntherIPEP.jdt)
SETJDT,(IPEP.dbm)
STARTDBM,EMPLOYER,EE_STATE,EE_ZIP,APP_STATE,GENERI C_KIT_COUNT,START_DATE,END_DATE,PIN_CODE,CEO_LETTE R_OPTION,CEO_LETTER_FROM,CEO_LETTER_TITLE,CEO_LETT ER_DATE,HOW_LETTER_OPTION,HOW_LETTER_DATE,HOW_LETT ER_FROM,HOW_LETTER_TITLE,HOW_LETTER_DEPT,ENROLLMEN T_OPTION,GROUP_MEETINGS_WILL_BE,BENEFIT_COUNSELORS _WILL_BE,WILL_BE_DISTRIBUTED,CALL_CENTER_ENROLL_TE LEPHONE_NUMBER,SELF_SERVE_START_DATE,SELF_SERVE_EN D_DATE,ACCIDENT,CANCER,CI,ISWL,LTC,MEDSUPPORT,STD, TERM_LIFE,VIUL,GROUP_LTC,GROUP_LTD,GROUP_STD,GROUP _TERM_LIFE,WEB_ADDRESS,OTHER1,OTHER2,OTHER3,OTHER4 ,OTHER5
HEADER TESTING,,,,,,,,,,,,,,,,,,,Y,,,,,A,,,,,,,,,,,,,,,,, ,,,,,,,HEADER
TESTING,39024.68396

I need:
%!
XGF,9999 SETBUFSIZE
(,) SETDBSEP",QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM
EMPLOYER,EE_STATE,EE_ZIP,APP_STATE,GENERIC_KIT_COU NT,START_DATE,END_DATE,PIN_CODE,CEO_LETTER_OPTION, CEO_LETTER_FROM,CEO_LETTER_TITLE,CEO_LETTER_DATE,H OW_LETTER_OPTION,HOW_LETTER_DATE,HOW_LETTER_FROM,H OW_LETTER_TITLE,HOW_LETTER_DEPT,ENROLLMENT_OPTION, GROUP_MEETINGS_WILL_BE,BENEFIT_COUNSELORS_WILL_BE, WILL_BE_DISTRIBUTED,CALL_CENTER_ENROLL_TELEPHONE_N UMBER,SELF_SERVE_START_DATE,SELF_SERVE_END_DATE,AC CIDENT,CANCER,CI,ISWL,LTC,MEDSUPPORT,STD,TERM_LIFE ,VIUL,GROUP_LTC,GROUP_LTD,GROUP_STD,GROUP_TERM_LIF E,WEB_ADDRESS,OTHER1,OTHER2,OTHER3,OTHER4,OTHER5
HEADER TESTING,,,,,,,,,,,,,,,,,,,Y,,,,,A,,,,,,,,,,,,,,,,, ,,,,,,,HEADER
TESTING,39024.68396

My programming is:
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim WholeLine As String
Dim FName As String

Application.ScreenUpdating = False

ColNdx = Range("A1").Column
RowNdx = Range("A1").Row
FName = "I:\06vs-EC Standard Kit Request Form\5 Daniel Huffine\Final Fully
Automated\Test new directions\CSV Header testing\FName.txt"
Open FName For Input Access Read As #1

While Not EOF(1)
Line Input #1, WholeLine
Cells(RowNdx, ColNdx).Value = WholeLine
ColNdx = ColNdx + 1

Wend
Close #1

Is their something I am doing wrong?


"Tom Ogilvy" wrote:

I just copied this from the navigation window while viewing the cited page:

http://www.cpearson.com/excel/imptext.htm

--
Regards,
Tom Ogilvy


"Help?" wrote:

This is coming up as Page not found.

"Tom Ogilvy" wrote:

write the file yourself.

here is some starter code:

http://www.cpearson.com/excel/imptext.htm import/export text files

--
Regards,
Tom Ogilvy


"Help?" wrote:

I have an excel program that converts excel files to csv files automatically
using VBA Macros. However, I am wanting to add csv print header information
example:
%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM

The issue is that it must insert after csv conversion and not register as an
excel record. Is there VBA macros that will accomplish this for me? If so,
what would it be?