execl

该语句本身没有问题，希望你上传报错的图，是否形状不对之类的原因（内容有合并单元格导致不能部分复制）

这应该是自动更正造成的。自动更正是word/EXCEL等OFFICE软件的一项功能，可用“自动更正”功能自动检测并更正键入错误、误拼的单词、语法错误和错误的大小写。例如，如果键入“teh”及空格，则“自动更正”会将键入内容替换为“the”。使用或修改自动更正方法： 第1步，打开Word或EXCEL文档窗口，在菜单栏依次单击“工具”→“自动更正选项”菜单命令。 第2步，打开“自动更正”对话框，选中“键盘输入时自动替换”复选框，在“替换”文本框中输入需要自动更正的词条。该词条最多可以包含31字符且不能包含空格，本例输入“淡季”。然后在“替换为”文本框中输入自动更正词条替代文本“单击”。单击“添加”按钮添加本词条。单击“确定”按钮关闭“自动更正”对话框。 反之，要取消已有的自动更正，则在第2步时，查找到已有的词条，并删除即可。

造成这种现象的原因是因为excel使用了拼写检查和智能替换，在默认的excel知识库内，默认正常的单词是she，而seh是因为记忆或者输入错误造成的无意义单词，所以会被自动替换了，这个智能替换功能虽然会省掉我们拼写错误的麻烦，保证书写单词的正确，但也确实自以为是地影响了我们书写自己需要的单词，比如在密码上，我们经常会设置一些没有实际意义的字符串，以免被人猜到。 解决方法：在excel中点“工具”->“选项”，在打开的窗口中选择“拼写检查”标签页，按下最左下角的“自动更换选项”，又会打开一个新的窗口，我们需要在这个窗口下边的列表框内找到被一直替换的单词，删除这条规则就可以了。

现值一般为本金终值一般就为0了，

没有

其中一种可能性，如果不是，就要源文件=IF(E8>=7,LARGE(F11:F30,2)*0.5+(SMALL(F11:F30,2)*0.5+(E8-4)*TRIMMEAN(F11:F30,4/E8))/(E8-3),IF(AND(E8>=5,E8<7),TRIMMEAN(F11:F30,2/E8),AVERAGE(F11:F30)))=IF(E8>=7,LARGE(F11:F30,2)*0.5+(SMALL(F11:F30,2)*0.5+(E8-4)*TRIMMEAN(F11:F30,4/E8))/(E8-3),IF(AND(E8>=5,E8<7),TRIMMEAN(F11:F30,2/E8),AVERAGE(F11:F30)))

