导excel格式问题!!!!
try
app := createoleobject('excel.application');
except
messagedlg('Excel 没有正确安装!', mterror, [mbok], 0);
exit;
end;
app.visible := true;
app.workbooks.add;
for i:=0 to dg.Columns.Count -1 do
begin
app.cells(1,i+1):=dg.Columns[i].Title.Caption ;
end;
dg.DataSource.DataSet.First;
for k := 0 to dg.DataSource.DataSet.RecordCount -1 do
begin
for i := 0 to dg.Columns.Count -1 do
app.cells(k+2, i+1) := dg.DataSource.DataSet.FieldByName(dg.Columns[i].FieldName).AsString ;
dg.DataSource.DataSet.Next;
end;
// app.activeworkbook.close(false);
app.quit;
app := unassigned;
上述原代码是把dbgrid中的数据导入到excel中去,但是导入的数据全部是文本格式,我想导入为数值格式时应给怎么办?