fpspread中的数据导出到excel表中
我把数据库中的数据查询到fpspread中，想导出到excel中 连标题一起导出，我现在用的是fpspread的自带方法ExportToExcel，可是没把标题导出，请问我怎么才能把标题一起导出呢？ 谢谢解答
呵呵，解决了 做了简单点
Dim excelApp As New excel.Application
Dim excelBook As New excel.Workbook
Dim excelSheet As New excel.Worksheet
Dim fpc, fpr, i, j As Integer
With fpSpread1 '这里还可以加点判断，是否有数据
fpc = .MaxCols
fpr = .MaxRows
End With
Set excelApp = CreateObject("excel.application")
excelApp.Visible = True
Set excelBook = excelApp.Workbooks.Add
Set excelSheet = excelApp.ActiveSheet '这里还可以先对字体做点设置
For i = 1 To fpr '把fp中的数据赋给excel的每个格子里
For j = 1 To fpc
fpSpread1.Col = j
fpSpread1.Row = i - 1
excelSheet.Cells(i, j) = fpSpread1.Text
Next j
Next i
Set excelSheet = Nothing '释放
Set excelBook = Nothing
Set excelApp = Nothing
