求助大神，帮忙看看下面的代码有什么问题？

wls198210100

因为程序中经常要打开不同的数据表格，所以想编写一个过程或函数。当需要打开时，就调用一下：
代码如下：
Public Sub WOpen(fpath As String, fName As String)                   '打开数据文件,如已经打开则忽略,否则打开并设置文件对象
Dim w As Workbook
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each w In Application.Workbooks
  If w.Name = pName Then
    Exit For
  Else
    Workbooks.Open ThisWorkbook.Path & fpath & fName                      '打开相应的文件,使用的路径为"相对路径"
    Set oa = ActiveWorkbook.Sheets(1)                                     '设置文件对象oa
  End If
Next
End Sub

下面是在其它地方调用：
Wopen("\数据表格\","abc.xls"")

但是不行，代码提示没有“=”号！！这是什么原因啊？


有哪位大神帮我看看，或者帮我重写一下这段代码？不胜感激！！！

wls198210100

代码中oa变量，已经在公共模块中声明了
Public oa As Object

phsu

If w.Name = pName Then
改成
If w.Name = fName Then

wls198210100

phsu 发表于 2018-7-20 20:00
If w.Name = pName Then
改成
If w.Name = fName Then

代码没检查！！！暴汗。。。。。

wls198210100

phsu 发表于 2018-7-20 20:00
If w.Name = pName Then
改成
If w.Name = fName Then

但是貎似还是不可以啊！！！！

wls198210100

是否带两个参数的过程或函数，必须要有返回值啊？？？？？

phsu

Wopen("\数据表格\","abc.xls"")
改成
Wopen("\数据表格\","abc.xls")