$From="送信元メールアドレス" $Subject="納品書" $body="納品内容を送信致します。" # このファイルの場所を取得 $FilePath=Split-Path ( & { $myInvocation.ScriptName } ) -parent $File=@(Get-ChildItem $FilePath'\添付ファイル.zip') $To="宛先メール…

Sub 現在より一定時間後にマクロを実行する() 指定時刻 = Now + TimeValue("HH:MM:SS") '現在時刻より何分後 ※２ 待ち時間 = TimeValue("HH:MM:SS") '指定時刻に他プロシージャが実行中の場合の待ち時間 ※2 Application.OnTime TimeValue(指定時刻), _ "一定…

Sub QuitSamp1() Dim wb As Workbook For Each wb In Workbooks '開いている全てのブックに対して If wb.Saved = False Then wb.Save '保存されていないブックは上書き保存 Next wb Application.Quit 'Excelを終了します End Subネタ元 https://www.moug.net…

デスクトップの取得方法 Sub Sample3() Dim Path As String, WSH As Variant Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\" ActiveWorkbook.SaveAs Path & "Sample1.xls" Set WSH = Nothing End Subマイドキュメント…

バイナリでファイル読み込んで無理やりテキスト変換&比較する技 Function ReadBmpAsString(file_name As String) As String Dim bmp() As Byte Open file_name For Binary As #1 ReDim bmp(LOF(1)) Get #1, , bmp Close #1 ReadBmpAsString = bmp End Functi…