iFix如何制作EXCEL报表.doc

《iFix如何制作EXCEL报表.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、iFix如何制作EXCEL报表在VBA中引用MicrosoftExcel11.0ObjectLibrary和MicrosoftADO6.0Library。在画面中添加个按钮。复制以下代码：‘－－－－－－－－－－开始复制(不包括此行)－－－－－－－－－－－－－－[hide]OptionExplicitDimrsADOAsADODB.RecordsetDimcnADOAsADODB.ConnectionPrivateSubCommand1_Click() DimStrDirAsString StrDir="E:"  

2、DimiAsLong DimSqlAsString Sql="SELECT*FROMTHISNODE" SetcnADO=NewADODB.Connection SetrsADO=NewADODB.Recordset cnADO.ConnectionString="Provider=MicrosoftOLEDBProviderforODBCDrivers;DSN=FIXDynamicsRealTimeData;UID=;PWD=" cnADO.Open rsADO.CursorLocation=adUseClien

3、t rsADO.OpenSql,cnADO,adOpenDynamic,adLockUnspecified,-1  IfrsADO.RecordCount<=0Then  MsgBox"无数据！",vbOKOnly+vbInformation,"信息..."  SetcnADO=Nothing  SetrsADO=Nothing  ExitSub EndIf  DimxlAppAsObject DimxlBookAsObject DimxlSheetAsObject  SetxlApp=NewExcel.Appli

4、cation xlApp.DisplayAlerts=False xlApp.Visible=False SetxlBook=xlApp.Workbooks.Open(StrDir&"报表.xls")'需要文件(E:报表.xls) SetxlSheet=xlBook.Worksheets(1)  Fori=1TorsADO.RecordCount  xlSheet.Cells(i,1)=rsADO.Fields(1).Value&""  xlSheet.Cells(i,2)=rsADO.Fields(2).Va

5、lue&""  xlSheet.Cells(i,3)=rsADO.Fields(3).Value&""  xlSheet.Cells(i,4)=rsADO.Fields(4).Value&"" Nexti  xlApp.Visible=True xlApp.DisplayAlerts=False  SetxlSheet=Nothing SetxlBook=Nothing SetxlApp=Nothing SetcnADO=Nothing SetrsADO=NothingEndSub[/hide]‘－－－－－－－－－

6、－结束复制(不包括次行)－－－－－－－－－－－－－－注意：1.iFix历史数据库只支持读90天的数据，在SQL语句中限定时间即可。   2.也可以读取其他数据源的数据，如ACCESS、SQLSERVER等，只要改一下ConnectionString。