Windows11+Office365环境下VBA表达式无法识别问题求助

针对你遇到的fpath和strDateStart始终为空的问题，以下是几种常见原因及对应解决方法：

1. 变量未声明导致隐式类型异常 #

你代码中的fpath和strDateStart未通过Dim声明，VBA会默认将其视为Variant类型，可能因意外的变量覆盖或初始化问题导致值为空。

• 解决方法：在代码开头添加Option Explicit强制所有变量必须声明，同时显式声明这两个变量：

Option Explicit

Public Sub BlaBla()
    Dim W_Ret As Boolean
    Dim fpath As String
    Dim strDateStart As String
    
    W_Ret = Attach_Session("PMM600")
    If Not W_Ret Then
        Exit Sub
    End If

    On Error GoTo myerr

    fpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\BlaBla\"
    strDateStart = Format(Worksheets("Control").Range("B6"), "ddmmyyyy")
    
    ' 后续代码...
    
myerr:
    ' 添加错误信息输出，排查执行异常
    If Err.Number <> 0 Then
        MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
    End If
End Sub

2. WScript.Shell获取桌面路径失败 #

SpecialFolders("Desktop")可能因系统权限、环境变量异常或Shell对象初始化失败导致返回空值。

• 解决方法：替换为更稳定的桌面路径获取方式：
  • 方式一：使用环境变量

    fpath = Environ("USERPROFILE") & "\Desktop\BlaBla\"
    

  • 方式二：使用FileSystemObject

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fpath = fso.GetSpecialFolder(0) & "\BlaBla\" ' 0对应Desktop文件夹
    Set fso = Nothing
    

3. 工作表或单元格引用异常 #

• 工作表名称问题：Worksheets("Control")可能不存在、名称拼写错误（含大小写、空格），或当前激活的工作簿并非代码所在工作簿。
  • 解决方法：明确指定工作簿，避免依赖激活状态：

    strDateStart = Format(ThisWorkbook.Worksheets("Control").Range("B6"), "ddmmyyyy")
    

• 单元格内容为空：检查Control工作表的B6单元格是否确实包含有效日期或文本值，如果单元格本身为空，Format函数会返回空字符串。

4. 错误处理跳过了变量赋值 #

On Error GoTo myerr会捕获执行过程中的错误，若CreateObject("WScript.Shell")或工作表引用发生错误，代码会直接跳转到myerr标签，导致fpath和strDateStart未被赋值。

• 解决方法：在myerr标签处添加错误信息输出，查看具体错误原因，如上述代码示例中的MsgBox语句。

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