vs2010数据保存为excel格式

void CvcexcelDlg::OnClickedRunexcel()
{
// TODO: 在此添加控件通知处理程序代码
CTime time = CTime::GetCurrentTime(); //得到当前时间
CString strExcelFile; // 时间格式转换
strExcelFile = time.Format(_T("E:\\%Y年%m月%d日%H时%M分%S秒.xls"));
CDatabase database;
CString sDriver = L"MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
CString sSql;

int W = 100;
int L = 100;
int H = 100;
int C = 100;
int HI = 100;
int P = 100;
int T = 100;

TRY
{
// 创建进行存取的字符串
sSql.Format(_T("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s"),
sDriver, strExcelFile, strExcelFile);

// 创建数据库 (既Excel表格文件)
if(database.OpenEx(sSql,CDatabase::noOdbcDialog))
{
// 创建表结构(姓名、年龄)    
sSql = L"CREATE TABLE Exceldemo (时间 NUMBER,体重 NUMBER,体长 NUMBER,体高 NUMBER,胸宽 NUMBER,腹宽 NUMBER,肉产量 NUMBER,背膘厚 NUMBER)";
database.ExecuteSQL(sSql);