数据导出excel 时候怎么把箭头的哪一行也导出来
CommonDialog1.FileName = ""
CommonDialog1.InitDir = App.Path '初始化保存路径
CommonDialog1.DefaultExt = "xls" '设置默认文件格式
CommonDialog1.Filter = "Excel 97 (*.xls)|*.xls"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) = 0 Then Exit Sub
fpSpread1.SaveToFile CommonDialog1.FileName, True
fpSpread1.ExportToExcel CommonDialog1.FileName, "sheet1", ""
|
|