首页 > 代码库 > VB的MSHFlexGrid控件内容导入Excel
VB的MSHFlexGrid控件内容导入Excel
机房收费系统中有很多窗体用到导出到Excel,说一下vb与Excel的交互,如何才能将MSHFlexgrid中的内容导出到Excel。
首先在VB中添加引用Microsoft Excel 14.0 Object Library。然后找到相应按钮,在过程中添加如下代码:
<pre name="code" class="vb">Private Sub cmdExport_Click() Dim i As Long, j As Long Dim CellsData() As String <span> </span>'定义数组承载数据 'vb中定义excel对象 Dim objApp As Excel.Application Dim objWorkbook As Excel.Workbook Dim objWorksheet As Excel.Worksheet Dim objRange As Excel.Range '构建二维数组,容纳MSHFlexgrid中的内容 ReDim CellsData(1 To myflexgrid.Rows, 1 To myflexgrid.Cols) For i = 1 To myflexgrid.Rows For j = 1 To myflexgrid.Cols CellsData(i, j) = myflexgrid.TextMatrix(i - 1, j - 1) Next Next '执行导出到excel中的代码 Set objApp = New Excel.Application <span> </span>'建立xlapp的引用 objApp.ScreenUpdating = False <span> </span>'禁止屏幕刷新 Set objWorkbook = objApp.Workbooks.Add <span> </span>'添加工作簿 Set objWorksheet = objWorkbook.Sheets.Add <span> </span>'添加工作栏 Set objRange = objWorksheet.Range(objWorksheet.Cells(1, 1), & _
<span> </span>objWorksheet.Cells(myflexgrid.Rows, myflexgrid.Cols)) objRange.Value = http://www.mamicode.com/CellsData 'excel表中的内容就是数组的内容>运行后如下:
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。