1，工具法：在Excel2007的数据选项卡中单击“数据分析”按钮（初次使用此功能需要在Excel选项中添加“分析工具库”加载项），在出现的“数据分析”对话框中选择“随机数发生器”，打开“随机数发生器”对话框，在这个对话框里可以设置所需的随机数参数，其中“变量个数”表示需要同时生成的随机数组数，留空的情况下可以生成一组随机数。“随机数个数”指的是同一组中生成的随机数个数。在“分布”下拉列表中选择“正态”。“平均值”和“标准偏差”是与分布形态相关的两个参数，根据实际的需要进行输入。最后在“输出选项”中选择随机数生成的位置。单击“确定”按钮即可生成一组符合参数要求的正态分布的随机数。2，公式法：用到两个函数NormDist和NormInv，分别介绍如下：NormDist用途：用于求正态分布的概率密度以及累积概率格式：=NormDist(x,均值,标准差,是否累积)其中最后一个参数“是否累积”=False时计算的是概率密度，“是否累积”=True时计算的是累积概率（从-∞算起）例如：NormDist(1,0,1,False)=0.242NormDist(1,0,1,True)=0.841NormInv用途：由累积概率反算位置点，可以看作NormDist的反函数格式：=NormInv(概率,均值,标准差)例如：NormInv(0.841,0,1)=1当所研究的正态分布为标准正态分布(即均值=0，标准差=1）时，可以直接用normSdist和normSinv两个函数。

1，工具法：在Excel2007的数据选项卡中单击“数据分析”按钮（初次使用此功能需要在Excel选项中添加“分析工具库”加载项），在出现的“数据分析”对话框中选择“随机数发生器”，打开“随机数发生器”对话框，在这个对话框里可以设置所需的随机数参数，其中“变量个数”表示需要同时生成的随机数组数，留空的情况下可以生成一组随机数。“随机数个数”指的是同一组中生成的随机数个数。在“分布”下拉列表中选择“正态”。“平均值”和“标准偏差”是与分布形态相关的两个参数，根据实际的需要进行输入。最后在“输出选项”中选择随机数生成的位置。单击“确定”按钮即可生成一组符合参数要求的正态分布的随机数。2，公式法：用到两个函数NormDist和NormInv，分别介绍如下：NormDist用途：用于求正态分布的概率密度以及累积概率格式：=NormDist(x,均值,标准差,是否累积)其中最后一个参数“是否累积”=False时计算的是概率密度，“是否累积”=True时计算的是累积概率（从-∞算起）例如：NormDist(1,0,1,False)=0.242NormDist(1,0,1,True)=0.841NormInv用途：由累积概率反算位置点，可以看作NormDist的反函数格式：=NormInv(概率,均值,标准差)例如：NormInv(0.841,0,1)=1当所研究的正态分布为标准正态分布(即均值=0，标准差=1）时，可以直接用normSdist和normSinv两个函数。

什么是OWC？ OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。 ＜%Option Explicit Class ExcelGen Private objSpreadsheet Private iColOffset Private iRowOffset Sub Class_Initialize() Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet") iRowOffset = 2 iColOffset = 2 End Sub Sub Class_Terminate() Set objSpreadsheet = Nothing "Clean up End Sub Public Property Let ColumnOffset(iColOff) If iColOff ＞ 0 then iColOffset = iColOff Else iColOffset = 2 End If End Property Public Property Let RowOffset(iRowOff) If iRowOff ＞ 0 then iRowOffset = iRowOff Else iRowOffset = 2 End If End Property Sub GenerateWorksheet(objRS) "Populates the Excel worksheet based on a Recordset"s contents "Start by displaying the titles If objRS.EOF then Exit Sub Dim objField, iCol, iRow iCol = iColOffset iRow = iRowOffset For Each objField in objRS.Fields objSpreadsheet.Cells(iRow, iCol).Value = objField.Name objSpreadsheet.Columns(iCol).AutoFitColumns "设置Excel表里的字体 objSpreadsheet.Cells(iRow, iCol).Font.Bold = True objSpreadsheet.Cells(iRow, iCol).Font.Italic = False objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 objSpreadsheet.Cells(iRow, iCol).Halignment = 2 "居中 iCol = iCol + 1 Next "objField "Display all of the data Do While Not objRS.EOF iRow = iRow + 1 iCol = iColOffset For Each objField in objRS.Fields If IsNull(objField.Value) then objSpreadsheet.Cells(iRow, iCol).Value = "" Else objSpreadsheet.Cells(iRow, iCol).Value = objField.Value objSpreadsheet.Columns(iCol).AutoFitColumns objSpreadsheet.Cells(iRow, iCol).Font.Bold = False objSpreadsheet.Cells(iRow, iCol).Font.Italic = False objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 End If iCol = iCol + 1 Next "objField objRS.MoveNext Loop End Sub Function SaveWorksheet(strFileName) "Save the worksheet to a specified filename On Error Resume Next Call objSpreadsheet.ActiveSheet.Export(strFileName, 0) SaveWorksheet = (Err.Number = 0) End Function End Class Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;" Dim SaveName SaveName = Request.Cookies("savename")("name") Dim objExcel Dim ExcelPath ExcelPath = "Excel" & SaveName & ".xls" Set objExcel = New ExcelGen objExcel.RowOffset = 1 objExcel.ColumnOffset = 1 objExcel.GenerateWorksheet(objRS) If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then "Response.Write "＜html＞＜body bgcolor="gainsboro" text="#000000"＞已保存为Excel文件. ＜a href="" & server.URLEncode(ExcelPath) & ""＞下载＜/a＞" Else Response.Write "在保存过程中有错误!" End If Set objExcel = Nothing objRS.Close Set objRS = Nothing %＞ 二、用Excel的Application组件在客户端导出到Excel或Word 注意：两个函数中的“data“是网页中要导出的table的 id ＜input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint"＞ ＜input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint"＞ 导出到Excel代码 ＜SCRIPT LANGUAGE="javascript"＞ ＜!-- function AutomateExcel() { // Start Excel and get Application object. var oXL = new ActiveXObject("Excel.Application"); // Get a new workbook. var oWB = oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; var table = document.all.data; var hang = table.rows.length; var lie = table.rows(0).cells.length; // Add table headers going cell by cell. for (i=0;i＜hang;i++) { for (j=0;j＜lie;j++) { oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; } } oXL.Visible = true; oXL.UserControl = true; } //--＞ ＜/SCRIPT＞ 导出到Word代码 ＜script language="vbscript"＞ Sub buildDoc set table = document.all.data row = table.rows.length column = table.rows(1).cells.length Set objWordDoc = CreateObject("Word.Document") objWordDoc.Application.Documents.Add theTemplate, False objWordDoc.Application.Visible=True Dim theArray(20,10000) for i=0 to row-1 for j=0 to column-1 theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT next next objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题 objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range With rngPara .Bold = True //将标题设为粗体 .ParagraphFormat.Alignment = 1 //将标题居中 .Font.Name = "隶书" //设定标题字体 .Font.Size = 18 //设定标题字体大小 End With Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) for i = 1 to column objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1) objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 next For i =1 to column For j = 2 to row objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 Next Next End Sub ＜/SCRIPT＞ 三、直接在IE中打开，再存为EXCEL文件 把读出的数据用＜table＞格式，在网页中显示出来，同时，加上下一句即可把EXCEL表在客客户端显示。 ＜%response.ContentType ="application/vnd.ms-excel"%＞ 注意：显示的页面中，只把＜table＞输出，最好不要输出其他表格以外的信息。 四、导出以半角逗号隔开的csv 用fso方法生成文本文件的方法，生成一个扩展名为csv文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。（有关fso生成文本文件的方法，在此就不做介绍了） CSV文件介绍 （逗号分隔文件） 选择该项系统将创建一个可供下载的CSV 文件； CSV是最通用的一种文件格式，它可以非常容易地被导入各种PC表格及数据库中。 请注意即使选择表格作为输出格式，仍然可以将结果下载CSV文件。在表格输出屏幕的底部，显示有 "CSV 文件"选项，点击它即可下载该文件。 如果您把浏览器配置为将您的电子表格软件与文本（TXT）/逗号分隔文件（CSV） 相关联，当您下载该文件时，该文件将自动打开。下载下来后，如果本地已安装EXCEL，点击此文件，即可自动用EXCEL软件打开此文件。

a列格式为数值-货币,b列格式为特殊-中文大写数字函数:b1=a1

可参考如下方法将excel表格转换成PDF格式的文件。分两种情况，将整个工作簿中的sheet表格全部转为单个的PDF文件using Spire.Xls;namespace ExcelToPDF{class Program{static void Main(string[] args){Workbook workbook = new Workbook();workbook.LoadFromFile("Test.xlsx");//将整个工作薄保存为PDFworkbook.SaveToFile("WorkbookToPDF.pdf", Spire.Xls.FileFormat.PDF);}}}2.将工作簿中的指定sheet表格转为PDF文件using Spire.Xls;namespace ExceltoPDF2{class Program{static void Main(string[] args){Workbook workbook = new Workbook();workbook.LoadFromFile("Test.xlsx");//获取第一个工作表Worksheet sheet = workbook.Worksheets[0];//将第一个工作表保存为PDFsheet.SaveToPdf("WorksheetToPDF.pdf", Spire.Xls.FileFormat.PDF);}}}注意在VS中的“解决方案资源管理器”中引用spire.xls.dll文件。并在代码前添加using指定。

原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。按Alt+F11进入VBA代码编辑和调试界面。根据下图提示，插入一个模块。将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。下一步，用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：参考来源：http://jingyan.baidu.com/article/64d05a027d3c08de55f73b88.html

我也在用这个试剂盒，我猜测应该就是精度的问题，把同样的数字代入，两条公式得出的结果其实相差不大，误差大概百分之0.几左右吧，感觉影响不大

使用comsoft basic5.0软件，界面右部分，有数据导出的方式选择，可以选择导出成excel文件。