dtpicker控件问题

Question

我在excle中用VBA引用了时间控件，让其在每次打开excle时显示当前日期，也就是日期同步。在本机打开是没有问题的，但只要放到WEB上，也就是通过IE去打开，就会报“在调用Windows data 和dtpicker 控件时出错”，想了很多办法不行，恳请各位高手指点指点！
VBA代码如下：Private Sub Workbook_Open()
DoEvents
Sheet1.DTPicker1.Value = Format(Date, "yyyy-mm-dd")
Sheet1.Range("AT4") = Format(Date, "yyyy-mm-dd")
End SubPrivate Sub DTPicker1_Change()
Range("AT4") = DTPicker1.Value
End Sub另外如果将Private Sub Workbook_Open()改成Private Sub Workbook_Activate()也是一样。等待中......

Answer 1

sheet1.Range("AT4").value= DTPicker1.Value
.Range("AT4")=""只是給列名稱賦值沒有給列數據賦值

Answer 2

WEB 没有开放ocx权限，可能客户端还没有注册该ocx
  
--------------------------------------------------------------
程序，犹如人生。