在數據導出前,在第一列插入一行,用于存放標題列,導出后再將此列刪除即可with fp Dim i As Long .MaxRows = .MaxRows + 1 .InsertRows 1, 1 Dim temp As Variant For i = 1 To .MaxCols .col = i .row = 1 .GetText i, 0, temp .SetText i, 1, temp Next i .ExportExcelBook "", "" .DeleteRows 1, 1 .MaxRows = .MaxRows - 1 end with也不知這個符合你的要求么。
搜索吓grapecity
以下两个方案供参考方案1:
另加spread2,比spread1多一行
行移,spread1的标题移到spread2的第一行方案2:
加过程,把导出的excel第一行插入行,spread的表头写入excel第一行
Dim i As Long
.MaxRows = .MaxRows + 1
.InsertRows 1, 1
Dim temp As Variant
For i = 1 To .MaxCols
.col = i
.row = 1
.GetText i, 0, temp
.SetText i, 1, temp
Next i
.ExportExcelBook "", ""
.DeleteRows 1, 1
.MaxRows = .MaxRows - 1
end with也不知這個符合你的要求么。
我试下你说的方法
FpSpread的固定行数 有这个属性没有 我没找到
再帮帮
呵呵