- ベストアンサー
指定フォルダから一致するブックのシートを読み込みたいのですが、、、
伝票フォルダ内 (yymmブックが複数混在、シートは、ブック名と同名yymmが一枚のみです) ブックA内のシートA(RengeA1)に入力された"yy/mm"任意日付から、 伝票フォルダ内の一致するブックのシート名”yymm”を”顧客yymm”に変更して シートAの隣に追加したいのです。 日付入力エラー処理や編集後の他ブック、シートへ移動マクロは エラー無く、何とか組めるのですが、上記の検索シート追加の組み込み 構文がイマイチわかりません。どなたか助けてくださいTT
- みんなの回答 (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
お礼
ありがとうございます。 Loopしなくても、Dirで検索できるんですね。 また一つ勉強になりました^^ サンプルに使わせていただきます!