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

在测试框架很大的情况下，一个小错误都可能花掉你几个小时的时间去找问题，今天我就遇到了，大家如果以后遇到可以少花点时间了，在一些函数中创建了SQL链接，函数中又调用51Testing软件测试网"J|8qc'y&g7{2{q

c4@_4r'DV6f0了其他函数，其他函数又需要打开些文件进行操作，结果一直报错，一步步跟踪调试找到了原因，EXCEL重复打开不会出错、重复创建链接也不51Testing软件测试网L0Qo ?*NZ3b8uhY
51Testing软件测试网!h'x Nkq:r7z_
会出错，但如果创建了链接没释放又要打开此文件就会报错。
'qYwNH*{0
@ Uw"oX"i0先看一段代码：51Testing软件测试网 `jy8E"D0uJ
'赋值51Testing软件测试网 qg]/? R:OF$]Ew
ExcelFileFullName = "C:\test.xlsx"51Testing软件测试网Q2@:[ ` u}t
sheet = "test"
+amqN&J9K'q&tp4{1c0'创建链接51Testing软件测试网enB lJ9B'?mn
Set RTCconn= createobject("ADODB.Connection")51Testing软件测试网 B]\$n[^wEh
RTCconn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&ExcelFileFullName&";Extended Properties=Excel 8.0"51Testing软件测试网)viV{-Sdt
sql= "SELECT * FROM ["&sheet&"$]"&""
ZOb.ia U]](FWW0Set RecSet = RTCconn.Execute(sql)
c eON6Q,Lr0'打开EXCEL文件
)EY ns'OK0Set bjExcel = CreateObject("Excel.Application")
So:i~3hn[|0Set fExcel = objExcel.Workbooks.Open(ExcelFileFullName)51Testing软件测试网V lUHR+cz
51Testing软件测试网:m|9T,z-G{YgP
运行此段代码会报错，错误内容为“Excel 无法打开文件“test.xlsx”，因为文件格式或文件扩展名无效。请确定文件未损坏，并且文件扩展
D };A}%pv'_"MV6}U051Testing软件测试网_2g*wB#Z(o._v
名与文件的格式匹配。”

t^-rT3]s051Testing软件测试网%{T6JFb
此错误的原因是因为我们创建了SQL链接但没有释放，接下来又需要打开此EXCEL表格，而此EXCEL表格在创建了SQL链接后就被锁住了，再打开
BOt6x0v;\6O0
)wm$?\[.uG0就会报错，解决些问题的办法是要在打开EXCEL新把链接先关掉（RTCconn.Close）。