操作excel问题**

chenyongci

我的需求是这样，把docview中的内容输出到excel文件中，现在数据都是能导入到excel中了，但是在平台中对于sheetdoc的页面设置不能应用到目的excel中，因此就采取导入完后，再对excel文件进行操作。
现在利用DispatchHelper，，但是遇到一个问题，把页面设置成横向打印，不知道怎么操作。现在的代码如下：
    o   :=   ComObj.CreateOleObject('excel.Application');
    eapp := system.DispatchHelper.Create(o);
    eapp.Propertyput('Visible', [false]);
    odocs:=eapp.PropertyGet('WorkBooks',[]);
    docs := System.DispatchHelper.Create(odocs);
    docs.InvokeMethod('Open', [filenames]);
    odoc:= docs.PropertyGet('Item',[1]);
    doc := System.DispatchHelper.Create(odoc);
    oworksheets:= doc.PropertyGet('Sheets',[]);
    worksheets := System.DispatchHelper.Create(oworksheets);
    oworksheet:= worksheets.PropertyGet('Item',[1]);
    worksheet := System.DispatchHelper.Create(oworksheet);
    worksheet.PropertyPut('name',['test']);
    opagesetup:= worksheet.PropertyGet('PageSetup',[]);
    PageSetup:= System.DispatchHelper.Create(opagesetup);
    pagesetup.PropertyPut('CenterFooter',['第&页，共&N页']) ;
//    pagesetup.PropertyPut('Orientation',['xlLandscape']) ;

录制宏后，横向打印的设置代码如下：
With ActiveSheet.PageSetup
       .Orientation = xlLandscape

现在就是不知道怎么获取xlLandscape这个变量的值，网上搜索得到Excel.XlPageOrientation.xlLandscape

请问，，在平台中，我该怎么做？？多谢了？
或者，在平台中对sheetdoc的页面设置有其它方法可以直接应用到excel文件中吗？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=27065
请楼主看看这个帖子吧。