如何使用delphi中操作excel的控件来控制excel中sheet的名字？如何合并sheet中指定的区域？

Question

谢谢 sheet名字就是左下默认是sheet1之类的名字
另外在一个book中插入一张sheet是不是只要
Excelworksheet1.ConnectTo(excelworkbook1.Worksheets[index] as _worksheet);
这样就可以了？

Answer 1

没有人知道吗？又如何在book中的指定位置插入sheet呢？

Answer 2

我有个列表在http://www.0mai.com/bbs/down_default.asp 
http://www.0mai.com/bbs上有说明

Answer 3

呵呵，告诉你一个方法：1.你打Excel，在"工具"菜单中选择"宏---录制新宏"
2.更改一下Sheet1的名称
3.结束录制，然后查看录制的该"宏1"的代码就行了:)

Answer 4

可以参考：
http://delphi.about.com/library/weekly/aa090903a.htm

Answer 5

var
    ExcelApp: Variant;
begin
    try
    // create the Excel object
      ExcelApp := CreateOleObject('Excel.Application');
      ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
      ExcelApp.Caption := 'Test';
      ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Grid Data';  
    except
      application.MessageBox('只有安装了Excel才能有此功能！','警告',mb_ICONInformation+mb_OK);
    end;
end;

Answer 6

谢谢 可是这些好像都是OLE方法，我需要的是使用delphi控件的方法。
另外，使用控件来保存文件用什么method？需要指定目录名和文件名

Answer 7

excelapplication1.SheetsInNewWorkbook[1]:=12;//定义一个BOOK中有多少
SHEET
excelworksheet4.Name:='4';
excelworksheet3.Name:='3';
excelworksheet2.Name:='2';
excelworksheet1.Name:='1';

Answer 8

谢谢你的回复，再请教一下，怎么在DELPHI的EXCEL控件中调用另存为对话框，要求能预先设置好存放路径和文件名。我使用ExcelWorkbook1.SaveAs(‘文件名’,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);老是报一个转换异常.说不能转换variant类型到整数类型。Could not convert variant of type(Error) into type(integer).
谢谢

Answer 9

excelworksheet2.SaveAs('e:\temp\123.xls',XLEXCEL9795,' ')

Answer 10

这是存储一张sheet的内容吧？如果要存放一个book中所有12张sheet的内容到一个xls文件呢？

Answer 11

excelworksheet1.SaveAs('c:\Program File\\Boland\test.xls',XLEXCEL9795,' ')