请教我使用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