vb에서 MSHFlexGrid 컨트롤을 Excel로 내보내기

'MSHFlexGrid     Excel
Public Function ExportFlexDataToExcel(flex As MSHFlexGrid, g_CommonDialog As CommonDialog)
  
    On Error GoTo ErrHandler
    '  excel     
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Dim Rows As Integer, Cols As Integer
    Dim iRow As Integer, hCol As Integer, iCol As Integer
    Dim New_Col As Boolean
    Dim New_Column     As Boolean
            
    g_CommonDialog.CancelError = True
    On Error GoTo ErrHandler
    '     
    g_CommonDialog.Flags = cdlOFNHideReadOnly
    '      
    g_CommonDialog.Filter = "All Files (*.*)|*.*|Excel Files" & _
    "(*.xls)|*.xls|Batch Files (*.bat)|*.bat"
    '         
    g_CommonDialog.FilterIndex = 2
    '   “  ”   
    g_CommonDialog.ShowSave
            
    If flex.Rows <= 1 Then    '         
        MsgBox "    ！", vbInformation, "  "
        Exit Function
    End If
                    
    Set xlApp = CreateObject("Excel.Application") '  excel    
    Set xlBook = xlApp.Workbooks.Add '     
    xlApp.Visible = True

    With flex    '  MSHFlexGrid   excel       
        Rows = .Rows
        Cols = .Cols
        iRow = 0
        iCol = 1
        For hCol = 0 To Cols - 1
            For iRow = 1 To Rows
                xlApp.Cells(iRow, iCol).Value = .TextMatrix(iRow - 1, hCol)
            Next iRow
            iCol = iCol + 1
        Next hCol
    End With

 With xlApp         '  excel  
        .Rows(1).Font.Bold = True
        .Cells.Select
        .Columns.AutoFit
        .Cells(1, 1).Select
'        .Application.Visible = True
    End With
    
    xlBook.SaveAs (g_CommonDialog.FileName) '  excel 
    xlApp.Application.Visible = True
    xlApp.DisplayAlerts = True

 'xlApp.Quit
    Set xlApp = Nothing  '"     Excel  excel  
    Set xlBook = Nothing
    flex.SetFocus
    MsgBox "       Excel 。", vbInformation, "  "
    Exit Function
                
ErrHandler:
    '     “  ”  
    If Err.Number <> 32755 Then
        MsgBox "      ！", vbCritical, "  "
    End If
End Function

Private Sub cmdToExcel_Click()
ExportFlexDataToExcel myflexgrid, cdlSelectExcel  'myflexgrid1 MSHFlexGrid     cdlSelectExcel commonDialog   
End Sub