[[20141120224013]]　『セルに記載されたフォルダパスを使用しファイルを』（ゆうママ）　ページの最後に飛ぶ

『セルに記載されたフォルダパスを使用しファイルを開く』（ゆうママ）

A1にフォルダパスが入力されています。
A5～ファイル名が入力されています。(123.xlsx　の形で)
A5から下にいくつのファイルがあるかは都度違います。
このデータを下にファイルを順に開きたいです。

下記のようなマクロを作成したのですが、「実行エラー424　オブジェクトが必要です」となります。　
Sub OPEN()

  Dim fd_path As String  'フォルダのフルパス
  Dim fl_name As String  'ファイル名
  Dim i As Long  'ファイル名の行番号

　fd_path = Range("A1").Value

  fl_name = Cells(i, "A").Value

  i = 5
  Do Until fl_name = ""
   i = i + 1
   Workbooks.Open fd_path & "\" & fl_name
  Loop

End Sub

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 >   fl_name = Cells(i, "A").Value
 >   i = 5

 iの設定が先では？

 あと Do Loop の中で、fl_name を再設定しないと変わらないですよ。

（Mook） 2014/11/20(木) 23:09

うまくいきました。ありがとうございます。
（ゆうママ） 2014/11/20(木) 23:31

コメント返信：