机房收费系统-导出Excel表格

最新推荐文章于 2023-10-25 13:51:21 发布

迎风来Dora

最新推荐文章于 2023-10-25 13:51:21 发布

阅读量300

点赞数 1

分类专栏：计算机

本文链接：https://blog.csdn.net/lrtcsdn/article/details/79700467

版权

计算机专栏收录该内容

57 篇文章 1 订阅

订阅专栏

【前言】

在机房收费当中有多个窗体引用了导出Excel表格，表格的出现大大的节省了我们的工作，那么在VB中怎样实现这个功能呢？让小编来说一下步骤吧！

【步骤】

第一步：

在VB菜单栏中点击“工程”-“引用”选择下图中蓝色框的内容

第二步

代码实现

Private Sub cmdFormals_Click()
    Dim xlApp As New Excel.Application '声明Excel对象
    Dim xlbook As Excel.Workbook '声明工作薄对象
    Dim xlsheet As Excel.Worksheet '声明工作表单
    Dim i As Integer
    Dim j As Integer
        
    If MSFlexGrid1.Text = "" Then              '判断是否有记录可以导出
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        Set xlApp = CreateObject("excel.application")     '调用execel程序
        Set xlbook = xlApp.Workbooks.Add(1)               '创建新的空白簿
'        Set xlSheet = Excel.ActiveWorkbook.ActiveSheet    '创建新的工作表单
        Set xlsheet = Excel.ActiveWorkbook.ActiveSheet
            For i = 0 To MSFlexGrid1.Rows - 1            '填入数据
            For j = 0 To MSFlexGrid1.Cols - 1
                xlsheet.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)        'cell(a,b)表示a行，b列
            Next j
            Next i
        xlApp.Visible = True         '显示Excel表格
        Set xlApp = Nothing          '交还控制给Excel
    End If
End Sub