【VBScript】今日の日付をYYMMDD形式でクリップボードにコピーするコード
今回は今日の日付をYYMMDD形式へ変換して、それをクリップボードにコピーするコードを紹介します。
私はフォルダ名の先頭を今日の日付にすることが多く、このVBScriptを重宝しています。
コピペで使えるように作成したので、活用してみてください。
ちなみに、次の2つの理由からこのコードをVBScriptで書くのは難しかったです。（VBAだと簡単に書けます）
- VBScriptだとFormat関数が使えない
- Microsoft Formsを利用したクリップボードへのコピーができない
VBAが難しいと感じたら
でVBAの作成請負を受け付けています。お気軽にご相談ください。今日の日付をYYMMDD形式でクリップボードにコピーするコード
Public Sub PutInClipboardText(ByVal str)
Dim cmd
cmd = "cmd /c ""echo|set /p=" & str & "| clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
Dim tmp
tmp = Date
tmp = Right(Date, Len(tmp) - 2)
tmp = Replace(tmp, "/", "")
'tmpをクリップボードへ保存
PutInClipboardText tmpYYMMDD形式への変換はRight関数とReplace関数の組合せで実現しています。
そして、クリップボードへのコピーですが、こちらはWShellを使用しています。
WShellを介してコマンドを送ることで、クリップボードへのコピーを実現しています。
VBAが難しいと感じたら