請教我使用EXCEL VBA練習寫了底下的程式，但在執行到d2.Range("B1").Select出現
執行階段錯誤'424':此處需要物件,不知有前輩知道這個問題不
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set d1 = Workbooks("股票監控資料庫.xlsm").Worksheets("測試")
Set d2 = Workbooks("股票監控數值.xlsm").Worksheets("月營收華邦電")
Workbooks.Open Filename:="D:\(2) Other\(11) 股票\(1) 個人整理分析資料\股票
監控數值.xlsm", UpdateLinks:=False, ReadOnly:=True
Workbooks("股票監控數值.xlsm").Activate
d2.Range("B1").Select
d2.Range("B1").Value = d1.Range("A6")
MsgBox "完成更新"
Application.ScreenUpdating = True
End Sub

先Open再Set d2，最好明確定義Dim d2 as Worksheet

Z大謝謝幫忙，根據您的建議已順利解決了

如果d2工作表不是active狀態可能也會出錯既然已經可以指定range("B2").value了，可以不用先select