プロが教えるわが家の防犯対策術!

Excel VBA で質問です。
現在開いている全てのbookを対象に処理したい場合どうすればよろしいでしょうか?

*内容*
Sub グラフ参照先変更()

Dim wb As Workbooks
Dim ws As Worksheet
Dim myAd As String
Dim myChart As ChartObject
myAd = "A40:A70,I40:I70,N40:N70,S40:S70,X40:X70"
>For Each wb In Workbooks
For Each ws In Worksheets
For Each myChart In ws.ChartObjects
myChart.Chart.SetSourceData Source:=ws.Range(myAd), PlotBy:=xlColumns
Next myChart
Next ws
Next wb
End Sub

>で現在エラーが起きています。
アドバイスよろしくお願い致します。

A 回答 (2件)

>For Each ws In Worksheets



さらに、
For Each ws In wb.Worksheets
にしないとせっかく列挙したブックが無視されます。
    • good
    • 0
この回答へのお礼

結果が得られるようになりました。アドバイスありがとうございましたm(__)m

お礼日時:2005/01/29 23:05

Dim wb As Workbooks を Dim wb As Workbook に変えると大丈夫だと思います。

    • good
    • 0
この回答へのお礼

#2さんの補足と合わせて、結果が得られるようになりました。アドバイスありがとうございました。

お礼日時:2005/01/29 23:04

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています