delphi导出excel的问题，通过马上给分！

[deansroom]

遇到一个问题请大家帮帮忙！
现在做一个东西，需要把EXCEL导入ACCESS数据库，现在已经实现，然后在导出本来是竖排的格式

例如：
人员编号 姓名 考勤日期 上班1 下班1 上班2
00010 孟宪凤 2007-06-15 06:47 17:47
00010 孟宪凤 2007-06-16 08:50 21:04
00010 孟宪凤 2007-06-17 08:32 17:05
00010 孟宪凤 2007-06-18 06:59 17:34
00010 孟宪凤 2007-06-19 07:13 17:32
变成：
人员编号 00010 00010 00010 00010
姓名 孟宪凤 孟宪凤 孟宪凤 孟宪凤
考勤日期 2007-06-15 2007-06-16 2007-06-17 2007-06-18
上班1 06:47 08:50 08:32 06:59
下班1 17:47 21:04 17:05 17:34
上班2

[whisht]

交叉表

[melonboy111]

顶！~

[baseyueliang]

读取EXcel处的代码作些文章不可以么

[melonboy111]

关键是不知道怎么做文章！~

[luxuewei5214]

在Access中实现下面那个表不太好实现，应为每列中的数据类型都是不一样的

[hsmserver]

写Excel的时转一下不就行了

[brightyang]

function ReadExcelToGrid(ExcelFileName:string;Cur_grid:TStringGrid;number_row,number_col,caption_row,caption_col,start_row,start_col:integer;caption_CH,caption_EN:string):integer;
var
sheet: TSpreadSheet;
i,j,cur_rowcount,result_val:integer;
temp_val:string;
begin
result_val:=0;
with TMSExcel.Create(nil) do
begin
try
try
//showmessage(ExcelFileName);
LoadFromFile(ExcelFileName);
except
showmessage( "读入Excel文件出错 ");
result_val:=-1; //未完，还有英文对话框
result:=-1;
end;
sheet := Sheets.SpreadSheet(0) ;
if Assigned(sheet) then
begin
{temp_val:= getvstr(sheet.Cells.GetValue(caption_col-1, caption_row-1));
showmessage(temp_val); }

temp_val:=getvstr(sheet.Cells.GetValue(caption_col-1, caption_row-1));
if not ((temp_val < > " ") and (pos(caption_Ch,temp_val) >0) and (pos(caption_en,temp_val) >0)) then
begin
////8-9 日增加一行提示
//showmessage( "显示文件题头的名字: " + temp_val );
showmessage( "您选择的文件不是 "+caption_CH);
result_val:=-1;
result:=-1; //未完，还有英文对话框
exit;
end
else
begin
cur_rowcount:= start_row-1;
for i := start_row to sheet.Cells.UsedRowCount do //从excel文件的第二行开始读入，（第一行是标题）
begin
temp_val:=getvstr(sheet.Cells.GetValue((number_col-1), i));
// if (temp_val= " ") and (i >number_row-1) then break;
for j := start_col-1 to sheet.Cells.UsedColCount do
begin
temp_val:=getvstr(sheet.Cells.GetValue(j, i));
Cur_grid.Cells[j,cur_rowcount] := getvstr(sheet.Cells.GetValue(j, i));
end;
cur_rowcount:=cur_rowcount+1;
Cur_grid.RowCount:= Cur_grid.RowCount+1;
end;
end;
end;
finally
Free;
end;
end;
if result_val=0 then
begin
cur_rowcount:=Cur_grid.RowCount-1 ;
for i:= start_row-1 to Cur_grid.RowCount-1 do
begin
try
temp_val:= getvstr(cur_grid.Cells[(number_col-1),i]);
if (temp_val= " ") and (i >number_row-1) then
begin
Cur_grid.RowCount:= Cur_grid.RowCount - 1;
cur_rowcount:=cur_rowcount-1;
end;
except
break;
end;
end;
end;
result:=result_val;

end;

[deansroom]

谢谢大家的回答，我已经解决了，就是用的交叉表，但是交叉表也有一定的弱点，但是还要谢谢大家！现在散分！

[deansroom]

谢谢大家！