猎
猎手1号
Unregistered / Unconfirmed
GUEST, unregistred user!
我是先用OLE方法先创建一个EXCEL文档，在其中输入内容，再将这些内容拷贝到RICHEDIT
控件中，然后在再将RICHEDIT的内容保存为RTF文档。在Win2000下都没有问题，拷贝出来
的内容会自动带有表格线，一到98下面，表格线就变没了。代码大致如下：
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
excelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].activate;
ExcelApp.Cells[1,1]:='.....';
......
ExcelApp.Cells[9,9]:='......';
ExcelApp.Cells[A1,I9].Copy;
RichEdit1.PasteFromClipboard;
RichEdit1.Lines.SaveToFile('tmp.rtf');
end;
请大家帮忙看看为什么会有这个问题，该如何解决。不使用EXCEL，用别的方法解决也可以。
控件中，然后在再将RICHEDIT的内容保存为RTF文档。在Win2000下都没有问题，拷贝出来
的内容会自动带有表格线，一到98下面，表格线就变没了。代码大致如下：
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
excelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].activate;
ExcelApp.Cells[1,1]:='.....';
......
ExcelApp.Cells[9,9]:='......';
ExcelApp.Cells[A1,I9].Copy;
RichEdit1.PasteFromClipboard;
RichEdit1.Lines.SaveToFile('tmp.rtf');
end;
请大家帮忙看看为什么会有这个问题，该如何解决。不使用EXCEL，用别的方法解决也可以。