convert xls to csv

Here is a custom tag I am using to convert an XLS file to a CSV.  Could some one please adjust the code so it will convert the first sheet in a workbook regardless of the sheet's name.  It presently works ony if the first sheet is named sheet1.  I tried commenting out

      objSheet = objSheets.Item("#attributes.sheetName#");  

this line but it still would not convert a  first sheet let us say it was named xxx.

 I just need it to look at the XLS file and convert the first sheet nomatter what the names is.    Try testing it renaming the the sheet name from sheet1 to "whatever"

Thanks







<cfsetting enablecfoutputonly="Yes">
<!-------------------------------------------------------------------------
// Filename:       excel2csv.cfm
// Purpose:       converts a MS Excel document into a CSV file
// Created:       13/12/01
// Author:             Jordan Thomas
// Notes:             This file requires the Excel.Application objects to be
//                        installed on the server. Just install Excell on the server
//                        to get these.
// Usage:            <cf_excel2csv
//                                    excelFileIn=""
//                                    CSVFileOut=""
//                                    sheetName=""  (optional, defaults to "sheet1")
//                                    showConfirmation="1/0"  (optional, defaults to 1)
//                                    >
-------------------------------------------------------------------------->

<!--------------------------------------------------------- Constants ---->

<!------------------------------------------------ Initial Parameters ---->
<cfparam name="attributes.sheetName" type="string" default="sheet1">
<cfparam name="attributes.showConfirmation" type="boolean" default="0">

<!--------------------------------------------------- UDF Declaration ---->

<!---------------------------------------------- Access/Security Code ---->

<!--------------------------------------------------------- Main Code ---->
<!--- Try to connect to the Word application object --->
<cftry>
    <!--- If it exists, connect to it --->
    <cfobject
        action="CONNECT"
        class="Excel.Application"
        name="objExcel"
        type="COM">
  <cfcatch type="ANY">
  <!--- The object doesn't exist, so create it --->
        <cftry>
            <cfobject
                action="CREATE"
                class="Excel.Application"
                name="objExcel"
                type="COM">
          <!--- Word isn't installed, or ColdFusion doesn't have access to it --->
          <cfcatch type="ANY">
              <cfoutput>
                    <font size="-1"><b>Cannot create Excel Object</b><br>
              <ol>
                          <li>Make sure Excel is installed on the ColdFusion Server.</li>
                        <li>Make sure that ColdFusion has permissions to
                          use the Excel COM objects.</li>
                    </ol>
                    </font>
                    </cfoutput>
              <cfabort>
          </cfcatch>
        </cftry>
  </cfcatch>
</cftry>

<cftry>

<cfscript>

// this code will open up the excel spread sheet and then save it as a CSV file.

    // Excel file path
    ExcelFilePath = "#attributes.excelFileIn#";
   
    // Destination path for new Excel spreadsheet
    // We leave off the extension since we'll declare the file type later on
    CSVFilePath = "#attributes.CSVFileOut#";
   
    // Open Excel in the background
    objExcel.Visible = false;  
   
    // Disable alerts such as: 'Save this document?'
    objExcel.DisplayAlerts = false;              
   
    // Get the 'Documents' collection
    objBooks = objExcel.workbooks;  
   
    // Open the Excel spreadsheet
    objBook = objBooks.Open(ExcelFilePath);  
      
      // Get the sheets collection
      objSheets = objBook.WorkSheets;

      // Get the first sheet
      objSheet = objSheets.Item(Val(1));  
      
      // Get a named sheet
      objSheet = objSheets.Item("#attributes.sheetName#");      
   
      
      /* Save it as a new document -- the extension will automatically
       be appended based on the file type we choose.
       Some of the file types to convert to:
       1 = .xls
       3 = .txt (tab delimetered)
       6 = .csv
    */
        objSheets.SaveAs(CSVFilePath, Val(6));  
     
    // Close the spreadsheet
    objBook.Close();      
   
    // Quit Excel
    objExcel.Quit();
      
      if (attributes.showConfirmation EQ 1) {
            writeOutput("<font size=""-1"" face=""Verdana,Geneva,Arial,Helvetica,sans-serif""><b>File Created:</b> ""#attributes.CSVFileOut#"" <b>from file:</b> ""#attributes.excelFileIn#""<p></font>");
      }
</cfscript>

  <cfcatch>
        <!--- error creating file --->
        <cfoutput>
<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="-1">there was an error creating your
      new CSV filesfrom your Excel Spreadsheet
      <P>#cfcatch.message#</P> <P>Caught an exception, type = #cfcatch.type# </P> <P>The contents of the tag stack are:</P> <cfloop index = i from = 1 to = #ArrayLen(cfcatch.tagContext)#> <cfset sCurrent = #cfcatch.tagContext[i]#> <BR>#i# #sCurrent["ID"]# (#sCurrent["LINE"]#,#sCurrent["COLUMN"]#) #sCurrent["TEMPLATE"]# </cfloop>

      </cfoutput>
      

  </cfcatch>
</cftry>

<cfsetting enablecfoutputonly="no">