用delphi操作excel，有谁会，指点一下

Question

用delphi程序控制excel，实现单元格的合并？servers 板上关于excel的组件怎么用？

Answer 1

搜索一下吧，多得很！

Answer 2

能告诉有关资料的详情也可

Answer 3

小新哥知道

Answer 4

能说一个具体的网站吗？

Answer 5

组建时超烂，
用OLE对象吧，控制起来感觉很爽的。

Answer 6

哎？我也碰到这个问题，你和别的网友知道如何在delphi中用excel实现报表打印？呢都告诉我呢？

Answer 7

几位同仁，如果有代码例子，请贴一些观看以下好吗？

Answer 8

到http:/www.cnborn.com/delphi/excel.zip取控件
使用方法：把控件取下后
1.安装该控件至你Delphi
2.把控件拖到你的窗体上取名Excel1
3.把该控件的DBgrid属性指向你要导出数据的DBgrid。
4.调用Excel1.SetDataToExcel方法。
试试吧，祝你好运。

Answer 9

var
XLApp: Variant;
Sheet: Variant;
i, j: Integer;
filename: Tfilename;
const
xlWBATWorksheet = -4167;
wdDoNotSaveChanges = 0;
begin
if Savedialog1.Execute then
filename := Savedialog1.FileName
else
abort;
XLApp := CreateOleObject('Excel.Application');
XLApp.Visible := True;
XLApp.Workbooks.Add[XLWBatWorksheet];
XLApp.Workbooks[1].Worksheets[1].Name := 'sheet1';
Sheet := XLApp.Workbooks[1].Worksheets['sheet1'];
for i := 1 to stringgrid18.RowCount do
for j := 1 to stringgrid18.ColCount do
Sheet.Cells[i, j] := stringgrid18.Cells[j - 1, i - 1];
end
else
begin
for i := 1 to stringgrid14.RowCount do
for j := 1 to stringgrid14.ColCount do
Sheet.Cells[i, j] := stringgrid14.Cells[j - 1, i - 1];
end;
if not VarIsEmpty(XLApp) then begin
XLApp.DisplayAlerts := False; // Discard unsaved files....
xlApp.ActiveWorkBook.SaveAs(filename);
// XLApp.Quit;
end;

end;

Answer 10

delphi控件面板中有个formula

Answer 11

谢谢1974同志，及众位的智慧，我想要向一book里添加一个sheet怎么办？

Answer 12

upup
数据库与Ｅｘｃｅｌ文件的双向互导我都会．

Answer 13

添加新工作表：
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;

Answer 14

ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;

ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);

for idx:=1 to 30 do begin
ExcelWorksheet1.Cells.Item[idx,1]:='Hello '+IntToStr(idx);
ExcelWorksheet1.Cells.Item[idx,2]:= idx;
end;

ExcelWorksheet1.Cells.Item[31,2]:='=SUM(B1:B30)';
ShowMessage('Total is '+ExcelWorksheet1.Cells.Item[31,2]);

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;