注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

糊涂小妹

一个矫情到不行的文艺小青年

 
 
 

日志

 
 

机房收费系统——Excel导出  

2014-08-26 21:33:17|  分类: 机房收费 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
初识这部分各种的问题,找了好多博客,结果越来越晕,万般无奈,创以下代码,百试不殆,望君笑纳。
Private Sub Cmdout_Click()
    Dim TempExcel As Excel.Application '声明一个EXCEL应用程序对象
    Dim TempSheet As Excel.Worksheet   '声明一个EXCEL工作簿
    Dim intI As Integer                '循环变量
    Dim intJ As Integer                '循环变量
        
    '先判断MYFLEXGRID1表中有没有数据
    If MSHFlexGrid1.Rows > 1 Then
            
        '实例化Excel应用程序,并使其可见
        Set TempExcel = New Excel.Application
        TempExcel.Application.Visible = True
        
        '在Excel应用程序中中增加一个工作簿
        TempExcel.Workbooks.Add (1)
            
        '实例化一个表单,并使其成为Excel程序中活动工作簿下的活动表单
        Set TempSheet = TempExcel.ActiveWorkbook.ActiveSheet
            
        '将MSHFLEXGRID表格中的数据,导入到活动表单中
        For intI = 0 To MSHFlexGrid1.Rows - 1
                
            For intJ = 0 To MSHFlexGrid1.Cols - 1
                    
                TempSheet.Cells(intI + 1, intJ + 1) = MSHFlexGrid1.TextMatrix(intI, intJ)
                    
            Next intJ
                
        Next intI
        
    Else
        '表中没有数据
        MsgBox "没有可导出的数据!", vbOKOnly + vbExclamation, "警告"
        Exit Sub
            
    End If
End Sub
如果这部分你还有疑问,尽可引用,无需改名,复制即可。求打赏哦!
  评论这张
 
阅读(61)| 评论(19)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017