【结贴】如何把docsheet导出到excel**

ccseasy

如题: 另 每导一次,新增一个Excel的sheet,并rename
请务必告知方法. 相关帖子拜读过.没得出结论

ccseasy

lfilename:='c:\格式一.xls';

  Excel:= ComObj.CreateOleObject('Excel.Application');
  app := System.DispatchHelper.Create(Excel);
  app.PropertyPut('Visible', [True]);
  workbook := app.PropertyGet('Workbooks',[]);
  docs := System.DispatchHelper.Create(workbook);

往下应该新建sheet  但不知如何实现!

jiahaiming

我用Office Excel录了一段宏（创建sheet，并修改sheet名称），楼主参考一下：
Sub Macro2()
'
' Macro2 Macro
' 宏由 贾海明(JHM)-1 录制，时间:
'

'
    Sheets("Sheet1").Select
    Sheets.Add
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "newSheet"
End Sub

ccseasy

sheet:= docs.PropertyGet('Sheets',[]);
  sheets := System.DispatchHelper.Create(sheet);
这里过不去

ccseasy

lfilename:='c:\格式一.xls';

  Excel:= ComObj.CreateOleObject('Excel.Application');
  app := System.DispatchHelper.Create(Excel);
  app.PropertyPut('Visible', [True]);
  workbook := app.PropertyGet('Workbooks',[]);
  docs := System.DispatchHelper.Create(workbook);
  docs.InvokeMethod('open', ['c:\格式一.xls',false]);
  sheet:= docs.PropertyGet('Worksheets',[]);
  sheets := System.DispatchHelper.Create(sheet);
  sheets.InvokeMethod('add',[111]);
过不去.不知哪里有问题

jiahaiming

我这里已经打开了文件了，就是copy有问题，你也试试看。
var
  lFileName, lSource: String;
  oExcel: object;
  app, workbooks, sourceworkbook, sourceworksheets, sourceworksheet,
  workbook, worksheets, worksheet: DispatchHelper;
begin
  lfilename:='c:\demo.xls';
  lSource := 'c:\source.xls';

  oExcel:= ComObj.CreateOleObject('Excel.Application');
  app := DispatchHelper.Create(oExcel);
  app.PropertyPut('Visible', [True]);

  workbooks := DispatchHelper.Create(app.PropertyGet('Workbooks',[]));
  sourceworkbook := DispatchHelper.Create(workbooks.InvokeMethod('Open',[lSource]));//打开文件

  sourceworksheets := System.DispatchHelper.Create(sourceworkbook.PropertyGet('Sheets',[]));
  sourceworksheet := System.DispatchHelper.Create(sourceworksheets.PropertyGet('Item',[1]));
  //worksheet.PropertyPut('Name', ['wxw']);

  workbook := DispatchHelper.Create(workbooks.InvokeMethod('Open',[lFileName]));//打开文件
  worksheets := System.DispatchHelper.Create(workbook.PropertyGet('Sheets',[]));
  worksheet := System.DispatchHelper.Create(worksheets.PropertyGet('Item',[1]));

ccseasy

打开文件没问题.我早就成功了.现在是怎么新建的问题

jiahaiming

我用的是copy方法，但是有问题：
sourceworksheet.InvokeMethod('Copy', [oWorksheet]);

ccseasy

我现在add一个sheet也没问题了.就是copy了

ccseasy

辛苦老贾了!请尽快帮我解决.一天一个excel文件的存,用户快跟我急了.