質問: fun '9列目 End With Loop MsgBox FCnt & "個のデータが見つかりました" End Sub 以上です。 ループ1順目の3列目で停止してしまいます。 変数の値は確認しています。 よろしくお願いします。
回答: 一見しただけですが、基本的な間違いがいくつかあるようです。 '-------------------------------------------------- ●Application.ExecuteExcel4Macro の最後のVALUEは不要。 それが、 >ループ1順目の3列目で停止してしまいます。 の原因です。 ということは、4,5,6,8列目でもエラーがでるということです。 '-------------------------------------------------- ●dateName = Dir() の位置が違う >.List(FCnt, 8).Value = fun '9列目 >End With ▲dateName = Dir() >Loop ▲の位置でないといけない 理由は実行してみれば分かります。 '------------------------------------------------ ●コードは9列まであるにも拘わらず、 >ListBox1.ColumnCount = 6 '3列表示 と、列は6に設定されている これも修正しておいた方がいいでしょう。 '------------------------------------------------- この3つを修正して実行してみてください。 そのうえでまだ疑問点があれば再質問のこと。 以上。