不断拾金——导出为EXCEL

最新推荐文章于 2024-02-07 17:46:32 发布

原创最新推荐文章于 2024-02-07 17:46:32 发布 · 992 阅读

0 ·

CC 4.0 BY-SA版权

-----机房收费系统专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种从MSHFlexGrid中导出数据到Excel的方法，通过添加Excel对象库引用并编写VBA代码实现自动化导出。

第一次机房收费系统总会让我感受到自己的欠缺，但也正是这种欠缺给了我提升的机会，给了我不断去拾金的机会。加油。

将查询到的MSHFlexGrid中的内容导出为Excel：

首先：通过工程——引用——浏览添加EXCEL.exe。路径：C:\Program Files\Microsoft Office\Office15

接着：工程——引用——Microsoft Excel 15.0 ObjectLibriary ——确定

在按钮中写下如下代码：

<pre name="code" class="sql">Private Sub cmdExcel_Click()
    Dim xlApp As Excel.Application<span style="color:#006600;"> 'Excel对象
    </span>Dim xlBook As Excel.Workbook<span style="color:#006600;">   'excel工作簿
    </span>Dim xlSheet As Excel.Worksheet<span style="color:#006600;"> 'excel工作表

   </span> Dim i As Integer
    Dim j As Integer
    Set xlApp = CreateObject("Excel.Application")<span style="color:#006600;">   '实例化对象xlApp
    </span>xlApp.Visible = True             <span style="color:#006600;">     '显示excel窗口
    </span>Set xlBook = xlApp.Workbooks.Add<span style="color:#006600;">      '添加
    </span>Set xlSheet = xlBook.Worksheets(1)<span style="color:#006600;">    '获取工作簿中的1表
    </span>For i = 0 To myFlexGrid.Rows - 1<span style="color:#006600;">
        </span>For j = 0 To myFlexGrid.Cols - 1
        myFlexGrid.Row = i
        myFlexGrid.Col = j
        xlSheet.Cells(i + 1, j + 1) = Trim(myFlexGrid.Text)<span style="color:#006600;"> '通过for循环写入内容
 </span><span style="background-color: rgb(255, 255, 255);">       Next
    Next
End Sub</span><span style="color:#006600;">
</span>