由数据集保存并打开Excel后，之前打开的Excel文档被关闭，有什么解决方法，使之不影响已打开的Excel吗？

Question

下面给出相关代码，麻烦帮找找问题
try
  v:= GetActiveOleObject('Excel.application');
except
  try
    v := CreateOleObject('Excel.application');
  except
    MessageBox(GetActiveWindow,'本机未安装Microsoft Excel'，‘提示’，mb_ok);
    exit;
  end;
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，先保存在系统的临时文件夹，修改转换后保存进需要保存的地方

Answer 1

建议发发新帖子，旧的看的人少~