• <tr id='L1hKGA'><strong id='L1hKGA'></strong><small id='L1hKGA'></small><button id='L1hKGA'></button><li id='L1hKGA'><noscript id='L1hKGA'><big id='L1hKGA'></big><dt id='L1hKGA'></dt></noscript></li></tr><ol id='L1hKGA'><option id='L1hKGA'><table id='L1hKGA'><blockquote id='L1hKGA'><tbody id='L1hKGA'></tbody></blockquote></table></option></ol><u id='L1hKGA'></u><kbd id='L1hKGA'><kbd id='L1hKGA'></kbd></kbd>

    <code id='L1hKGA'><strong id='L1hKGA'></strong></code>

    <fieldset id='L1hKGA'></fieldset>
          <span id='L1hKGA'></span>

              <ins id='L1hKGA'></ins>
              <acronym id='L1hKGA'><em id='L1hKGA'></em><td id='L1hKGA'><div id='L1hKGA'></div></td></acronym><address id='L1hKGA'><big id='L1hKGA'><big id='L1hKGA'></big><legend id='L1hKGA'></legend></big></address>

              <i id='L1hKGA'><div id='L1hKGA'><ins id='L1hKGA'></ins></div></i>
              <i id='L1hKGA'></i>
            1. <dl id='L1hKGA'></dl>
              1. <blockquote id='L1hKGA'><q id='L1hKGA'><noscript id='L1hKGA'></noscript><dt id='L1hKGA'></dt></q></blockquote><noframes id='L1hKGA'><i id='L1hKGA'></i>

                 注册名:

                密码:

                个人注册

                企业注册

                商务申请

                商务管理平台

                企业管理平台

                个人管理平台

                我的彩神app一道道雷霆猛然從天空中轟了下來博客

                中国彩神app网www.chinakong.com

                首页 | 新闻中心 | 彩神app论坛 | 经验视点 | 彩神app商务 | 电气手册 | 彩神app博客 | 招聘求职 | 网上调查 | 企业中心 | 供求信息 | 资料中心 | 彩神app书店

                所在位置:彩神app博客苑 -- JK彩神app人生 -- IFIX5.0关于EXCEL报表的生成程序。。。。

                中国彩神app网◥搜索:

                靳先生

                     学历:大学专科
                     职称:技术员
                     年龄:34岁
                       新闻信息(0/0)
                       工作图片(0)
                       技术论文(2/0)
                       交流论坛(0/0)
                       留言信箱(0)
                       浏览人次:1520

                IFIX5.0关于EXCEL报表的生成程序。。。。

                发表评论(0)   作者:jinjikang    发布时间:2012年1月10日  

                    Private Sub CFixPicture_Initialize()
                   
                    Me.DTPend = Now
                    Me.DTPstart = DateAdd("h", -1, Now)
                   
                    End Sub
                   
                   
                    Private Sub CommandButton1_Click()
                    ' On Error GoTo excet
                   
                    Dim dtmmonth As String
                    Dim startdate As String
                   
                    startdate = Format(Me.DTPstart, "yyyy-MM-dd HH:mm:ss")
                   
                    '处理月底时间我們就要淪為別人
                    'dtmmonth = DateAdd("m", 1, Format(Me.DTPstart, "yyyy-mm") & "-01")
                    dtmmonth = Format(Me.DTPend, "yyyy-MM-dd HH:mm:ss")
                   
                    If startdate >= dtmmonth Then
                    GoTo 100
                    End If
                    '注意:必须先引用ADO控件
                    '-------------------查询语句-------------------------
                    Dim Sql As String
                    Dim cnADO As ADODB.Connection
                    Dim rsADO As Recordset
                   
                    '-------------------查询设置-------------------------WHERE后的时间段查询可以套用
                    Sql = "SELECT *" & _
                    " FROM FIX" & _
                    " WHERE (DATETIME>={ts '" & startdate & "'} AND" & _
                    " DATETIME<={ts '" & dtmmonth & "'})" & _
                    " AND INTERVAL='00:05:00'"
                    '-------------------连接并读取数据库-----------------
                   
                    Set cnADO = New ADODB.Connection
                    Set rsADO = New ADODB.Recordset
                   
                    cnADO.ConnectionString = "Provider = Microsoft OLE DB Provider for ODBC Drivers;" & _
                    "DSN=FIX Dynamics Historical Data;UID =;PWD =;"
                    cnADO.Open
                   
                    rsADO.CursorLocation = adUseClient
                   
                    rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1 '查询数据
                   
                    '-----------------------判断有无数据-------------------------
                   
                    If rsADO.RecordCount <= 0 Then
                    MsgBox "该时间范围无数据!"
                    Exit Sub
                    End If
                   
                    '-----------------------Excel 报表制作-----------------------
                   
                    '运行EXCEL,打开∏报表模板文件
                    Dim msexcel As Excel.Application
                    Set msexcel = CreateObject("Excel.Application")
                    With msexcel
                    .Visible = False '如为FALSE,则不显示EXCEL。
                    .Workbooks.Open System.ProjectPath & "\APP\Book.mht", , False '该文件相当于一个报表的全文字無錯首發小說 模
                   
                    板,注意要将该文件中↘将来
                   
                    存放日期值的列设置成日期
                   
                    格式。
                    .ActiveWorkbook.ActiveSheet.Select
                    .DisplayAlerts = False
                    '.Wait (Now() + 0.00002)
                    End With
                    '---------------------------写表头------------------------
                    ' msexcel.Selection.Font.Bold = True '设为粗体
                    For i = 1 To rsADO.Fields.Count
                    msexcel.Cells(2, i) = rsADO.Fields(i - 1).Name
                    Next
                   
                    If rsADO.BOF Then
                    msexcel.Quit
                    Set msexcel = Nothing
                    rsADO.Close
                    cnADO.Close
                    MsgBox "查询结果为空,请检查查那融入大地之中询条件"
                    Exit Sub
                    '---------------------------写报表值--------------------------
                    Else
                    rsADO.MoveFirst
                    End If
                    ' msexcel.Cells.Range("A2:F6").ClearContents
                    i = 3
                    While Not rsADO.EOF
                    For j = 1 To rsADO.Fields.Count
                    If j <> 5 Then
                    msexcel.Cells(i, j) = rsADO.Fields(j - 1)
                    Else
                    msexcel.Cells(i, j) = Format(rsADO.Fields(j - 1), "yyyy-MM-dd HH:mm:ss")
                    End If
                    Next
                    rsADO.MoveNext
                    i = i + 1
                    Wend
                    endandquit:
                    rsADO.Close
                    cnADO.Close
                    ''保存和打印代码
                    With msexcel
                    '.Wait (Now() + 0.00012)
                    .ActiveWorkbook.SaveAs "e:\savereport.mht" '此文件名可按需要进行修改,也可按不同的日
                   
                    期存不同的文件名称。
                    ' .ActiveWorkbook.PrintOut '如需打印到打印机,则取消本行注册。
                    .ActiveWorkbook.Close
                    .Quit
                    End With
                    Set cnADO = Nothing
                    Set rsADO = Nothing
                    Set msexcel = Nothing
                    With Me.WebBrowser1
                    .Navigate "e:\savereport.mht"
                    .AddressBar = False
                    End With
                   
                    100
                    End Sub
                 

                暂时没劍無生有评论

                    发表评论

                登陆网站发表评论

                用户名:

                密码:

                注册 | 忘了密码

                关于我们     免责声明     服务项目     广告联系     友情链接     联系方式     意见反馈     设为首页     加入收藏

                 ©2019-2020 中国彩神app网(www.chinakong.com) 版权所有 豫ICP备17046657号

                管理▓员信箱:chinakong98@163.com  服务热线:13525974529

                洛阳博德彩神app自动化技术有限※彩神app

                中国    洛阳