<?xml version="1.0" encoding="utf-8" ?>
<?xml-stylesheet type="text/xsl" href="RSS_xslt_style.asp" version="1.0" ?>
<rss version="2.0" xmlns:WebWizForums="https://syndication.webwiz.net/rss_namespace/">
 <channel>
  <title>Codejock Developer Community : Exporting Report to XLS,XLST</title>
  <link>http://forum.codejock.com/</link>
  <description><![CDATA[This is an XML content feed of; Codejock Developer Community : Report Control : Exporting Report to XLS,XLST]]></description>
  <copyright>Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved.</copyright>
  <pubDate>Wed, 13 May 2026 18:58:58 +0000</pubDate>
  <lastBuildDate>Thu, 09 Sep 2010 09:41:30 +0000</lastBuildDate>
  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  <generator>Web Wiz Forums 12.04</generator>
  <ttl>360</ttl>
  <WebWizForums:feedURL>forum.codejock.com/RSS_post_feed.asp?TID=17218</WebWizForums:feedURL>
  <image>
   <title><![CDATA[Codejock Developer Community]]></title>
   <url>http://forum.codejock.com/forum_images/codejock-logo.gif</url>
   <link>http://forum.codejock.com/</link>
  </image>
  <item>
   <title><![CDATA[Exporting Report to XLS,XLST : Hi;take a look at XLSGEN: http://xlsgen.arstdesign.com/ ...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60110&amp;title=exporting-report-to-xlsxlst#60110</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=109">mgampi</a><br /><strong>Subject:</strong> 17218<br /><strong>Posted:</strong> 09 September 2010 at 9:41am<br /><br />Hi;<br><br>take a look at XLSGEN: http://xlsgen.arstdesign.com/<br>]]>
   </description>
   <pubDate>Thu, 09 Sep 2010 09:41:30 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60110&amp;title=exporting-report-to-xlsxlst#60110</guid>
  </item> 
  <item>
   <title><![CDATA[Exporting Report to XLS,XLST : Hi Shan Thank you for the code...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60107&amp;title=exporting-report-to-xlsxlst#60107</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=6112">checksandy</a><br /><strong>Subject:</strong> 17218<br /><strong>Posted:</strong> 09 September 2010 at 4:51am<br /><br />Hi Shan<DIV>Thank you for the code snippet. But this code will only work in PCs which have Excel already installed. I was looking for some internal function which can directly write a XLS/XLST file or for that matter a PDF file, Basically an export feature.</DIV><DIV>Sandy</DIV>]]>
   </description>
   <pubDate>Thu, 09 Sep 2010 04:51:33 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60107&amp;title=exporting-report-to-xlsxlst#60107</guid>
  </item> 
  <item>
   <title><![CDATA[Exporting Report to XLS,XLST : Hi Sandy, You can Export Report...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60098&amp;title=exporting-report-to-xlsxlst#60098</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=6244">SHAN</a><br /><strong>Subject:</strong> 17218<br /><strong>Posted:</strong> 08 September 2010 at 11:04pm<br /><br /><P>Hi Sandy,</P><DIV>&nbsp;&nbsp;&nbsp;You can Export Report Control Data to Excel Using this Code...!</DIV><DIV>&nbsp;</DIV><DIV>&nbsp;</DIV><DIV>&nbsp;&nbsp; <DIV>Public Sub ReportControlToExcel(Rptcontrol As ReportControl)</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim xlObject&nbsp;&nbsp;&nbsp; As Excel.Application<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim xlWB&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As Excel.Workbook<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set xlObject = New Excel.Application<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'This Adds a new woorkbook, you could open the workbook from file also<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set xlWB = xlObject.Workbooks.Add<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Clipboard.Clear 'Clear the Clipboard</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Add Column Headers<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To Rptcontrol.Columns.count<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Cells(1, i).Value = _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "" &amp; Rptcontrol.Columns.Column(i - 1).Caption<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Select All Records<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To Rptcontrol.Rows.count - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rptcontrol.Rows(i).Selected = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Copy Records to ClipBoard<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rptcontrol.Copy<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With xlObject.ActiveWorkbook.ActiveSheet<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Range("A2").Select 'Select Cell A2 (will paste from here, to different cells)</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Paste&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Paste clipboard contents</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Clear Selected Records from Selection<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rptcontrol.SelectedRows.DeleteAll<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Clipboard.Clear<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Format excel Columns<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To Rptcontrol.Columns.count<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Columns(i).AutoFit<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Columns(i).HorizontalAlignment = xlCenter<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Format Excel Rows<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Rows(1).Font.Bold = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Rows(1).Interior.Color = &amp;HFFC0C0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveSheet.Rows(2).Select<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Freeze the First Row<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.ActiveWindow.FreezePanes = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' This makes Excel visible</DIV><DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlObject.Visible = True</DIV><DIV><BR>End Sub</DIV><DIV>&nbsp;</DIV><DIV>&nbsp;</DIV><DIV>-----------------------------------------------------------------------------------</DIV><DIV>'To call the Method Use</DIV><DIV>&nbsp;</DIV><DIV>call ReportControlToExcel(Reportcontrol1)</DIV></DIV><DIV>&nbsp;&nbsp;&nbsp; </DIV>]]>
   </description>
   <pubDate>Wed, 08 Sep 2010 23:04:14 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60098&amp;title=exporting-report-to-xlsxlst#60098</guid>
  </item> 
  <item>
   <title><![CDATA[Exporting Report to XLS,XLST : Hi Everybody, In my application,...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60092&amp;title=exporting-report-to-xlsxlst#60092</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=6112">checksandy</a><br /><strong>Subject:</strong> 17218<br /><strong>Posted:</strong> 08 September 2010 at 8:30am<br /><br /><P>Hi Everybody,</P><DIV>In my application, I am using report control to display textual data in various columns.</DIV><DIV><DIV>Is there a way by which ReportControls Records can be directly saved to Excel format (XLS,XLST) or other ASCII formats (CSV)</DIV><DIV>&nbsp;</DIV><DIV>Thanks</DIV><DIV>Sandy</DIV></DIV>]]>
   </description>
   <pubDate>Wed, 08 Sep 2010 08:30:06 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=17218&amp;PID=60092&amp;title=exporting-report-to-xlsxlst#60092</guid>
  </item> 
 </channel>
</rss>