首頁 > 資料庫 > mysql教程 > 机房收费系统之vb中的MSFlexGrid控件中的数据导出为Excel的步骤

机房收费系统之vb中的MSFlexGrid控件中的数据导出为Excel的步骤

WBOY
發布: 2016-06-07 15:59:41
原創
1265 人瀏覽過

MSFlexGrid控件中的数据导出为Excel表的方法有很多,我觉得它们都大同小异,总起来说就是vb先调用Excel,然后再将数据导入进去。在数据导出的过程中,我的收获如下,下面是我把MSFlexGrid控件的数据导出到Excel中的步骤。 1 首先确保 在工程中引用Microsoft

MSFlexGrid控件中的数据导出为Excel表格的方法有很多,我觉得它们都大同小异,总起来说就是vb先调用Excel,然后再将数据导入进去。在数据导出的过程中,我的收获如下,下面是我把MSFlexGrid控件的数据导出到Excel中的步骤。

1 首先确保 在工程中引用Microsoft Excel 14.0 Object Library 和 Microsoft ActiveX Data Objects 2.6 Libray

代码部分,

<span style="font-size:18px;">Private Sub Command2_Click()
    Dim xlsApp As Excel.Application &#39;定义Excel程序
    Dim xlsBook As Excel.Workbook &#39;定义工作簿
    
    Dim xlsSheet As Excel.Worksheet &#39;定义工作表
    Dim i As Long
    Dim j As Long

    Set xlsApp = CreateObject("Excel.Application") &#39;创建应用程序
    Set xlsBook = xlsApp.Workbooks.Add
    Set xlsSheet = xlsBook.Worksheets(1) &#39;设置应用表

    With xlsApp
          .Rows(1).Font.Bold = True
    End With
    &#39;把MSFlexGrid1的内容写入到电子表格中
    For i = 0 To MSFlexGrid1.Rows - 1
        For j = 0 To MSFlexGrid1.Cols - 1
            xlsSheet.Cells(i + 1, j + 1) = "&#39;" & MSFlexGrid1.TextMatrix(i, j)
        Next j
    Next i

    xlsApp.Visible = True &#39;显示电子表格
    xlsSheet.PrintOut preview:=True &#39;进入打印预览页面
    xlsBook.SaveAs App.Path & "\Test.xls" &#39;保存路径和文件名称
    Set xlsApp = Nothing &#39;释放控制权
End Sub</span>
登入後複製

以上的代码是直接进入打印预览界面,如果想直接得到电子表格,可将 xlsSheet.PrintOut preview:=True这行代码注释掉。

我觉得vb调用Excel将MSFlexGrid控件中的数据到Excel中的步骤和是用ADO对象差不多,都是先声明对象,然后在创建对象,最后在对其进行一系列的操作。

未完待续,有待其它方法的开采。


相關標籤:
來源:php.cn
本網站聲明
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn
熱門教學
更多>
最新下載
更多>
網站特效
網站源碼
網站素材
前端模板