导出excel设置行标题 我的dbgrid里有字段A123。。2000求导出到EXCEL后每100行生成一个箱条码,就是对EXCEL生成的处理比如123。。100AAAAAAAAA101。200BBBBBBBBB求高手帮忙啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TfmMain.Button1Click(Sender: TObject);var FExcel: Variant; FWorkbook: Variant; FWorksheet: Variant; i, j, fnum: Integer;begin Screen.Cursor := crHourGlass; try FExcel := CreateOleObject('excel.application'); except Screen.cursor := crDefault; MessageDlg('Could not start Microsoft Excel!', mtError, [mbCancel], 0); Exit; end; try FWorkBook := FExcel.WorkBooks.Add; //FWorkSheet := FWorkBook.WorkSheets.Add; FWorkSheet := FWorkBook.WorkSheets[1]; with DBGrid1.DataSource.DataSet do begin First; i := 0;//字段A所在的列,这里假设是第一列 j := 0; fnum := 0; while not Eof do begin inc(j); Inc(fnum); {for i := 0 to DBGrid1.Columns.Count - 1 do begin if DBGrid1.Columns[i].Visible then FWorkSheet.Cells[1, 1] := DBGrid1.Columns[i].Field.DisplayText; end;} FWorkSheet.Cells[j, i + 1] := DBGrid1.Columns[i].Field.DisplayText; if fnum = 100 then//每100行进这个判断 begin Inc(j);//下一行用来显示条码 FWorkSheet.Cells[j, i + 1] := 'AAAAAAAAA'; fnum := 0; end; Next; end; end; finally FExcel.Visible := True; Screen.Cursor := crDefault; end;end; 大哥,谢谢!在麻烦你一下,A B1 AAAAAA2 AAAAAA3 AAAAAA。。 ..100 AAAAAA101 BBBBBB。。 BBBBBB200 BBBBBB我想导出EXCEL后,将该DBGRID中A列INSERT到另外一张表中,且A列的每100行都对应B插入 怎样取一串字符串的最右边5个字符? 子窗体来回切换时,主窗体闪动,怎么解决 有关DBGrid的问题!!! 使用ADO怎样调用存储过程(带输入、输出参数) 请教如何使用datetimepicker 安装盘 有谁做过带check选择框的树形结构的treeview??紧急等待!!关注!!(100分) 怎样用DELPHI调用C语言编写的.exe文件 怎样在dbgrid中显示memo字段的内容? 为什么我的信誉值变97了,下降了3分,怎么能升会来? 哪位兄弟能不能帮我把这个函数转成delphi,多谢~ 求Delphi中日期时间相减的方法
procedure TfmMain.Button1Click(Sender: TObject);
var
FExcel: Variant;
FWorkbook: Variant;
FWorksheet: Variant;
i, j, fnum: Integer;
begin
Screen.Cursor := crHourGlass;
try
FExcel := CreateOleObject('excel.application');
except
Screen.cursor := crDefault;
MessageDlg('Could not start Microsoft Excel!', mtError, [mbCancel], 0);
Exit;
end; try
FWorkBook := FExcel.WorkBooks.Add;
//FWorkSheet := FWorkBook.WorkSheets.Add;
FWorkSheet := FWorkBook.WorkSheets[1];
with DBGrid1.DataSource.DataSet do
begin
First;
i := 0;//字段A所在的列,这里假设是第一列
j := 0;
fnum := 0;
while not Eof do
begin
inc(j);
Inc(fnum);
{for i := 0 to DBGrid1.Columns.Count - 1 do
begin
if DBGrid1.Columns[i].Visible then
FWorkSheet.Cells[1, 1] := DBGrid1.Columns[i].Field.DisplayText;
end;}
FWorkSheet.Cells[j, i + 1] := DBGrid1.Columns[i].Field.DisplayText;
if fnum = 100 then//每100行进这个判断
begin
Inc(j);//下一行用来显示条码
FWorkSheet.Cells[j, i + 1] := 'AAAAAAAAA';
fnum := 0;
end;
Next;
end;
end;
finally
FExcel.Visible := True;
Screen.Cursor := crDefault;
end;
end;
大哥,谢谢!在麻烦你一下,
A B
1 AAAAAA
2 AAAAAA
3 AAAAAA
。。 ..
100 AAAAAA101 BBBBBB
。。 BBBBBB
200 BBBBBB我想导出EXCEL后,将该DBGRID中A列INSERT到另外一张表中,且A列的每100行都对应B插入