kill

Killステートメントで自身のファイルを削除Subtest()’Killステートメントで自身のフアイルを削除WithThisWorkbook.Saved=True.ChangeFileAccessxlReadOnlyKill.FullName.CloseEndWithEndSub――――――――――→ExcelVBA基礎入門もくじへ戻る

FileSystemObjectでフォルダー内ファイルの更新日時を一括取得Subtest()’FileSystemObjectでフォルダー内ファイルの更新日時を一括取得DimFolderPathAsStringDimFSOAsObjectDimFileNameAsObjectDimFileTimeAsStringDimfileName2AsString'ファイルシステムオブジェクトをセットするSet

DateSerial関数で月末月初の日付を指定Subtest()’DateSerial関数で月末月初の日付を指定'当日Range("A1")="当日"Range("B1")=DateSerial(Year(Now),Month(Now),Day(Now))'当月月初Range("A2")="当月月初"Range("B2")=DateSerial(Year(Now),Month(Now),