欢迎来到天天文库
浏览记录
ID:50743582
大小:72.50 KB
页数:9页
时间:2020-03-14
《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)设置指定列的宽度(单位
此文档下载收益归作者所有