第一次机房收费系统---导出Excel表

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

丁梦炜-Cherry

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

阅读量404

点赞数

本文链接：https://blog.csdn.net/dingmengwei/article/details/103252424

版权

这篇博客介绍了如何在机房收费系统中实现导出Excel功能的详细步骤，包括引用所需部件和编写相关代码。

摘要由CSDN通过智能技术生成

机房中有几个窗体用到了导出Excel的功能，但是要进行这一步，就需要引用，这篇博客就来分享一下具体步骤。
一、引用部件
工程–引用–
在这里插入图片描述
引用成功这个部件之后，进行第二步
二、、代码编写
具体代码如下：

Dim ExcelApp As Excel.Application    '定义excel表格应用程序
    Dim ExcelBook As Excel.Workbook      '定义Excel表格工作簿
    Dim ExcelSheet As Excel.Worksheet    '定义Excel表格工作表
    
    Dim i As Integer                     '定义excel表中的行变量
    Dim j As Integer                     '定义excel表中的列变量
    
    Set ExcelApp = CreateObject("Excel.application")   '创建一个excel应用程序对象
    Set ExcelBook = ExcelApp.Workbooks.Add             '创建一个工作簿
    Set ExcelSheet = ExcelBook.Worksheets(1)           '创建一个工作表
    
    DoEvents
    '因以下代码运行时间较长，所以转让控制权，让操作系统处理其他事件，避免操作不当误认为死机
    
    If MSFlexGrid.rows <= 1 Th