VBA编译错误:语法错误

Question

我正在尝试编写一个简单的函数,根据我传递的参数,我需要返回一个字符串值.我收到错误编译错误:语法错误.

Public Function getServer(env As String) As String
    Dim serverName As String
    Select Case env
        Case "DEV"
            serverName = "abc"
            Return serverName;
         Case "TEST"
            serverName = "def"
            Return serverName;
         Case "Prod"
            serverName = "xyz"
            Return serverName;
    End Select
End Function

Answer 1

VBA不用于Return提前退出函数,也不用于指定函数的返回值.在VBA中,您指定提前退出使用Exit Function; 并且为了从函数返回值或对象,您必须将函数的名称分配/设置为要返回的值/对象:

Public Function getServer(env As String) As String
    Select Case env
        Case "DEV"
            getServer = "abc"
        Case "TEST"
            getServer = "def"
        Case "Prod"
            getServer = "xyz"
    End Select
End Function