VSFG控件导出数据到Excel：自定义列宽与格式

'****************************************
'过程名称：OutExcelFromVsfg
'过程描述：将vsfg的数据导出到Excel
'参数：Grid--Vsfg对象，ColWidth--列宽
'      StrCaption1--主标题，Strcaption2--副标题，isPrint--是否打印
'***************************************
Public Sub OutExcelFromVsfg(ByVal Grid As VSFlex8Ctl.VSFlexGrid, Optional ColWidth As Integer, _
                            Optional ByVal strCaption1 As String, Optional ByVal strCaption2 As String, Optional ByVal isPrint As Boolean)
Dim xlApp As Object
Dim xlBook As Workbook
Dim xlSheet As Worksheet
Dim i, J As Integer
Dim ColNo As Integer
Dim ColCount As Integer
Dim RowNo As Integer
Dim strFooter1 As String

If isPrint Then
    strFooter1 = "打印日期：" & Date & " "
Else
    strFooter1 = "导出日期：" & Date & " "
End If
'On Error GoTo err1
   Set xlApp = CreateObject("excel.application")
   If Not isPrint Then
        xlApp.Visible = True
   End If
   Set xlBook = xlApp.Workbooks.add
   Set xlSheet = xlBook.Worksheets(1)
   With Grid