怎么没高人回答呢?:(程序控制将保存的.xls后缀Excel文件转换成标准格式的Excel文件保存并打开,报错,麻烦帮找找原因及解决方法?(100分)

  • 主题发起人 主题发起人 coffee_tu
  • 开始时间 开始时间
C

coffee_tu

Unregistered / Unconfirmed
GUEST, unregistred user!
下面给出相关代码,麻烦帮找找问题
try
v := CreateOleObject('Excel.application');
except
MessageBox(GetActiveWindow,'本机未安装Microsoft Excel',‘提示’,mb_ok);
exit;
end;
v.visible := false;
v.workBooks.open(FilePath);//打开临时文件
aSheet := v.workSheets.Item[1];
aSheet.cells.Select;
v.Selection.Copy;
v.WorkBooks.Add;
aSheet := v.workSheets.Item[1];
aSheet.Paste;
Clipbrd.Clipboard.Clear; //清空剪贴板数据
v.WorkBooks[1].close;
v.Selection.Columns.AutoFit;//自动适应列宽
aSheet.cells.Select;
v.Selection.Font.Size := 10; //修改字号为10
v.ReferenceStyle := 0;//显示格式为A2
v.Visible := true;
DeleteFile(FilePath);
v.workBooks[1].SaveAs(FilePath);//转换格式后保存

代码:

以上一大段是对保存在系统临时文件夹的Excel文档进行格式转换到标准格式的Excel,转换后保存进需要保存的路径,并打开。
但是在此过程中,[red]某些情况下[/red]会遇到弹出以下介绍的提示框:
框标题是“Microsoft Excel”,框中显示:不能读取记录“?”是否继续列出每个错误,框下方是三个按钮,分别是“是”“否”“取消”,点击“否”时将以标准格式的Excel保存并打开;点击“是”时如果仍有不能读取的记录,将继续弹出该框,直到以标准格式的Excel保存并打开为止;点击“取消”将取消保存打开操作。
想麻烦各位高人帮找找是什么原因引起这个问题?而且只是在导出某些表格的时候碰到!请给出解决办法。
 
描述的不清楚?
 
打开前要把v释放掉,这样应该就可以了,你试试看
 
打开前要把v释放掉?可以吗?我试试看
 
已解决,结贴了
 
结贴了怎么没有分分数呢?
 
后退
顶部