• ベストアンサー

セルに入力してあるファイル名をマクロに取り込みたい

検査という大本のファイルがあり現在キー記録でこの中にマクロを保存しています Windows("2月.xls").Activate この2月.xlsを月が変わるたび3月.xls~12月.xlsにマクロの中で自動で取り込み実行させたいのですがどのようにしたらよろしいでしょうか? ファイル名はSheet1のH6に直入力しています マクロ超初心者ですので詳しく説明して頂ければさらに有り難いです。 XP HOME excel2003

質問者が選んだベストアンサー

  • ベストアンサー
  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

Windows(Range("H6").Text).Activate とか Windows(Worksheets("Sheet1").Range("H6").Text).Activate とかいった記述の仕方でしょうか。

245689731
質問者

補足

今晩は >Windows(Worksheets("Sheet1").Range("H6").Text).Activate でうまく動作しました。 >Windows((Worksheets("Sheet1").Range("H6").Text) ___________________________↑これのここ___↑を Windows("2月.xls").Activate ______↑この部分に代入というか取り込むというかして動作させると考えてよろしいですしょうか。言葉足らず(つかい間違いかも)ですみません。 補足頂ければ幸いです。

その他の回答 (1)

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

>Windows("2月.xls").Activate >この2月.xlsを月が変わるたび3月.xls~12月.xlsに >マクロの中で自動で取り込み実行させたい と >ファイル名はSheet1のH6に直入力しています は、どういう関係にありますか? Sheet1のH6は、検査.xlsにあるということですか? マクロで、3月.xls~12月.xlsと変更したいということですか? 当月の月数を全角で取り出す一例です。 MsgBox StrConv(Format(Date, "m月"), vbWide)

245689731
質問者

お礼

ご回答ありがとう御座います。 言葉足らずで申し訳御座いません。 根本的なファイル内容というか様式と言った方がよいかな?は変わらないのですが入力された内容がそれぞれの月に必要な最小数が足りているかを検査するファイルです。 マクロも十個ほどあるのでそれぞれにVBEを起動して該当部分*月~*月を月が変わるたびファイル名の書き換えも面倒ですし間違いもありそうなのでセルに入力したファイル名を取り込めないかと思い質問いたしました。 hallo-2007 様の回答で解決しましたのでお二方にお礼申し上げます。 回答者の名前ハンドルネーム?や回答を見れば相当な腕な方と想像させて頂きました。 xls88 様 本当にありがとう御座いました。

関連するQ&A