导出EXECL的问题

Question

我用下面的代码导出EXECL
Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application
    On Error Resume Next
    If excelApp Is Nothing Then
       Set excelApp = CreateObject("Excel.application")
       If excelApp Is Nothing Then
          Exit Sub
       End If
    End If
    excelApp.Visible = True
    Me.MousePointer = vbHourglass
    excelApp.Workbooks.Add
    With excelApp.ActiveSheet
        Dim i As Integer, j As Integer
        For i = 1 To MSGrid.rows
            For j = 1 To MSGrid.Cols
                  .Cells(i, j).Value = MSGrid.TextMatrix((i - 1), (j - 1))
            Next j
            DoEvents
        Next i
    End With
    Me.MousePointer = vbDefault
    Set excelApp = NothingEnd Sub
但我在mshflexgrid中有合并单元格时，导出到EXECL后，不能合并，请问如何解决？？

Answer 1

直接操作Grid单元格效率狂低，不如放在二维数组里

Answer 2

http://search.csdn.net/Expert/topic/2191/2191132.xml?temp=.8758661

Answer 3

在数组中，分别循环行和列，判断是否有包含相同内容的单元，然后对Excel做合并单元格
With excelApp.ActiveSheet
    ……
    .Range(.Cells(startRow, startCol), .Cells(endRow, endCol)).Merge
    ……
End With

Answer 4

当记录多时，速度确实较慢，但二维数组怎么用呀/小弟不会呢？viena(维也纳nn-实心木头人) 能给个示例吗？