Ｅｘｃｅｌの取り込み対象シートの指定 (ID:120634)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 For Eachでループするんじゃなくて Set objWrkSht = objWrkBook.Worksheets("予め決められたシート名") とすれば良いかと。