请选择 进入手机版 | 继续访问电脑版

12360技术网 - 专业IT技术发表平台

 立即注册  找回密码
查看: 8911|回复: 4

机房收费-----导出excel

[复制链接]

21

主题

35

帖子

367

积分

中级会员

Rank: 3Rank: 3

积分
367
发表于 2020-1-27 02:27:11 | 显示全部楼层 |阅读模式
1.引用

工程---引用--Microsoft Excel 16.0 Object Library--确定

若是在引用中没有找到excel可点击这里查看步骤
2.代码

方法一:直接在单击事件中编写
  1. Private Sub CmdDerive_Click()      Dim Introws As Integer                              '用做循环,表示MSHFlexGrid的总行数    Dim Intcols As Integer                              '用做循环,表示MSHFlexGrid的总列数    Dim XlsApp As Excel.Application                     '定义Excel对象    Dim XlsSheet As Excel.Worksheet                     '定义Excel的表    Dim XlsBook As Excel.Workbook                       '定义Excel的工作簿        Set XlsApp = CreateObject("Excel.Application")      '实例化Excel对象    Set XlsBook = XlsApp.Workbooks.Add                  '加载工作簿    Set XlsSheet = XlsBook.Worksheets(1)                '创建工作表        '循环,导出MSHFlex1中的所有记录到Excel    For Introws = 0 To myflexgrid.Rows - 1        For Intcols = 0 To myflexgrid.Cols - 1            If Intcols = 0 Then                        '第一列为学号,将其转换成字符串格式,否则首位的0无法显示                XlsSheet.Cells(Introws + 1, Intcols + 1) = "'" & myflexgrid.TextMatrix(Introws, Intcols)            Else                XlsSheet.Cells(Introws + 1, Intcols + 1) = myflexgrid.TextMatrix(Introws, Intcols)            End If        Next Intcols    Next Introws    '释放对象    XlsApp.Visible = True    Set XlsApp = NothingEnd Sub
复制代码
需要注意一下这里的myflexgrid是我控件的名称需要与下文的msglexgrid区分一下
方法二:调用模块

1.单击事件中编写
  1. Private Sub CmdDerive_Click()    Call ExportToExcel(MyFlexGrid)End Sub
复制代码
2.模块中编写
  1. Public Function ExportToExcel(msflexgrid As msflexgrid)  '导出excel表格        Dim Introws As Integer                              '用做循环,表示MSHFlexGrid的总行数    Dim Intcols As Integer                              '用做循环,表示MSHFlexGrid的总列数    Dim XlsApp As Excel.Application                     '定义Excel对象    Dim XlsSheet As Excel.Worksheet                     '定义Excel的表    Dim XlsBook As Excel.Workbook                       '定义Excel的工作簿        Set XlsApp = CreateObject("Excel.Application")      '实例化Excel对象    Set XlsBook = XlsApp.Workbooks.Add                  '加载工作簿    Set XlsSheet = XlsBook.Worksheets(1)                '创建工作表        '循环,导出MSHFlex1中的所有记录到Excel    For Introws = 0 To msflexgrid.Rows - 1        For Intcols = 0 To msflexgrid.Cols - 1            If Intcols = 0 Then                        '第一列为学号,将其转换成字符串格式,否则首位的0无法显示                XlsSheet.Cells(Introws + 1, Intcols + 1) = "'" & msflexgrid.TextMatrix(Introws, Intcols)            Else                XlsSheet.Cells(Introws + 1, Intcols + 1) = msflexgrid.TextMatrix(Introws, Intcols)            End If        Next Intcols    Next Introws    '释放对象    XlsApp.Visible = True    Set XlsApp = NothingEnd Function
复制代码
注意:方法一 中myflexgrid是我对控件定义的名称,而方法二的单击事件中myflexgrid依旧是我定义的名称,但是到了模块中的msflexgrid却是该控件本身的名称
 
方法三:不添加引用,直接用代码编写

点击这里
 
                                                                                                                        
                                                    
  • 点赞                        1                        
  • 收藏                        
  • 分享                                                                                                                        
  •                                                         
                                      
    • 文章举报                           
                                                
                                                                        
                                            
                                                        刘苗                                                                发布了42 篇原创文章 · 获赞 6 · 访问量 8328                                                                                            私信                                                            关注
免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x




上一篇:SQL注入篇——注入工具sqlmap使用详解
下一篇:数据库视频第四章、第五章:SQLServer 2008基础表
回复

使用道具 举报

0

主题

19

帖子

409

积分

中级会员

Rank: 3Rank: 3

积分
409
发表于 2020-1-28 17:43:38 | 显示全部楼层
楼主,我太崇拜你了![www.12360.co]
社区不能没有像楼主这样的人才啊!
回复

使用道具 举报

0

主题

18

帖子

388

积分

中级会员

Rank: 3Rank: 3

积分
388
发表于 2020-2-3 14:33:14 | 显示全部楼层
楼主,大恩不言谢了![www.12360.co]
回复

使用道具 举报

16

主题

29

帖子

331

积分

中级会员

Rank: 3Rank: 3

积分
331
发表于 2020-2-9 03:20:59 | 显示全部楼层
感谢楼主的无私分享![www.12360.co]
回复

使用道具 举报

0

主题

17

帖子

367

积分

中级会员

Rank: 3Rank: 3

积分
367
发表于 4 天前 | 显示全部楼层
楼主太厉害了!楼主,I*老*虎*U![www.12360.co]
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

12360技术网

GMT+8, 2020-2-29 21:24 , Processed in 0.093042 second(s), 41 queries .

本网站内容收集于互联网,Www.12360.Co不承担任何由于内容的合法性及健康性所引起的争议和法律责任。 欢迎大家对网站内容侵犯版权等不合法和不健康行为进行监督和举报。

© 2019-2020 Www.12360.Co

快速回复 返回顶部 返回列表