1.通用导出Excel功能。

 2.将 MSHFlexGrid数据导出到Excel文件通用功能。

 3.具体代码如下：

 

'将下列代码保存到一模块文件中，调用方法：Export fgrid1,cd1

Public Sub Export(flexgridname As MSHFlexGrid, CD1 As CommonDialog)
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object  'Excel.Workbook
Dim xlSheet As Object  'Excel.Worksheet

    Screen.MousePointer = vbHourglass
    On Error GoTo Err_Proc
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

    'Begin to fill data to sheet
    Dim i As Long
    Dim j As Integer
'    With formname.Controls("flexgridname")
        For i = 0 To flexgridname.rows - 1
            For j = 0 To flexgridname.Cols - 1
                xlSheet.Cells(i + 1, j + 1).Value = "'" & flexgridname.TextMatrix(i, j)
            Next j
        Next i
'     End With
     xlApp.Visible = True
     Screen.MousePointer = vbDefault
     Exit Sub
Err_Proc:
    Screen.MousePointer = vbDefault
    '报错以后用老的导出函数
    savef flexgridname, CD1
'    'MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"
    
End Sub

 

作者： 王春天·
关于作者：
  大连天翼信息科技有限公司 技术总监。
  SNF快速开发平台 创始人。应用平台架构师、IT规划咨询专家、业务流程设计专家。
  专注于快速开发平台的开发、代码生成器。同时专注于微软平台项目架构、管理和企业解决方案，多年项目开发与管理经验，精通DotNet系列技术Vue、.NetCore、MVC、Webapi、C#、WinForm等，DB（SqlServer、Oracle等）技术，移动端开发。熟悉Java、VB及PB开发语言。在面向对象、面向服务以及数据库领域有一定的造诣。现从事项目实施、开发、架构等工作。并从事用友软件产品U8、U9、PLM 客开工作。
如有问题或建议，请多多赐教！
本文版权归作者·，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，如有问题，可以通过邮箱或QQ 联系我，非常感谢。