![Excel 检测到歧义名称](https://linux22.com/image/1615483/Excel%20%E6%A3%80%E6%B5%8B%E5%88%B0%E6%AD%A7%E4%B9%89%E5%90%8D%E7%A7%B0.png)
你好,在这本工作手册中我有这段代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop execution when workbook closes
On Error Resume Next
Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
'start execution when workbook opens
Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub
在模块 1 中我有这个代码
Sub Calcul()
Heure = Now + TimeValue("00:05:00")
Application.OnTime Heure, "Calcul"
Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub
] 上述代码每 5 分钟运行一次
在模块 2 中我希望此代码每 10 分钟运行一次
Sub Calcul()
Heure = Now + TimeValue("00:10:00")
Application.OnTime Heure, "Calcul"
Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub
但是我收到错误 - 检测到模糊名称。我是 Excel 新手,如能得到任何帮助都将非常有帮助。
答案1
我同意评论中的观点,你应该阅读一下,但我认为与具体情况没有任何相关性,因为你正在使用Application.OnTime
并且我没有看到链接中提到分享。
你可以在这里读到它:
https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime
总结一下:您需要构建一个用引号括起来的字符串。其确切结构取决于您发送的内容(例如变量、整数、字符串)。
结构至关重要。很有可能,你会错过一个字符,并花费大量时间反复试验,直到找到正确的字符串