主题：[求助]导入列

怎么操作后出问题？试试这样

Try
    If Forms("分页").Opened Then
        Forms("分页").Controls("Label5").Text = format(Date.Now, "yyyy年MM月dd日 dddd HH:mm:ss")
    End If
catch ex As Exception
   
End try