vb导出到excel的方法

vb导出到excel的方法
//导出
Private Sub Command5_Click()
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "没有数据可导出！", vbExclamation, "导出"
Else
MsgBox "将把数据导出到EXCLE里，请稍等.......", vbExclamation, "导出"
Screen.MousePointer = vbHourglass
Dim i As Integer
Dim j As Integer

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
' xlSheet.Cells.Columns. '.AutoFit
Screen.MousePointer = 11
With xlSheet
'EXCLE第一列的宽度
.Columns(1).ColumnWidth = 9.15
.Columns(2).ColumnWidth = 14.13
.Columns(3).ColumnWidth = 14.63
.Columns(4).ColumnWidth = 6.5
.Columns(5).ColumnWidth = 12.5
'字体 边框 居中
.Cells.Font.Size = 9
.Cells(1, 1).Borders.LineStyle = 1 '边框
.Cells(1, 2).Borders.LineStyle = 1
.Cells(1, 3).Borders.LineStyle = 1
.Cells(1, 4).Borders.LineStyle = 1
.Cells(1, 5).Borders.LineStyle = 1
.Cells.HorizontalAlignment = xlCenter

.Cells.WrapText = True '自动换行
.Cells.EntireColumn.AutoFit '行高根据内容自动调整
.Cells.EntireRow.AutoFit

'文件名称
.name = CStr(Date) '时间为名称

'标题列名称
.Cells(1, 1) = "t1"
.Cells(1, 2) = "t2"
.Cells(1, 3) = "t3"
.Cells(1, 4) = "t4"
.Cells(1, 5) = "t5"
End With

For i = 1 To VSFlexGrid5.Rows - 1 '遍历VSFlexGrid5的所有行数
For j = 1 To VSFlexGrid5.Cols - 1 '遍历VSFlexGrid5所有的列数
str = Trim(VSFlexGrid5.TextMatrix(i, j))
'去掉空格 回车符
str = Replace(str, vbCr, "")
str = Replace(str, vbLf, "")
xlSheet.Cells(i + 1, j) = Trim(str)
'加边框
xlSheet.Cells(i + 1, j).Borders.LineStyle = 1
'内容靠底部
' xlSheet.Range(xlSheet.Cells(i + 1, j), xlSheet.Cells(i + 1, j)).VerticalAlignment = 3
' xlSheet.Range(xlSheet.Cells(i + 1, j), xlSheet.Cells(i + 1, j)).HorizontalAlignment = 3
Next
Next
Screen.MousePointer = 0
MsgBox "数据已经成功导出！", vbExclamation, "导出"
xlApp.Visible = True
Set xlApp = Nothing 'Excel 处于当前窗体
Set xlBook = Nothing
Set xlSheet = Nothing
End If
End Sub