• ベストアンサー

指定フォルダから一致するブックのシートを読み込みたいのですが、、、

伝票フォルダ内  (yymmブックが複数混在、シートは、ブック名と同名yymmが一枚のみです) ブックA内のシートA(RengeA1)に入力された"yy/mm"任意日付から、 伝票フォルダ内の一致するブックのシート名”yymm”を”顧客yymm”に変更して シートAの隣に追加したいのです。 日付入力エラー処理や編集後の他ブック、シートへ移動マクロは エラー無く、何とか組めるのですが、上記の検索シート追加の組み込み 構文がイマイチわかりません。どなたか助けてくださいTT

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

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

マクロの記録で、シートのコピー等をやって見れば直ぐに判ると思いますよ。 以下はサンプルです。 エラー処理等は殆どは入れて居ませんので、ご自分で手を加えてください。 Sub Sample()  Dim sName As String  sName = "0219" 'セルから読み込んだ任意日付  'ファイルの有無を確認  If Dir("C:\指定のフォルダ\" & sName & ".xls") = "" Then   MsgBox (sName & " 無し")   End  End If     Workbooks.Open Filename:="C:\指定のフォルダ\" & sName & ".xls" '対象ブックを開く  Sheets(sName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '対象シートを自ブックの末尾に追加  Windows(sName & ".xls").Close '対象ブックを閉じる  Sheets(sName).Name = "顧客" & sName 'シート名を ”顧客yymm”に変更 End Sub

zaikoman3
質問者

お礼

ありがとうございます。 Loopしなくても、Dirで検索できるんですね。 また一つ勉強になりました^^ サンプルに使わせていただきます!

関連するQ&A