【VBScript】今日の日付をYYMMDD形式でクリップボードにコピーするコード

2023年10月5日2024年4月25日

今回は今日の日付をYYMMDD形式へ変換して、それをクリップボードにコピーするコードを紹介します。

私はフォルダ名の先頭を今日の日付にすることが多く、このVBScriptを重宝しています。

コピペで使えるように作成したので、活用してみてください。

ちなみに、次の2つの理由からこのコードをVBScriptで書くのは難しかったです。（VBAだと簡単に書けます）

VBScriptだとFormat関数が使えない
Microsoft Formsを利用したクリップボードへのコピーができない

今日の日付を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 tmp

YYMMDD形式への変換はRight関数とReplace関数の組合せで実現しています。

そして、クリップボードへのコピーですが、こちらはWShellを使用しています。

WShellを介してコマンドを送ることで、クリップボードへのコピーを実現しています。

《VBA上級者になりたい人へ》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。