|
▼tetsu さん:
>こんにちは。
>「実行時エラー1004 OLEObjectメソッドは失敗しました。Wooksheetオブジェクト」
>
>下記のソースの3行目でエラーになります。
> For Each mySheet In Worksheets
> For i = 1 To 4
> With mySheet.OLEObjects("ComboBox" & i).Object
> .AddItem "りんご"
> .AddItem "みかん"
> .AddItem "ばなな"
> .AddItem "オレンジ"
> .AddItem "パイン"
> .AddItem "ブドウ"
> End With
> Next i
> Next
>ワークシート上に4つのコンボボックスをおいて、全て同じ選択肢を設定する処理です。
対象ブックにあるワークシートすべてが対象だという事は 認識されていますか?
新規にワークシートだけを作成し、上記のコードを実行すると
提示されたようなエラーが発生します
(もっともmySheetという変数をどのように定義されているかにも依りますが)。
この辺りの確認はいかがですか?
|
|