Hi,
I'm trying to change the header of execl file trow asp, and nothing appen, can someane take a look of this code to see what is wrong.
Thanks,
Albano
Code:
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFile = fso.CreateTextFile(nFich, True)
NewFile.WriteLine("<html xmlns:x=""urn:schemas-microsoft-comffice:excel"">")
NewFile.WriteLine("<head>")
NewFile.WriteLine("<tr><td align='center'>" & imgCabecalho & "</td></tr>")
NewFile.WriteLine("<!--[if gte mso 9]><xml>")
NewFile.WriteLine("<x:ExcelWorkbook>")
NewFile.WriteLine("<x:ExcelWorksheets>")
NewFile.WriteLine("<x:ExcelWorksheet>")
NewFile.WriteLine("<x:Name>TDB Operacional semanal</x:Name>")
NewFile.WriteLine("<x:WorksheetOptions>")
NewFile.WriteLine("<xageSetup>")
NewFile.WriteLine("<x:Header>hello</x:Header>")
NewFile.WriteLine("</xageSetup>")
NewFile.WriteLine("<xrint>")
NewFile.WriteLine("<x:ValidPrinterInfo/>")
NewFile.WriteLine("</xrint>")
NewFile.WriteLine("</x:WorksheetOptions>")
NewFile.WriteLine("</x:ExcelWorksheet>")
NewFile.WriteLine("</x:ExcelWorksheets>")
NewFile.WriteLine("</x:ExcelWorkbook>")
NewFile.WriteLine("</xml>")
NewFile.WriteLine("<![endif]-->")
NewFile.WriteLine("</head>")
I'm trying to change the header of execl file trow asp, and nothing appen, can someane take a look of this code to see what is wrong.
Thanks,
Albano
Code:
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFile = fso.CreateTextFile(nFich, True)
NewFile.WriteLine("<html xmlns:x=""urn:schemas-microsoft-comffice:excel"">")
NewFile.WriteLine("<head>")
NewFile.WriteLine("<tr><td align='center'>" & imgCabecalho & "</td></tr>")
NewFile.WriteLine("<!--[if gte mso 9]><xml>")
NewFile.WriteLine("<x:ExcelWorkbook>")
NewFile.WriteLine("<x:ExcelWorksheets>")
NewFile.WriteLine("<x:ExcelWorksheet>")
NewFile.WriteLine("<x:Name>TDB Operacional semanal</x:Name>")
NewFile.WriteLine("<x:WorksheetOptions>")
NewFile.WriteLine("<xageSetup>")
NewFile.WriteLine("<x:Header>hello</x:Header>")
NewFile.WriteLine("</xageSetup>")
NewFile.WriteLine("<xrint>")
NewFile.WriteLine("<x:ValidPrinterInfo/>")
NewFile.WriteLine("</xrint>")
NewFile.WriteLine("</x:WorksheetOptions>")
NewFile.WriteLine("</x:ExcelWorksheet>")
NewFile.WriteLine("</x:ExcelWorksheets>")
NewFile.WriteLine("</x:ExcelWorkbook>")
NewFile.WriteLine("</xml>")
NewFile.WriteLine("<![endif]-->")
NewFile.WriteLine("</head>")