QTP操作Excel的一个错误:"Excel 无法打开文件......"

在测试框架很大的情况下，一个小错误都可能花掉你几个小时的时间去找问题，今天我就遇到了，大家如果以后遇到可以少花点时间了，在一些函数中创建了SQL链接，函数中又调用
/w;y9[8w.lT0
5G;n ^l/J@ uxa0了其他函数，其他函数又需要打开些文件进行操作，结果一直报错，一步步跟踪调试找到了原因，EXCEL重复打开不会出错、重复创建链接也不51Testing软件测试网G2H y#T:wo2U~I
51Testing软件测试网Km+e1H b]+sY
会出错，但如果创建了链接没释放又要打开此文件就会报错。
xU'r.kV&~#^
_051Testing软件测试网-nA0[$h8LPji
先看一段代码：51Testing软件测试网+e }!h$P!E3M6Fd FG
'赋值51Testing软件测试网%lJzgT0]0]5U1Y~:qw
ExcelFileFullName = "C:\test.xlsx"
qgE-cC;c+H7m0sheet = "test"
7K/nbW)H0'创建链接
%K"I@_h&I0Set RTCconn= createobject("ADODB.Connection")51Testing软件测试网kkP"\k6l/ik\II
RTCconn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&ExcelFileFullName&";Extended Properties=Excel 8.0"51Testing软件测试网$ou6dz(tv)]r4j O
sql= "SELECT * FROM ["&sheet&"$]"&""51Testing软件测试网2o2Og8mH^5L$f
Set RecSet = RTCconn.Execute(sql)51Testing软件测试网,@r W-b)?^m
'打开EXCEL文件
*ov5M|9W[0Set bjExcel = CreateObject("Excel.Application")51Testing软件测试网}l iF ^nj8u~n
Set fExcel = objExcel.Workbooks.Open(ExcelFileFullName)
nd s(]?rj051Testing软件测试网&P2Rbl"R4a4q e
运行此段代码会报错，错误内容为“Excel 无法打开文件“test.xlsx”，因为文件格式或文件扩展名无效。请确定文件未损坏，并且文件扩展
0yX X&a*M0rK051Testing软件测试网4`/J/T!I%rX
名与文件的格式匹配。”51Testing软件测试网vB$A4um't`

rA0H8Z#{9C"o2`0此错误的原因是因为我们创建了SQL链接但没有释放，接下来又需要打开此EXCEL表格，而此EXCEL表格在创建了SQL链接后就被锁住了，再打开
'\7~-V-z6U'd^qih%J051Testing软件测试网jF
QI/D
T
就会报错，解决些问题的办法是要在打开EXCEL新把链接先关掉（RTCconn.Close）。