[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ファイル名が可変日付のファイルをフォルダ移動したい』(ピノ)
度々質問失礼します。
ファイル名が可変日付のファイルをフォルダ移動したいのですが、
以下構文を記載したところ、開始日の変数値が20200799という
存在しない日付が取れてしまいます。
これの解消方法を教えていただけないでしょうか。
なお、変数はDateにしたところ、「型が一致しない」となった為、
Variant型を使用しています。
これが原因でしょうか…
これが原因の場合、Date型を使用するには、どこを直したらよいでしょうか。
Sub フォルダ移動()
Dim fso As New FileSystemObject
Dim 本日 As Variant '本日日付変数 Dim 開始日 As String Dim 終了日 As String
本日 = Format(Date, "yyyymmdd") '1週間前のファイル 開始日 = 本日 - 7 終了日 = 本日 + 1
fso.movefile Source:="C:\Users\mi\Desktop\新しいフォルダー\" & 開始日 & "-" & 終了日 & "発注表(05)", Destination:="C:\Users\mi\Desktop\新しいフォルダー\vakku\"
End Sub
< 使用 Excel:Excel2016、使用 OS:Windows10 >
Dateに加減算したものをFormatで文字列にすべき。
(γ) 2020/08/07(金) 00:06
有難うございます。
別コラムでもこな2様にもご指摘いただきました。
おかげさまで修正してやりたいことができました。
(ピノ) 2020/08/08(土) 00:10
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.