如何编写脚本数据库数据导入Excel并处理.pdfVIP

如何编写把数据库中数据导入到Excel中

OnErrorResumeNext

选择开始时间(dt1)和结束时间(dt2)

s=WindowObj.InputStartEndTime(报表时间...,请输入开始与结束时间)

dt1=Left(s,19)

dt2=Right(s,19)

打开数据库连接

Setconn=CreateObject(ADODB.Connection)

strConn=Driver={SQLServer};Server=(local);Database=UserDatabase;Uid=;Pwd=;

conn.OpenstrConn

打开数据表

Setrs=CreateObject(ADODB.Recordset)

strSQL=SELECT*FROMdemowheredt=dt1anddtdt2

rs.OpenstrSQL,conn,2,2

DimExcelObj

判断打开的数据表是否为空

Ifrs.EOF=FalseAndrs.BOF=FalseThen

启动Excel

SetExcelObj=CreateObject(Excel.Application)

隐藏Excel窗口

ExcelObj.Visible=False

更改Excel窗口的标题

ExcelObj.Application.Caption=MyExcelReport...

显示消息提示

ExcelObj.Application.DisyAlerts=False

打开某Excel文件

ExcelFile=C:\FameView\MyFile\test.xls

ExcelObj.Workbooks.OpenExcelFile

选择某Sheet表

ExcelObj.Sheets(Sheet1).Select

EndIf

把数据记录写入Excel表

n=0

While(rs.BOF=FalseAndrs.EOF=False)

n=n+1

ExcelObj.Cells(n,1)=rs(dt)

ExcelObj.Cells(n,2)=rs(f1)

ExcelObj.Cells(n,3)=rs(f2)

ExcelObj.Cells(n,4)=rs(f3)

rs.MoveNext

Wend

.1.

关闭数据表及连接

rs.Close

conn.Close

Setrs=Nothing

Setconn=Nothing

Ifn0Then

最大化显示Excel窗口

ExcelObj.Application.WindowState=-4137

ExcelObj.Visible=True

另存Excel文件

ExcelObj.ActiveWorkbook.SaveAsC:\fameView\ExcelFile\test1.xls

销毁Excel对象

SetExcelObj=Nothing

把Excel窗口置顶并取消窗口右上角最大最小化按钮

bValue=WindowObj.FindWindowFromTitle(MyExcelReport...)

IfbValue0Then

WindowObj.BringWindowToTop

WindowObj.DeleteMaxminButton

EndIf

EndIf

.2.