1.支持的文件格式
  
Excel Service 仅支持XLSX，不支持XLS
  
Doc Service 支持XML 文档(.docx, .dotx, .docm, .dotm)，Word 97-2003 文档(.doc, .dot)仅支持查看，如果要编辑会要求转换
  
 
  
 
  
  
    
 
  
2.Excel Services应用程序的配置 
  
当你的Excel文档中包含外部数据时，Excel Services应用程序必须配置“无人参与服务帐户密码”，否则数据无法刷新；
  
跟Sharepoint2007中不同的是，2010中不允许直接配置账户信息，必须通过SSS（Secure Store Service）注册并且这里必须是AD帐户,具体查看http://technet.microsoft.com/zh-cn/library/hh223271.aspx。
  
 
  
 
  
 
  
 
  
3.Excel中使用外部数据源注意事项
  
  
 
  
Excel Services 提供了三种方法来使用安全存储刷新工作簿中的外部数据源：
  
以下三条都是以SQL Windows身份验证为例:
  
    无人参与服务帐户，参考http://technet.microsoft.com/zh-cn/library/hh223271.aspx 
    
    嵌入在工作簿中的数据连接，参考http://technet.microsoft.com/zh-cn/library/hh223283.aspx  
    
    Office 数据连接 (ODC) 文件中的数据连接，参考http://technet.microsoft.com/zh-cn/library/hh223272.aspx 
    
    
如果需要使用SQL身份验证，请参考
 
   将安全存储(SSS)与 SQL Server 身份验证结合使用 (SharePoint Server 2010) 
  
   将 Excel Services 与安全存储一起使用 (SharePoint Server 2010)

转载于:https://www.cnblogs.com/ruijian/archive/2011/12/20/2295239.html

如果是JSP页面要导出成excel，依靠javascript就可以实现了，具体你试试上面的代码
<input type="button" value="保存为 Excel">
<script language="javascript">
function AllAreaExcel() {
var title;
title=document.getElementsByTagName("table")[0].childNodes.item(0).childNodes(0).childNodes(0).innerText;
alert(title);
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
//从excel的第5行开始插入
oSheet.Range("A5").select;
oWB .Worksheets(1).Activate;
oSheet.Cells(3,1).Value=title; //在第3行插入报表头
oWB.Worksheets(1).Range("A3:I3").merge();  // 合并单元格区域 A3:I3
oWB.Worksheets(1).Range("A3:I3").HorizontalAlignment=3; //居中对齐A3:I3
var sel=document.body.createTextRange();
sel.moveToElementText(table1);  //table 的ID值
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
</script&gt

 获得单元格的公式很简单，通过
Range oCurCell;
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)i ), COleVariant( (long)j ) ).pdispVal, TRUE );      // m_oCurrRange是成员变量
VARIANT var = oCurCell.GetFormula();
CString strFormula = var.bstrVal;
原本想同理，GetComment函数就可以获得备注，但是发现GetComment返回的是一个指针，于是又想attach这个指针后，调用GetText()会不会获得Comment文本呢，还是不行。于是找到了下面的方法：
                            CString      strCellContent;
                            LPDISPATCH lpDisp;
                            lpDisp = oCurCell.GetComment();  // 先使用GetComment获得指针
                            if ( !lpDisp )
                            {
                                     continue;
                            }
                            DISPID dispCommentText;
                            wchar_t* ucPtr = _T( "Text" );        // Comment的一个属性
                            //取属性的接口号
                            lpDisp->GetIDsOfNames( IID_NULL,
                                                                              &ucPtr,  
                                                                              1,  
                                                                              LOCALE_USER_DEFAULT,  
                                                                              &dispCommentText );
                            DISPPARAMS dpRangeItem = {NULL, NULL, 0, 0};  
                            HRESULT hr = lpDisp->Invoke( dispCommentText, 
                                                                                              IID_NULL, 
                                                                                              LOCALE_SYSTEM_DEFAULT,   
                                                                                              DISPATCH_PROPERTYGET | DISPATCH_METHOD, 
                                                                                              &dpRangeItem,
                                                                                              &var,
                                                                                              NULL,  
                                                                                              NULL );  
                            lpDisp->Release();  // 释放指针
                           
                            strCellContent = var.bstrVal;
 
       这样就成功获得了Excel单元格的备注。

