Export a excel file with headers

Hi all,

Here is my code.....

alter procedure proc_generate_excel_with_columns
(
	@db_name	varchar(100),
	@table_name	varchar(100),	
	@file_name	varchar(100),
	@Exelname varchar(100)
)
as
--Generate column names as a recordset
declare @columns varchar(8000), @sql varchar(8000), @data_file varchar(100)
select 
	@columns=coalesce(@columns+',','')+column_name+' as '+column_name
from 
  INFORMATION_SCHEMA.COLUMNS
where 
	table_name=N'TPInvoiceExport'
select @columns=''''''+replace(replace(@columns,' as ',''''' as '),',',',''''')

--Create a dummy file to have actual data
select @data_file=substring(@file_name,1,len(@file_name)-charindex('\',reverse(@file_name)))+'\'+@Exelname+'.xlx'

--Generate column names in the passed EXCEL file
set @sql='exec xp_cmdshell ''bcp " select * from (select '+@columns+') as t" queryout "'+@file_name+'" -T -c'''
exec(@sql)

--Generate data in the file
set @sql='exec xp_cmdshell''bcp "select * from '+@db_name+'.'+@table_name+'" queryout "'+@data_file+'" -T -c'''
exec(@sql)

The data exports fine but i just can't seem to get the headers to export! any ideas on what i am doing wrong?

Thank you in advance.