EXCEL表格里用VBA写了个动态时钟，打开新建表格出现运行错误9，下标越界，如何修改？请大神帮忙！

更新时间2018-10-26 09:46:47

excel表格里参照别人用VBA复制了个动态时钟，主要问题是打开新建表格或者其他excel表格会出现运行错误9，出现下标越界，是VBA写有问题还是需要调试？如何修改？附图！

下图是正常的动态时钟：

代码为：

Sub 动态()

Application.OnTime Time + TimeSerial(0, 0, 1), "时钟"

End Sub

Sub 时钟()

Worksheets("厦门灏宸科技有限公司").Range("b1") = Now动态

End Sub

运行错误

还有This Workbook里写了一段，当打开这个文档时自动运行时间代码

代码为：

Application.OnTime Time + TimeSerial(0, 0, 1), "时钟"

Worksheets("厦门灏宸科技有限公司").Range("b1") = Now动态

 

Sub AotoTime1() 

Dim NewTime As Date '定义NewTime的数据类型

 Set myDocument = ThisWorkbook.Worksheets("Sheet1") '定义工作表

 NewTime = Now + TimeValue("00:00:01") '更新时间是1秒

 myDocument.Range("A2").Value = Time 'Sheet1 A2单元格显示动态时间

 Application.OnTime NewTime, "AotoTime2" 

'安排一个过程在将来的特定时间（Newtime）运行，调用Aoto2

End Sub 

Sub AotoTime2()

 Call AotoTime1 '调用Aoto1

 End Sub

https://jingyan.baidu.com/article/fb48e8be11564b6e622e14bb.html

两个问题，有没有一个叫：“DN2”的工作表，还有将Cells("B2")改成：Range("B2")或Cells(2,"B")
如果以上都不是问题，那么得看一下要粘贴的文件，是否已经打开。

相关标签:越界，大神