farpoint spread8 导出到EXCEL文件后 不包含标题,如何处理
VB6 中 farpoint spread8 导出到EXCEL文件后 不包含标题,如何处理,才能让导出的EXCEL 文件包含标题
导出语句:
F = fpSpread1.ExportToExcel(.FileName, "Sheet1", "")
[解决办法]
你所谓的标题是什么意思?
[解决办法]
相当烦杂,需要把标题栏加到表中,然后导出,之后再删除
[解决办法]
好长时间没用了。找了好长时间才找到!!
With VaDisp
'' .FormulaSync = False
'' .AutoCalc = False
.MaxRows = .MaxRows + .ColHeaderRows
.InsertRows 1, .ColHeaderRows
' .RowHeight(1) = 0
For i = 1 To .MaxCols
.Col = i
For j = 0 To .ColHeaderRows - 1
.Row = SpreadHeader + j
str1 = .Text
.Row = j + 1
.CellType = CellTypeEdit
.TypeHAlign = TypeHAlignLeft
.Text = str1
Next j
Next i
X = .ExportToExcel(FileName, "sheet1", App.Path & "\xls\LOGFILE.TXT") ', ExcelSaveFlagNone)
' .
' .FormulaSync = False
' .AutoCalc = False
.DeleteRows 1, .ColHeaderRows
.MaxRows = .MaxRows - .ColHeaderRows
' .AutoCalc = True
' .FormulaSync = True
End With
If X Then
MsgBox "引出数据成功", vbInformation + vbOKOnly, "龙奕提示"
Else
MsgBox "引出数据失败", vbExclamation + vbOKOnly, "龙奕提示"
End If