给你一个我自己用的将数据库中的内容导入到listview和listview中的内容导入到excel的两个函数
listview-> excel
void ImportExcel(TListView *sListView)
{
Variant ex,newxls,sh;
try
{
ex=CreateOleObject( "Excel.Application ");//启动Excel
ex.OlePropertySet( "Visible ",(Variant)true); //使Excel启动后可见
newxls=(ex.OlePropertyGet( "Workbooks ")).OleFunction( "Add ");//新建一个工作薄
sh=newxls.OlePropertyGet( "ActiveSheet ");
}
catch(...)
{
MessageBox(Application-> Handle, "启动Excel出错，可能由于Excel没有正确安装！ ", "错误 ",MB_ICONERROR);
return;
}
//sh.OlePropertyGet( "Cells ",1,6/*任意的常数*/).OlePropertySet( "Value ", "aaa ");
ex.OlePropertySet( "Caption ", "兰州电信终端设备销售公司报表 ");
if(sListView-> Items-> Count==0)return;
else
{
sh.OlePropertyGet( "Cells ").OlePropertyGet( "Font ").OlePropertySet( "Size ",11);
for(int i=0;i <sListView-> Columns-> Count;i++)
{
sh.OlePropertyGet( "Cells ",1,i+1).OlePropertySet( "Value ",(TVariant)sListView-> Columns-> Items[i]-> Caption);
sh.OlePropertyGet( "Cells ",1,i+1).OlePropertyGet( "Font ").OlePropertySet( "Bold ",true);
}
for(int i=0;i <sListView-> Items-> Count;i++)
{
for(int j=0;j <sListView-> Columns-> Count;j++)
{
if(j==0)
sh.OlePropertyGet( "Cells ",i+2,j+1).OlePropertySet( "Value ",(TVariant)sListView-> Items-> Item[i]-> Caption);
else
sh.OlePropertyGet( "Cells ",i+2,j+1).OlePropertySet( "Value ",(TVariant)sListView-> Items-> Item[i]-> SubItems-> Strings[j-1]);
Application-> ProcessMessages();
}
}
}
}
adoquery-> listview:
void TFrmSellQuery::FreshListView(TADOQuery *AQy_S, TListView *LView_D)
{
LView_D-> Columns-> BeginUpdate();
LView_D-> Items-> BeginUpdate();
LView_D-> Columns-> Clear();
LView_D-> Items-> Clear();
TListItem *lt;
TListColumn *ln;
TCanvas *cv = LView_D-> Canvas;
cv-> Font-> Size = 11;
ln = LView_D-> Columns-> Add();
ln-> Caption = "编号 ";
ln-> Width = 60;
int iWidth[1000];
for(int i=0;i <AQy_S-> Fields-> Count;i++)
{
ln = LView_D-> Columns-> Add();
ln-> Caption = AQy_S-> Fields-> Fields[i]-> FieldName;
iWidth[i+1] = cv-> TextWidth(ln-> Caption) + 30;
ln-> Width = iWidth[i+1];
LView_D-> Columns-> Items[i+1]-> Width = iWidth[i+1];
}
while(!AQy_S-> Eof)
{
lt = LView_D-> Items-> Add();
lt-> Caption = IntToStr(AQy_S-> RecNo);
lt-> ImageIndex = -1;
for(int i=0;i <AQy_S-> Fields-> Count;i++)
{
if(iWidth[i+1] <cv-> TextWidth(AQy_S-> Fields-> Fields[i]-> AsString) + 30)
{
iWidth[i+1] = cv-> TextWidth(AQy_S-> Fields-> Fields[i]-> AsString) + 30;
LView_D-> Columns-> Items[i+1]-> Width = iWidth[i+1];
}
lt-> SubItems-> Add(AQy_S-> Fields-> Fields[i]-> AsString);
}
AQy_S-> Next();
}
LView_D-> Columns-> EndUpdate();
LView_D-> Items-> EndUpdate();
}
