使用开发工具Delphi多线程打开Excel文档的有关问题

使用开发工具Delphi多线程打开Excel文档的问题
使用开发工具Delphi在多线程外面先打开EXCEL文档
  vExcel := CreateOleObject('Excel.Application');
  try
  vExcelBook := vExcel.WorkBooks.Open(sFile,0,false,5,'','',true);
  except
  end;

然后把 vExcel和vExcelBook当做参数传入线程中，但是在同时执行多个线程，当线程中调用vExcel和vExcelBook的属性时，就会弹出错误提示。

有什么方法可以解决这个问题？不想复制多个EXCEL文档，然后每个线程都使用不同的文档。

------解决方案--------------------
那你设置一个临界区呗

最好是将excel读入多个变量,然后以参数传入每个线程.这样效率高些
------解决方案--------------------

探讨

使用开发工具Delphi在多线程外面先打开EXCEL文档
  vExcel := CreateOleObject('Excel.Application');
  try
    vExcelBook := vExcel.WorkBooks.Open(sFile,0,false,5,'','',true);
  except
  end;

然后把 vExcel和vExcelBook当做参数传入线程中，但是在同时执行多个线程，当线程中调用vExcel和vExcelBook的属性时，就会弹出错误提示。

有什么方法可以解决这个问题？不想复制多个EXCEL文档，然后每个线程都使用不同的文档。