这个程序还是挺有成就感的，因为它帮我提取了近4000行的Excel属性、方法、事件的说明。
我感觉原格式就是通过批量插入备注的方式制作而成的，而又被我通过VBA代码给复原了。一不小心完成了一个逆向工程，哈哈。
原格式：

提取后的格式：

新代码：
优点：
1. 不会造成文件的锁定 
2.增加了备注所在单元格的行号和列标，有利于整理资料
3. 运行速度提高很多
待完善的地方：
目前没有采用数组的方式向Excel中写入值，如果采用数组方式，运行效率将大大提高
Sub getCommentsExcel()

Dim objFile As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim objRange As Excel.Range
Dim varComment As String
Dim c As Comment
Dim cel As Range
Dim n As Integer
Dim savedFileName As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False
savedFileName = "C:\Users\[UserName]\Documents\xlComments2.xlsx"
Set objFile = Workbooks.Open(savedFileName)
objFile.Activate
Set objSht = objFile.Worksheets("Sheet1")
objSht.Visible = True
objSht.Activate
objSht.UsedRange.ClearContents 'This clears existing data

With ThisWorkbook.Worksheets("Excel???????")
    For Each cel In .Range("A1:Q2396")
            On Error Resume Next
            Set c = cel.Comment
            If Not c Is Nothing Then
                    n = n + 1
                    varComment = n & "_" & cel.Value & "_" & c.Text & vbCrLf
                    Debug.Print varComment
                    objSht.Range("A" & n).Value = n
                    objSht.Range("B" & n).Value = cel.Value
                    objSht.Range("C" & n).Value = c.Text
                    objSht.Range("D" & n).Value = cel.Row
                    objSht.Range("E" & n).Value = cel.Column

            End If
    Next
End With

objFile.SaveAs filename:=savedFileName, ReadOnlyRecommended:=False
Application.Workbooks.Open (savedFileName)
objFile.Sheet1.Activate
Set objFile = Nothing
Application.DisplayAlerts = False
Application.ScreenUpdating = False

End Sub

旧代码（会造成文件的锁定）：
Sub getCommentsExcel()

Dim objFSO As Excel.Application
Dim objFile As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim objRange As Excel.Range
Dim varComment As String
Dim c As Comment
Dim cel As Range
Dim n As Integer
Dim savedFileName As String

Application.DisplayAlerts = False
savedFileName = "C:\Users\[UserName]\Documents\xlComments8.xlsx"
Set objFSO = CreateObject("excel.Application")
Set objFile = objFSO.Workbooks.Open(savedFileName)
objFile.Activate
Set objSht = objFile.Worksheets("Sheet1")
objSht.UsedRange.ClearContents 'This clears existing data

With ThisWorkbook.Worksheets("Excel???????")
    For Each cel In Range("K7:Q2396")
            On Error Resume Next
            Set c = cel.Comment
            If Not c Is Nothing Then
                    n = n + 1
                    varComment = n & "_" & cel.Value & "_" & c.Text & vbCrLf
                    Debug.Print varComment
                    objSht.Range("A" & n).Value = n
                    objSht.Range("B" & n).Value = cel.Value
                    objSht.Range("C" & n).Value = c.Text
            End If
    Next
End With

objFile.SaveAs filename:=savedFileName, ReadOnlyRecommended:=False
Application.Workbooks.Open (savedFileName)
objFile.Sheet1.Activate
Set objFile = Nothing
Application.DisplayAlerts = False

End Sub