作者ak43gh7py (憨廷)
看板Visual_Basic
标题[VBA] EXCEL VBA 此处需要物件
时间Mon Mar 4 16:03:23 2019
请教我使用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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 106.51.26.238
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1551686605.A.75E.html
1F：→ zhixiangJ: 先Open再Set d2，最好明确定义Dim d2 as Worksheet 03/04 16:11
2F：→ ak43gh7py: Z大谢谢帮忙，根据您的建议已顺利解决了 03/04 16:42
3F：推 newacc: 如果d2工作表不是active状态可能也会出错 03/10 17:49
4F：→ newacc: 既然已经可以指定range("B2").value了，可以不用先select 03/10 17:50