delphi7.0+winxp+officexp中,操作excel的有关问题
delphi7.0+winxp+officexp中,操作excel的问题。
我用delphi自带的excel组件操作xls文件,总提示ole错误。无法打开一个已经存在的文件,只好用创建ole的方法来操作。
定义:
ExcelApp,WorkBook:Variant;
pFile:String;
创建:
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
ExcelApp.WorkBooks.Open(pFile);
我想在pfile文件中追加一个工作表,然后往这个工作表添加数据。请问我该怎么做?
我用ExcelApp.Sheets.Add();的方式添加,添加的工作表总是在最后工作表的前面,就是在活动工作表的前面。
------解决方案--------------------
好象Excel本身添加的时候就是在前面
------解决方案--------------------
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=True;
WorkBook:=ExcelApp.WorkBooks.Open('E:\moban2.xls');
ExcelApp.worksheets.add;
ExcelApp.WorkSheets[1].Activate; //这时Worksheets[1]就是新添加的,这时处在sheet[1]的位置,选中
ExcelApp.Worksheets[1].Move(null,ExcelApp.Worksheets[4]);//把它放到第四个sheet后面
delphi 7 and Excel2003 下通过
我用delphi自带的excel组件操作xls文件,总提示ole错误。无法打开一个已经存在的文件,只好用创建ole的方法来操作。
定义:
ExcelApp,WorkBook:Variant;
pFile:String;
创建:
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
ExcelApp.WorkBooks.Open(pFile);
我想在pfile文件中追加一个工作表,然后往这个工作表添加数据。请问我该怎么做?
我用ExcelApp.Sheets.Add();的方式添加,添加的工作表总是在最后工作表的前面,就是在活动工作表的前面。
------解决方案--------------------
好象Excel本身添加的时候就是在前面
------解决方案--------------------
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=True;
WorkBook:=ExcelApp.WorkBooks.Open('E:\moban2.xls');
ExcelApp.worksheets.add;
ExcelApp.WorkSheets[1].Activate; //这时Worksheets[1]就是新添加的,这时处在sheet[1]的位置,选中
ExcelApp.Worksheets[1].Move(null,ExcelApp.Worksheets[4]);//把它放到第四个sheet后面
delphi 7 and Excel2003 下通过