標題: [發問] 問題發問 run-time error 438 [打印本頁]

---

作者: y54161212    時間: 2023-10-3 09:43     標題: 問題發問 run-time error 438

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

請教 要如何修改?

[attach]36867[/attach]

---

作者: singo1232001    時間: 2023-10-3 18:24

回復 1# y54161212

---

作者: y54161212    時間: 2023-10-4 09:54

回復 2# singo1232001

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

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)