作者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/m.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