Excel导出的代码,就是之前想向你请教的,
strPath = gfSaveShow(CShort(CG_intSaveExcel), "XXXⅠ")
If strPath <> vbNullString Then
objXls.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
Call rptHAC2010P.Run()
objXls.Export(rpt.Document, strPath)
objXls = Nothing
rptHAC2010P = Nothing
End If
其他的属性没有设置
是不是因为有什么漏掉的属性没有设置? |