VB中的数据导出excel,word中去.doc

《VB中的数据导出excel,word中去.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB:怎样将查询结果导出到Excel如果你想将查询结果导出到Excel另存，以便日后查看或打印的话，那么我这里说的就是怎样将查询结果导出到Excel。先来写一个函数FillDataArray，该函数的主要作用是将查询语句中的字段名和查到的记录导入到Excel中。PublicFunctionFillDataArray(asArray(),adoRSAsADODB.Recordset)AsLong'将数据送Excel函数DimnRowAsIntegerDimnColAsIntegerOnErrorGoToFill

2、ErrorReDimasArray(100000,adoRS.Fields.Count)nRow=0FornCol=0ToadoRS.Fields.Count-1asArray(nRow,nCol)=adoRS.Fields(nCol).nameNextnColnRow=1DoWhileNotadoRS.EOFFornCol=0ToadoRS.Fields.Count-1asArray(nRow,nCol)=adoRS.Fields(nCol).ValueNextnColadoRS.MoveNextnRow=

3、nRow+1LoopnRow=nRow+1FillDataArray=nRowExitFunctionFillError:MsgBoxError$ExitFunctionResumeEndFunction然后再来写一个过程PrintList，来调用前面的这个函数。PrivateSubPrintList()DimstrSource,strDestinationAsStringDimasTempArray()DimINumRowsAsLongDimobjExcelAsExcel.ApplicationDimobj

4、RangeAsExcel.RangeOnErrorGoToExcelErrorSetobjExcel=NewExcel.Application'新建一个ExcelDimrsAsNewADODB.Recordset　　Setrs=Conn.Execute(sqlall)‘sqlall是查询语句IfNotrs.EOFThenobjExcel.Workbooks.OpenApp.Path&"vvv.xls"MsgBox"查询结果导出后，请将其另存为一个.xls文件，使vvv.xls中的内容为空，确保后面查询结果的

5、正确导出。"INumRows=FillDataArray(asTempArray,rs)'调填充数组函数objExcel.cells(1,1)="查询结果"'填表头SetobjRange=objExcel.Range(objExcel.cells(2,1),objExcel.cells(INumRows,rs.Fields.Count))objRange.Value=asTempArray'填数据EndIfobjExcel.Visible=True'显示ExcelobjExcel.DisplayAlerts=

6、True'提示保存ExcelExitSubExcelError:IfErr<>432AndErr>0ThenMsgBoxError$SetobjExcel=NothingExitSubElseResumeNextEndIfEndSub　　其中用到的vvv.xls必须是先建好了的xls文件。结果导出后不要直接保存，而要将其另存为一个.xls文件，使vvv.xls中的内容为空，确保后面查询结果的正确导出?-------------------------------------------------------

7、-----------------------------------------如何操作Excel文件全面控制Excel首先创建Excel对象，使用ComObj:DimExcelIDasExcel.ApplicationSetExcelIDasnewExcel.Application1)显示当前窗口：ExcelID.Visible:=True;2)更改Excel标题栏：ExcelID.Caption:='应用程序调用MicrosoftExcel';3)添加新工作簿：ExcelID.WorkBooks.Add

8、;4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:ExcelDemo.xls');5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或ExcelID.WorkSheets['Sheet2'].Activate;6)给单元格赋值：ExcelID.Cells[1,4].Value:='第一行第四列';7)设置指定列的宽度（单位