错误438＆＃34;对象不支持此属性或方法＆＃34;当我运行这个简单的代码

Question

我想转到名为＆＃34; ETAT.xlsx＆＃34;的工作簿中的每个工作表。已经打开并将范围（＆＃34; a14＆＃34;）的值设置为150，但是当我运行此代码时，我得到了

  

运行时错误438对象不支持此属性或方法

请问有什么问题？

Sub testo()
    Dim ws As Worksheet
    For Each ws In Worksheets
         Workbooks("ETAT.xlsx").ws.Range("a14").Value = 150
    Next ws
End Sub

Answer 1

您需要在循环中引用工作簿，否则默认情况下它将引用代码执行时处于活动状态的工作簿。认为这应该有用。

Sub testo()

Dim ws As Worksheet

For Each ws In Workbooks("ETAT.xlsx").Worksheets
    ws.Range("a14").Value = 150
Next ws

End Sub