Excel VSTO中msoFileDialogFolderPicker函数未返回值触发BC42105警告

触发BC42105警告的直接原因是函数存在未显式返回值的执行分支：
当用户点击文件夹选择对话框的「取消」按钮时，判断条件.Show <> -1成立，代码执行Exit Function直接退出，该分支没有任何返回值逻辑。尽管VB会默认给字符串类型返回值Nothing，但编译器检测到不是所有代码路径都有明确返回值时，就会抛出该警告。
另外你当前代码中将fldr、DestPath定义为类级全局变量属于不必要的设计，这两个变量仅在当前函数内使用，定义为函数局部变量即可，避免全局状态污染。

推荐使用显式返回空值的方案，逻辑最清晰，同时优化变量作用域：

Imports Microsoft.Office.Tools.Ribbon
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel

Public Class Ribbon1
    ' 仅保留类级别需要共享的变量，移除函数专用的fldr、DestPath
    Dim wkbSource As Workbook
    Dim wkbDest As Workbook
    Dim shDest As Worksheet
    Dim fso As Global.System.Object
    
    Private Function GetwkbDestSavetoPath() As String
        Dim fldr As FileDialog = Globals.ThisAddIn.Application.FileDialog(MsoFileDialogType.msoFileDialogFolderPicker)
        Dim selectedPath As String = String.Empty
        With fldr
            .Title = "Select a Folder where to save the file"
            .ButtonName = "Select"
            .AllowMultiSelect = False
            ' 用户取消选择时直接返回空字符串
            If .Show <> -1 Then Return String.Empty
            selectedPath = .SelectedItems(1) & "\"
        End With
        Return selectedPath
    End Function
End Class

调用该函数时，通过判断返回值是否为空，即可识别用户是否完成有效选择：

Dim targetSavePath As String = GetwkbDestSavetoPath()
If String.IsNullOrEmpty(targetSavePath) Then
    ' 用户取消选择，直接终止后续逻辑
    Exit Sub
End If
' 后续使用targetSavePath执行文件保存逻辑

如果你习惯VB传统的函数名赋值返回写法，也可以在函数入口先设置默认返回值，再处理分支逻辑，同样可以消除警告：

Private Function GetwkbDestSavetoPath() As String
    ' 先设置默认返回值，所有未显式赋值的退出分支都会返回该默认值
    GetwkbDestSavetoPath = String.Empty
    Dim fldr As FileDialog = Globals.ThisAddIn.Application.FileDialog(MsoFileDialogType.msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder where to save the file"
        .ButtonName = "Select"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Function
        GetwkbDestSavetoPath = .SelectedItems(1) & "\"
    End With
End Function

补充提示：不建议手动拼接路径反斜杠，后续拼接完整保存路径时可以使用System.IO.Path.Combine(selectedPath, "目标文件名.xlsx")，方法会自动处理路径分隔符，避免漏写、多写斜杠的问题。

内容的提问来源于stack exchange，提问作者Johnattan Arcilla