- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]foxtable中vba如何设置excel的手动重算和自动重算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151619)
-- 发布时间：2020/6/29 15:11:00
-- [求助]foxtable中vba如何设置excel的手动重算和自动重算
excel的vba中设置手工重算和自动重算，分别为：
Application.Calculation = xlManual\'手动重算
Application.Calculation = xlAutomatic\'自动重算
Application.Calculation = xlAutomatic\'自动重算
由于excel表中设置了大量的公式，导致foxtable操作该表时速度很慢，因此需要将其设置为手动重算，但在foxtable中按照上面的写法，无法通过，还请教正确的写法是？
[此贴子已经被作者于2020/6/29 15:14:36编辑过]
-- 发布时间：2020/6/29 15:29:00
--
贴出完整代码
-- 发布时间：2020/6/29 16:05:00
--
Dim App As New MSExcel.Application
App.Calculation = xlManual\'手动重算
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Book1.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("汇总表")
Dim Rg As MSExcel.Range = Ws.Cells(5,3)
Rg.Value = 12345.88 \'输入数字
App.SAVE
App.Quit
此主题相关图片如下：qq截图20200629160430.png
[此贴子已经被作者于2020/6/29 16:05:28编辑过]
-- 发布时间：2020/6/29 16:18:00
--
App.Calculation = MSExcel.XlCalculation.xlCalculationManual \'手动重算
或者
App.Calculation = -4135
[此贴子已经被作者于2020/6/29 16:20:42编辑过]
-- 发布时间：2020/6/29 16:21:00
--
此主题相关图片如下：qq截图20200629162042.png
-- 发布时间：2020/6/29 16:23:00
--
App.Calculation = MSExcel.XlCalculation.xlCalculationManual \'手动重算
或者
App.Calculation = -4135
-- 发布时间：2020/6/29 16:26:00
--
此主题相关图片如下：qq截图20200629162531.png
蓝版，两种方式都报一样的错
-- 发布时间：2020/6/30 11:41:00
--
蓝版，能否继续关注一下。
-- 发布时间：2020/6/30 11:46:00
--
我也解决不了，网上也找不到解决方法
-- 发布时间：2020/6/30 12:33:00
--
还是感谢蓝版，目前只能先通过手工的方式来设置。
