急!急问个位高手!怎么样把CListCtrl里面的数据导入到excel里面!

Question

急!急问个位高手!怎么样把CListCtrl里面的数据导入到excel里面!

Answer 1

用ADO连接EXCEL文档,然后遍历列表,
然后用SQL语句"Insert into ...."插入数据。

Answer 2

使用Office的自动化接口可以直接操作excel文档

Answer 3

if the Microsoft Excel Driver is installedCDatabase database;
CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; 
CString sExcelFile; 
CString sSql;TRY
{
sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver,sExcelFile,sExcelFile);if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
{
sSql = "CREATE TABLE Raportti (Col1 TEXT,Col2 TEXT,Col3 TEXT,Col4 TEXT)";database.ExecuteSQL(sSql);CString Mydata1 ,Mydata2 ,Mydata3 ,Mydata4 ,;
int ii = 0;while (ii++<ListCtrl Items){ 
Mydata1 =m_list.GetItemText(ii,0);
Mydata2 =m_list.GetItemText(ii, 1);
Mydata3 =m_list.GetItemText(ii, 2);
Mydata4 =m_list.GetItemText(ii, 3);
}sSql.Format("INSERT INTO Raport (Mydata1 ,Mydata2 ,Mydata3 ,Mydata4 ) VALUES ('%s','%s','%s','%s')", Mydata1 ,Mydata2 ,Mydata3 ,Mydata4 );
database.ExecuteSQL(sSql);
}} 
database.Close();
}
CATCH_ALL(e)
{
TRACE1("Driver not installed: %s",sDriver);
}
END_CATCH_ALL;
}if not, write to a CSV(Comma Separated Value) file(http://www.ioplex.com/~miallen/libmba/dl/src/csv.c).

Answer 4

CFile xlsFile;
xlsFile.Open(strFileName,.....);for(i=0;i<m_ctlListInfo.GetItemCount();i++)
{
for(j=0;j<23;j++)
{
strTemp=m_ctlListInfo.GetItemText(i,j);
strData=strData+strTemp+"\t";
}
strData+="\n";
}
xlsFile.SeekToEnd();
xlsFile.Write(strData,strData.GetLength());
//End Save Data To xls File
xlsFile.Close();