人に聞けない痔の悩み、これでスッキリ >>

D列7行目のセル以降に記入したワークブックを次々と開きたいと思い、マクロを書いてみたのですが、実行時エラー424、オブジェクトが必要ですとのメッセージが出力され、ブックが開きません。

どこを修正すればよろしいでしょうか?アドバイスを頂けないでしょうか。
  || D |

7行||テスト1|
8行||テスト2|
9行||テスト3|


Sub ワークブックオープン()
'■変数設定
Dim Mypath As String, x As Integer, MycelNO As Integer
Dim Myworkbook As String, Mybook As String

Mypath = ActiveWorkbook.Path '格納フォルダのパスを取得する。
MycelNO = Range("D7").CurrentRegion.Rows.Count 'D列の処理ブックの数を数える。

'■連続実行
'--処理開始-----------------------------------------------------------------
For x = 7 To 7 + MycelNO
Mybook = Cells(x, 4)
Myworkbook = Mypath & "\" & Mybook & ".xls"

Workbook.Open Filename:=Myworkbook

Next x

End Sub

A 回答 (1件)

Workbooks.Open Filename:=Myworkbook



こうではなかろうか?
    • good
    • 0
この回答へのお礼

あっ!!
どうもありがとうございました。動きました。

お礼日時:2006/08/18 18:34

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


人気Q&Aランキング