このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【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 tmp

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

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

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

VBAが難しいと感じたら
ココナラにてマクロ(VBA)の作成代行を始めました。
ご依頼はこちらから

VBA

Posted by やろまい