以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  VBA代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196142)
--  作者：qq51837000
--  发布时间：2025/4/2 11:08:00
--  VBA代码

图片点击可在新窗口打开查看此主题相关图片如下：截图_20250402110206.png
图片点击可在新窗口打开查看

老师，这个使用了VBA代码的提示怎么处理？
--  作者：有点蓝
--  发布时间：2025/4/2 11:10:00
--  
MSExcel.xlCal..........
--  作者：qq51837000
--  发布时间：2025/4/2 11:11:00
--  
用了，也不行
--  作者：有点蓝
--  发布时间：2025/4/2 11:12:00
--  
完整代码发上来
--  作者：qq51837000
--  发布时间：2025/4/2 11:12:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：截图_20250402111126.png
图片点击可在新窗口打开查看
--  作者：qq51837000
--  发布时间：2025/4/2 11:14:00
--  
Dim ExApp As New MSExcel.Application
ExApp.Visible = True \'\'\'\'\'\'\'\'\'\'\'\'显示Excel窗口，默认为不显示

On Error GoTo ErrorHandler \' 错误处理

ExApp.ScreenUpdating = False \'\'\'\'禁止Excel界面刷新，大幅提升代码运行速度
ExApp.DisplayAlerts = False \'\'\'\'\'禁止弹出对话框
ExApp.EnableEvents = False \'\'\'\'\'\'禁用事件触发
ExApp.Calculation = MSExcel.xlCalculationManual \'\'\'\'\'停止自动计算

到这就提示错误了
--  作者：有点蓝
--  发布时间：2025/4/2 11:19:00
--  
帮助以外的东西学会网上搜索

https://learn.microsoft.com/zh-cn/office/vba/api/excel.xlcalculation?view=api-js-preview

ExApp.Calculation = MSExcel.XlCalculation.xlCalculationManual 
--  作者：qq51837000
--  发布时间：2025/4/2 11:19:00
--  
感谢老师