[發問] 問題發問 run-time error 438

y54161212

1個問題向各位前輩請教

我利用timeactiveV1定時間
去開啟Last 10 Batches這一個檔案
要做在sheet{"SIS")做計算 (用自動計算無法，只能用calculate功能)

程式編碼如下


Sub TimerX()
Dim dtToday, TD As String
dtToday = Date
TD = Right(dtToday, 2)
    If TimerActive = True Then
    Application.SendKeys "{UP}"
    Application.OnTime Now() + TimeValue("00:08:05"), "Sheet1.TimerX", False: DoEvents
    Workbooks.Open Filename:="C:\Users\Desktop\Last 10 Batches of R20.xlsm"
    Application.Calculation = xlCalculationAutomatic
   
    Workbooks("Last 10 Batches of R20.xlsm").Calculate
   
    Workbooks("Last 10 Batches of R20.xlsm").Close SaveChanges:=True
    Application.Calculation = xlCalculationManual
   
End If
   
End Sub

但是都會在 Workbooks("Last 10 Batches of R20.xlsm").Calculate 出現
Run-time error ‘438’:
Object doesn’t support this property or method

請教 要如何修改?

Safezipkit-CompressedFile (1).zip (59.33 KB)

下載次數: 3

2023-10-3 09:37

singo1232001

回復 1# y54161212

y54161212

回復 2# singo1232001

感謝協助處理
測試了一下，這個似乎要把excel 放在autocalculation 的狀態才會計算
且因為是使用其他app外插的addin功能
在自動狀態下也無法計算

通常我都需要手用按 計算 的功能

所以像這樣的程式可以加入讓他去 "手動計算" 開啟的檔案的其中一個sheet嗎?