欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

经过excel打印报表

更新时间: 2014-01-05 03:07:40 责任编辑: Author_N1

 

通过Excel打印报表

在Visual Basic程序中使用Excel对象的具体操作如下:

(1)在工程中引用Excel对象

在工程中选择“工程”--“引用”命令,打开“引用”对话框

在此选择”Microsoft Excel 14.0 Object Library“复选框,如图所示:(14.0为版本号)

单击“确定”按钮,则Excel对象库将被加载到工程中。

(2)程序中使用New关键字声明Excel对象

    Dim newxls As New Excel.Application‘创建Excel应用程序
    Dim newbook As New Excel.Workbook’创建工作簿
    Dim newsheet As New Excel.Worksheet‘创建工作表


或者在Set语句用New关键字创建一个新对象并将对象引用赋予对象变量

    Dim newxls As  Excel.Application
    Set newxls= New Excel.Application

(3)使用Excel对象的属性和方法设计报表

(4)使用Excel对象的Visible属性显示Excel报表

 newxls.Visible = True  

(5)使用Excel对象的Quit方法释放Excel报表

    newxls.Quit

以“学生充值记录查询”为例,由MSFlexGrid1导出为Excel

Private Sub cmdExcel_Click()
    Dim r As Integer, c As Integer
    Dim newxls As Excel.Application
    Dim newbook As Excel.Workbook
    Dim newsheet As Excel.Worksheet
    Dim myval As Long
    Dim mystr As Long
    
    Set newxls = CreateObject("Excel.Application") '创建Excel应用程序,打开
    Set newbook = newxls.Workbooks.Add             '创建工作簿
    newxls.Visible = True                          '显示Excel报表
    Set newsheet = newxls.Worksheets("sheet1")     '创建工作表

    '指定表格内容
    For r = 1 To MSFlexGrid1.Rows
        For c = 1 To MSFlexGrid1.Cols
            newsheet.Cells(r, c) = MSFlexGrid1.TextMatrix(r - 1, c - 1)
        Next
    Next
     
    ’保存Excel文件
    myval = MsgBox("是否保存该Excel表?", vbYesNo, "提示窗口")
    If myval = vbYes Then
        mystr = InputBox("请输入文件名", "输入窗口")
        If Len(mystr) = 0 Then
            MsgBox "系统文件不允许名称为空!", , "提示窗口"
            Exit Sub
        End If
        newsheet.SaveAs App.Path & "\Excel文件\" & mystr & ".xls"
        MsgBox "Excel文件保存成功,位置:" & App.Path & "\Excel文件\" & mystr & ".xls", , "提示窗口"
    End If
    newxls.Quit
    
End Sub


2楼dandanzmc1小时前
呵呵,加油啊
1楼xiaoshuaiguoguo昨天 15:24
顶一下。。。还不错 有帮助
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:07:40
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18683/
本文WWW.DOC100.NET DOC100.NET版权所有。