如何把TStringGrid中的数据存成excel文件（注：在没有装excel的机器上）？
如题！望高手解答啊...... 问题点数：100、回复次数：6Top
1 楼invalid（空心菜（Python是个好东东，大家多用用！））回复于 2002-12-02 19:43:35 得分 0
微软专家可能能搞定吧。Top
2 楼copy_paste（木石三）回复于 2002-12-02 19:48:11 得分 0
保存成以Cells以VK_TAB分隔的格式的文本文件，每条“记录”用回车分开。
保存完成后就可以用Excel打开了。
简单实用。Top
3 楼gf432（一般人）回复于 2002-12-03 16:01:20 得分 0
还望2楼说清楚！我还是不太明白！Top
4 楼hdaq（一生何求）回复于 2002-12-03 18:26:21 得分 100
可以使用.csv格式保存
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
for(int i = 0 ; i< StringGrid1->RowCount;i++)
{
for(int j = 0 ;j< StringGrid1->ColCount;j++)
{
StringGrid1->Cells[j][i] = IntToStr(i*2+j);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString tmpstr;
TStringList *TempList = new TStringList; // declare the list
try
{ //use the string list
TempList->Clear();
for(int i = 0 ; i< StringGrid1->RowCount;i++)
{
tmpstr = StringGrid1->Cells[0][i];
for(int j = 1 ;j< StringGrid1->ColCount;j++)
{
tmpstr = tmpstr + "," + StringGrid1->Cells[j][i];
}
TempList->Add(tmpstr);
}
TempList->SaveToFile("d:\\abc.csv");
}
__finally
{
delete TempList; // destroy the list object
}
}
//---------------------------------------------------------------------------Top
5 楼binbin（破坏分子）回复于 2002-12-03 19:46:31 得分 0
说白了,就是生成以","号分隔每个字段,以回车分隔每条记录的文本文件.
保存时以.csv为后缀.俺以前就是这么干的.Top
6 楼gf432（一般人）回复于 2002-12-04 10:34:29 得分 0
这个这个。。。这个方法还真管用，虽然有点歪门邪道，但也还不错！Top
