VBA用户窗体初始化仅单台PC触发Run-time error '-2147352571(80020005)'类型不匹配

问题背景 #

一段用户窗体初始化VBA代码在三位用户电脑上正常运行近一年，但新入职同事点击启动按钮后触发运行时错误：Run-time error '-2147352571(80020005)': Type Mismatch，无法正常显示窗体。

初始化代码 #

Private Sub UserForm_Initialize()

Dim lastRow As Long
Dim i As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Holddata")

lastRow = ws.Cells(Rows.Count, "V").End(xlUp).Row

For i = 2 To lastRow
    Me.CostcenterBox.AddItem ws.Cells(i, "V").Value
Next i

Me.DatoBox.Value = Format(Date, "dd-mm-yyyy")

Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

End Sub

启动窗体的宏代码 #

Sub NewPost()
    AddPost.Show
End Sub

错误原因分析 #

1. 系统区域日期格式差异：新同事电脑的系统区域日期格式与其他用户不一致，导致Format(Date, "dd-mm-yyyy")生成的字符串无法被DatoBox控件兼容。比如若DatoBox是日期型控件（而非文本框），系统默认日期格式不匹配时，字符串赋值会触发类型不匹配。
2. 控件类型不一致：若新同事的窗体中DatoBox控件类型被误改（比如从文本框改成了日期选择控件），直接赋值格式化后的字符串就会引发类型错误。
3. 工作表数据异常：虽然概率较低，但可检查"Holddata"工作表V列是否存在非标准数据类型，导致AddItem时出现类型不匹配（不过报错指向日期相关代码的可能性更高）。

解决方案 #

1. 适配控件类型赋值：
   • 若DatoBox是文本框：保持字符串赋值，可改用Format$确保返回字符串类型：

     Me.DatoBox.Value = Format$(Date, "dd-mm-yyyy")
     

   • 若DatoBox是日期控件：直接赋值日期对象，再设置显示格式：

     Me.DatoBox.Value = Date
     Me.DatoBox.Format = "dd-mm-yyyy"
     

2. 统一控件类型：打开VBA编辑器，确认所有用户的DatoBox控件类型一致（文本框或日期控件），避免差异。
3. 检查系统区域设置：让新同事将系统日期格式调整为与其他用户一致的格式，测试是否解决问题。

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