http://delphi.ktop.com.tw/topic.php?TOPIC_ID=53818 這篇已經可以把1個StringGrid的資料存到Excel第1個Sheet裡面，假如我現在有3個StringGrid的資料要存到Excel第1,2,3個Sheet裡面，那要怎麼修改?謝謝

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=53818 這篇已經可以把1個StringGrid的資料存到Excel第1個Sheet裡面，假如我現在有3個StringGrid的資料要存到Excel第1,2,3個Sheet裡面，那要怎麼修改?謝謝 < face="Verdana, Arial, Helvetica"> RemycinLu 你好: 試試把原本迴圈的部分，改成以下這個樣子，行不行呢？ < class="code"> //...以上省略... ExcelSheets=ExcelBook.OlePropertyGet("Worksheets"); for(int k=0; k<3; k++) { TStringGrid *SG=NULL; SG=dynamic_cast(FindComponent("StringGrid"+IntToStr(k+1))); if(SG) { ExcelSheet=ExcelSheets.OlePropertyGet("Item", k+1); for(int i=0; iColCount; i++) { for(int j=0; jRowCount; j++) { AnsiString szCol; AnsiString szRow; int m=i/COL_CYCLE-1; int n=i%COL_CYCLE; szCol=(m<0)? (AnsiString)szColCycle[n]: (AnsiString)szColCycle[m]+(AnsiString)szColCycle[n]; szRow=(IntToStr)(j+1); ExcelRange=ExcelSheet.OlePropertyGet("Range", StringToOleStr(szCol+szRow)); ExcelRange.OlePropertySet("Value", StringToOleStr(SG->Cells[i][j])); Application->ProcessMessages(); } } } } AnsiString szXlsFile=ExtractFilePath(Application->ExeName)+"test1.xls"; //...以下省略... -- Enjoy Researching & Developing --