使用JavaScript导出到Excel和Filter/Frezze第一行-Sharepoint2007，DataView

在SharePoint2007站点上，我创建了一个页面并插入了一个DataView。我还插入了一个按钮，可以将DataView导出到Excel。这很好，但是我想冻结第一行并设置自动过滤器，因为它们是列标题。请让我知道，如果有任何代码，我可以添加到使这成为可能

<Script Language="Javascript">

function isIE() // Function to Determine IE or Not
{
 return /msie/i.test(navigator.userAgent) && !/opera/i.test(navigator.userAgent);
}

function exportToExcel() // Function to Export the Table Data to Excel.
{
var isIEBrowser = isIE();
if(isIEBrowser== false)
{
alert('Please use Internet Explorer for Excel Export Functionality.');
return false;
}
else
{
var strTableID = "table1"; // It's the Table ID of Table in Webpart
var detailsTable = document.getElementById(strTableID);
var objExcel = new ActiveXObject("Excel.Application");
var objWorkBook = objExcel.Workbooks.Add;
var objWorkSheet = objWorkBook.Worksheets(1);

for (var intRowIndex=0;intRowIndex<detailsTable.rows.length;intRowIndex++)
{
for (var intColumnIndex=0;intColumnIndex<detailsTable.rows(intRowIndex).cells.length;intColumnIndex++)
 {
  if(intColumnIndex != 3)
  objWorkSheet.Cells(intRowIndex+1,intColumnIndex+1) = detailsTable.rows(intRowIndex).cells(intColumnIndex).innerText;
  objWorkSheet.Cells(intRowIndex+1,intColumnIndex+1).Interior.ColorIndex="2";
 } 
}
objExcel.Visible = true;
objExcel.UserControl = true;
objExcel.Range("A1", "Z1").EntireColumn.AutoFit();
objExcel.Range("A1", "J1").Font.Bold = true;
objExcel.Range("A1", "J1").Interior.ColorIndex="20";
objExcel.Range("A1", "Z1").EntireColumn.WrapText = True;
objExcel.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2;
objExcel.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5;
*objExcel.setAutoFilterRange("A1", "J1");
objExcel.Range("A1", "Z1").ActiveWindow.FreezePanes = True;*
}
}
</Script>


<P><button onclick="exportToExcel();">Export to Excel</button> 

函数isIE（）//用于确定是否为IE的函数
{
return/msie/i.test（navigator.userAgent）和&！/opera/i.test（navigator.userAgent）；
}
函数exportToExcel（）//将表数据导出到Excel的函数。
{
var isIEBrowser=isIE（）；
如果（isIEBrowser==false）
{
警报（'请使用Internet Explorer实现Excel导出功能'）；
返回false；
}
其他的
{
var strTableID=“table1”；//是Web部件中表的表ID
var detailsTable=document.getElementById（strTableID）；
var objExcel=新的ActiveXObject（“Excel.Application”）；
var objWorkBook=objExcel.Workbooks.Add；
var objWorkSheet=objWorkBook.工作表（1）；
对于（var intRowIndex=0；intRowIndex