美化报表的问题，请高人给偶改一下。

偶用下面的代码实现把数据导入EXCEL中，但没有边线，如果实现呢，还有加上一个题目和时间，如果写，请帮偶改一下，谢谢
Public Sub OutDataToExcel(Flex As MSHFlexGrid)            '导出至Excel
       Dim s   As String
       Dim i   As Integer
       Dim j   As Integer
       Dim k   As Integer
       On Error GoTo Ert
       Me.MousePointer = 11
       Dim Excelapp As Excel.Application
       Set Excelapp = New Excel.Application
       On Error Resume Next
       DoEvents
       Excelapp.SheetsInNewWorkbook = 1
       Excelapp.Workbooks.Add
       Excelapp.ActiveSheet.Cells(1, 3) = s
       Excelapp.Range("C1").Select
       Excelapp.Selection.Font.FontStyle = "Bold"
       Excelapp.Selection.Font.Size = 16
       With Flex
               k = .Rows
               For i = 0 To k - 1
                       For j = 0 To .Cols - 1
                             DoEvents
                             
                            ' Excelapp.ActiveSheet.Cells(3 + I, j + 1) = "'" & .TextMatrix(I, j)这个里面的"'"里的'是为了转换为文本格式
                             Excelapp.ActiveSheet.Cells(3 + i, j + 1) = "" & .TextMatrix(i, j)
                       Next j
               Next i
       End With
       Me.MousePointer = 0
       Excelapp.Visible = True
       Excelapp.Sheets.PrintPreview
Ert:
       If Not (Excelapp Is Nothing) Then
               Excelapp.Quit
       End If
End Sub