机房收费系统中有很多窗体用到导出到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