vb打开excel报错

hxs880

代码如下：
Public Function  OpenExcel(sFileName, vSheet)
'On Error Resume Next
    ExcelFile=sFileName
    SheetName=vSheet     
        Set xls=CreateObject("Excel.Application")
Set xlsWorkBook = xls.Workbooks.Open (ExcelFile)'报错：Excel 无法打开文件“01登录.xlsx”，因为文件格式或文件扩展名无效。请确定文件未损坏，并且文件扩展名与文件的格式匹配。    If SheetName = "" Then
        SheetName = "Sheet1$"
    End If
     Set xlsWorkSheet = xlsWorkBook.WorkSheets(SheetName)
                    OpenExcel=True
End Function
Public Function GetValue(row,col)
       GetValue=xlsWorkSheet.rows(row).Columns(col).Value
End Function
调试后发现：
ExcelFile=“F:\exchange\TestData\会员服务\01登录_liyan.xlsx”就会报错
但如果
ExcelFile=“F:\exchange\TestData\01登录_liyan.xlsx”就不会报错
难道和目录级数有关？但原先没碰到过类似的问题啊。
ps：excle版本是2007的，操作系统是win7的
请好心人帮忙看看，急啊~~~~~~~~~

hxs880

没人知道吗？

SexyCat_1113

可能是07太高级了，，，

wangyanzhao

用xls 就可以了