机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel

简介: <p>      </p> <p>     <span style="font-family:KaiTi_GB2312; font-size:24px"> 在做机房收费系统的时候,许多窗体用到的一个功能,就是将从数据库中提取出来的数据导出到Excel中。</span></p> <p><span style="font-family:KaiTi_GB2312; font-size:24p

     

      在做机房收费系统的时候,许多窗体用到的一个功能,就是将从数据库中提取出来的数据导出到Excel中。

  首先,引用Microsoft Excel 14.0 Object Library

  然后,写代码

 

 

Public Sub OutDataToExcel(Flex As MSHFlexGrid)  '导出至Excel

    Dim i As Integer
    Dim j As Integer
    Dim Line As Integer
    Dim outExcel As Excel.Application
    
    Set outExcel = New Excel.Application  '实例化Excelapp
    
    '返回或设置插入microsoft excel 新工作薄中工作表的数目
    outExcel.SheetsInNewWorkbook = 1
     
     '添加新的工作薄
    outExcel.Workbooks.Add
    
    'excel刚打开时,设定游标的位置
    outExcel.Range("K1").Select
    
    '字形
    outExcel.Selection.Font.FontStyle = "Bold"
    outExcel.Selection.Font.Size = 14           '字体大小
    
    With Flex
        Line = .Rows
        For i = 0 To Line - 1  '行循环
            For j = 0 To .Cols - 1    '列循环
                '将数据导入到Excel中
                outExcel.ActiveSheet.Cells(1 + i, j + 1) = "'" & .TextMatrix(i, j)
            Next j
        Next i
    End With
    
    outExcel.Visible = True   '是否显示导出过程(true是)
       
End Sub

Private Sub cmdExport_Click()
    OutDataToExcel myFlexGrid       '将myflexgrid中的数据导出至Excel
End Sub
 

    显示数据库中的数据,可以用MSHflexgrid控件,也可以用DataGrid控件,后者需要引用Microsoft ActiveX Date Objects2.0 Library,并且添加Microsoft Dategrid Control6.0部件。

 

 


 

 

   

 

相关文章
|
2月前
|
前端开发 Java
基于Java爬取微博数据(二) 正文长文本+导出数据Excel
【5月更文挑战第12天】基于Java爬取微博数据,正文长文本+导出数据Excel
|
2月前
|
JSON JavaScript 前端开发
使用JavaScript和XLSX.js将数据导出为Excel文件
使用JavaScript和XLSX.js将数据导出为Excel文件
113 0
|
2月前
|
Serverless 定位技术
Google Earth Engine谷歌地球引擎提取多波段长期反射率数据后绘制折线图并导出为Excel
Google Earth Engine谷歌地球引擎提取多波段长期反射率数据后绘制折线图并导出为Excel
|
2月前
|
Java 数据库连接 Apache
java实现查询某个表的数据导出excel
java实现查询某个表的数据导出excel
51 0
|
7月前
|
JSON 前端开发 JavaScript
javascript 实现纯前端将数据导出excel两种方式
<html> <head> <p style="font-size: 20px;color: red;">使用a标签方式将json导出csv文件</p> <button onclick='tableToExcel()'>导出</button> </head> <body> <script> const tableToExcel = () => { // 要导出的json数据 const jsonData = [ { name:'路人甲', ph
48 0
SAP 系统里的中文数据,用 ABAP 导出成 Excel 文件时遇到乱码的分析和解决办法试读版
SAP 系统里的中文数据,用 ABAP 导出成 Excel 文件时遇到乱码的分析和解决办法试读版
|
9月前
|
Web App开发 开发者
SAP UI5 SmartTable 控件本地运行时进行 Excel 导出的单步调试(二)
SAP UI5 SmartTable 控件本地运行时进行 Excel 导出的单步调试
|
9月前
|
API UED
SAP UI5 SmartTable 控件本地运行时进行 Excel 导出的单步调试(一)
SAP UI5 SmartTable 控件本地运行时进行 Excel 导出的单步调试
|
9月前
|
XML 数据格式
关于 SAP UI5 控件内容的 Excel 导出功能,如何加载所需的导出工具库
关于 SAP UI5 控件内容的 Excel 导出功能,如何加载所需的导出工具库
|
29天前
|
easyexcel Java API
SpringBoot集成EasyExcel 3.x:高效实现Excel数据的优雅导入与导出
SpringBoot集成EasyExcel 3.x:高效实现Excel数据的优雅导入与导出
144 1