经过Excel打印报表

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

（1）在工程中引用Excel对象

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

在此选择”Microsoft Excel 14.0 Object Library“复选框，如图所示：（14.0为版本号）

单击“确定”按钮，则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

顶一下。。。还不错 有帮助