Create excel file using Cfspreadsheet

<cfsetting showdebugoutput="false">
<cfsetting requesttimeout="3600">
<cfquery name="GetUsers" datasource="TestDB">
SELECT * FROM shema_users
</cfquery>
<cfset q= queryNew("UserName,EmailID,Password,UserType,Status")>
<cfset filename = expandPath("ExcelFile.xls")>
<!--- Make a spreadsheet object --->
<cfset s = spreadsheetNew()>
<!---Start: Add Title For File if you Need--->
<cfset spreadsheetAddRow(s,"User Details")>
<!---SpreadsheetMergeCells(spreadsheetObj, startRow, endRow, startColumn, endColumn)--->
<cfset SpreadsheetMergeCells(s,1,1,1,5) />
<cfset formatCellRowTitle = StructNew()>
<cfset formatCellRowTitle.fontsize = 18>
<cfset formatCellRowTitle.fgcolor = "lemon_chiffon">
<cfset formatCellRowTitle.bold = true>
<cfset formatCellRowTitle.bottomborder = "thin">
<cfset formatCellRowTitle.indent = 1>
<cfset formatCellRowTitle.alignment = "center">
<cfloop from="1" to="5" index="i">
<!---SpreadsheetFormatCell(spreadsheetObj, format, row, column)--->
<Cfset SpreadsheetFormatCell(s,formatCellRowTitle,1,#i#)/>
</cfloop>
<!---End: Add Title For File if you Need--->
<!--- Start: Add header row --->
<cfset spreadsheetAddRow(s,"UserName,EmailID,Password,UserType,Status")>
<!--- format header --->
<!---SpreadsheetFormatRow(spreadsheetObj, format, row)--->
<cfset spreadsheetFormatRow(s,
{
bold=true,
fgcolor="grey_25_percent",
fontsize=11,
bottomborder="thick"
},2)>
<!---End: Add header row --->
<cfloop query="GetUsers">
<cfif UserTypeID EQ 1>
<cfset UserType="Admin">
<cfelseif UserTypeID EQ 2>
<cfset UserType="Manager">
<cfelseif UserTypeID EQ 3>
<cfset UserType="Operator">
</cfif>
<cfif Active EQ 1>
<cfset Status="Active">
<cfelse>
<cfset Status="InActive">
</cfif>
<cfset queryAddRow(q)>
<cfset querySetCell(q, "UserName", "#UserName#")>
<cfset querySetCell(q, "EmailID", "#EmailID#")>
<cfset querySetCell(q, "Password", "#Password#")>
<cfset querySetCell(q, "UserType", "#UserType#")>
<cfset querySetCell(q, "Status", "#Status#")>
</cfloop>
<cfset spreadsheetAddRows(s, q)>
<cfset spreadsheetWrite(s, filename, true)>
Your spreadsheet is ready. You may download it <a href="ExcelFile.xls">here</a>.

Comments

Popular posts from this blog

Create CSV file in Coldfusion Using CFFile

Login with facebook using coldfusion

Get Previous One Day Data in Sql Server