【已解决】用QTP打开EXCEL文件报错

gold_85

Dim xl
  '打开excel文件
  Function OpenExcelFile(strFilePath)
  Set xl = CreateObject("Excel.Application")
  xl.Workbooks.Open strFilePath
  End Function

Call OpenExcelFile("c:\test.xls")

运行时提示  类 Workbooks 的 Open 方法无效

[ 本帖最后由 yujie6832 于 2010-2-3 12:08 编辑 ]

yujie6832

Public Function ReadExcelContent(filename,sheetname,row,column)
                Set ExcelApp = CreateObject("Excel.Application")
                Set ExcelBook = ExcelApp.Workbooks.Open (filename)
                Set ExcelSheet = ExcelBook.Worksheets.Item(sheetname)
                ReadExcelContent = ExcelSheet.cells(row,column)
                ExcelBook.Close
                ExcelApp.Quit
                Set ExcelSheet = Nothing
                Set ExcelBook = Nothing
                Set ExcelApp = Nothing       
        End Function

Call ReadExcelContent(filename,sheetname,row,column)

yujie6832

肉眼没看出有问题，虽然写的很不规范（其他不规范不要紧，至少要把对象释放掉，SET OBJ = NOTHING，不然你去你的进程看看，有多少EXCEL.EXE的进程，）但是刚才试了下你的代码，直接运行了下

没有c:\test.xls文件的情况下提示找不到，有的情况下运行正常，么有出现你所说的问题

[ 本帖最后由 yujie6832 于 2010-2-3 09:46 编辑 ]

gold_85

如果没有这个文件不存在的话,我也不会提示刚才的错误.也是提示和你的一样

yujie6832

那奇怪了，完全一样的代码，我拷过来运行了，没问题啊

gold_85

你C盘有test.xls吗,没有的话,你建一个看看,呵呵,,

yujie6832

我刚才在其他盘符建立了个，参数也对应改了，这个是一样的吧

gold_85

谢谢,,我找到原因了

yujie6832

什么原因，说出来，让大家看看啊

gold_85

不知道为什么test.xls  的大小只有1KB,,
我重建一个就好了

gold_85

谢谢哈..

[ 本帖最后由 gold_85 于 2010-2-3 11:25 编辑 ]