|
いつもこちらで勉強させていただいています
現在特定のファイルだけをコピーするマクロを作成しています
状況としましては
・SFolderのフォルダ内にAAAA_YYYYMMDD.xmlという形式でファイルが毎日分格納されている
・C8のセルにYYYYDDのフォーマットで月を指定する(例:201509)
・指定した月の1日以外と次の月の1日分のデータだけをDFolderにコピーしたい
(9月分で指定すると20150902〜20151001分がコピーされてほしい)
Like演算子で9月分全部コピーするところまで出来たのですが、
当月の2日の除外と来月の1日の追加で躓いています。
無理やりManth+1 & 01 で20151001を作ってManth & 01で20150901を除外しようと思ったのですが
年が変わると使えなくなってしまうので困っています
知恵を貸していただけたら幸いです
作ったソースの一部です
不足あればご指摘ください
Manth = cells(8,3)
Set folderObj = fso.GetFolder(SFolder)
For Each fileObj In folderObj.Files
If fileObj.Name Like "*" & Manth & "*" Then
fileObj.Copy DFolder
End If
Next
よろしくお願いします
|
|