fpspread中的数据导出到excel表中 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → fpspread中的数据导出到excel表中

标题：fpspread中的数据导出到excel表中

只看楼主

c_23929427

等　级：新手上路
帖　子：244
专家分：0
注　册：2006-4-22

楼主

问题点数：0 回复次数：3

fpspread中的数据导出到excel表中

我把数据库中的数据查询到fpspread中，想导出到excel中连标题一起导出，我现在用的是fpspread的自带方法ExportToExcel，可是没把标题导出，请问我怎么才能把标题一起导出呢？谢谢解答

搜索更多相关主题的帖子: excel　fpspread　数据　

2006-12-14 09:26

c_23929427

等　级：新手上路
帖　子：244
专家分：0
注　册：2006-4-22

第 2 楼

得分:0

呵呵，解决了做了简单点
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