DBgrideh导出到excel

m_strFilePath = m_strFilePath + m_strFilename;
TDBGridEhExportClass ExpClass;
ExpClass = (TDBGridEhExportAsXLS().ClassType());
SaveDBGridEhToExportFile(ExpClass, m_pclDBGridEh, m_strFilePath, true);
MyMessageBox("已成功导出", MB_OK);
this->Close();