基于ComboBox选项选择对应.OFT模板的代码问题排查

嘿，我帮你找出了两个核心问题，这就是为什么你的代码始终只调用OFT Template Closure.oft的原因：

1. 变量未绑定ComboBox的选中值 #

你定义了Study_Stage字符串变量，但没有把ComboBox控件Study_String的选中内容赋值给它。这意味着Study_Stage默认是空字符串，后续的所有条件判断都是基于空值在执行，逻辑完全混乱。

你需要在判断前添加一行代码，把用户选择的内容传给变量：

Study_Stage = Study_String.Value

2. 逻辑运算符使用错误（Or 换成 And，或直接用等值判断） #

你的条件判断里用了Or，这是致命的逻辑错误！举个例子看第一个判断：

If Study_Stage <> "Start-Up" Or Study_Stage <> "Closed at IRB" Then

不管Study_Stage是什么值，这个条件永远为真：

• 如果选的是"Start-Up"，它不等于"Closed at IRB"，Or条件满足；
• 如果选的是"Closed at IRB"，它不等于"Start-Up"，Or条件也满足；
• 如果选的是"Maintenance"，两个都不等于，更满足。

后面的两个If也存在同样的问题，最后一个If的条件Study_Stage <> "Maintenance" Or Study_Stage <> "Start-Up"同样永远成立，所以最后总是执行最后一行的Set objMsg，覆盖了前面的赋值，导致只能看到Closure模板。

修正后的代码（推荐用Select Case，逻辑更清晰） #

用Select Case处理多分支判断，既不容易出错，也更容易维护：

Dim Study_Stage As String
' 先获取ComboBox的选中值
Study_Stage = Study_String.Value

Select Case Study_Stage
    Case "Start-Up"
        Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Start Up.oft")
    Case "Maintenance"
        Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Maintenance.oft")
    Case "Closed at IRB"
        Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Closure.oft")
    Case Else
        ' 可选：处理用户选择无效选项的情况
        MsgBox "请选择有效的研究阶段！"
End Select

如果你更习惯用If判断，也可以改成单分支等值判断（用ElseIf避免重复赋值）：

Dim Study_Stage As String
Study_Stage = Study_String.Value

If Study_Stage = "Start-Up" Then
    Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Start Up.oft")
ElseIf Study_Stage = "Maintenance" Then
    Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Maintenance.oft")
ElseIf Study_Stage = "Closed at IRB" Then
    Set objMsg = OutApp.CreateItemFromTemplate("X:\Users\Test Realm\OFT Template Closure.oft")
End If

内容的提问来源于stack exchange，提问作者PikminGod Olimar