ログファイルを定期的に削除したい。 専用アプリを作成してまで削除するのもどうかと思ったのでスクリプト(VBScript)で実行することにした。 ログファイルの削除は、ファイル名に日付が入っているので、ファイル名の日付で削除する。 実行は、タスクスケジュ…

メモリの使用量を長期にわたって保存する必要がでてきた。 リソースモニターを開いたときの各プロセスのメモリの値をファイル保存する。 スクリプトをタスク スケジューラに登録して定期的に実行するようにした。 ResourceLog.vbs '各プロセスのメモリ使用率…

SQL Server 2014を導入しているシステムで21億件(int型の最大値まで)のテストデータで検証する必要があったのでテストデータの作成方法を調べた。 最初にストアドでWHILEを使ってINSERTしていたら10日間ほどかかる計算になった。 ネットを調べると高速にテス…

ExcelのVBAを作成していると、Sheet名ではない方のSheet1～の連番で作成される番号がずれたり、ばらばらだったりして、見た目が悪かったり(VBA見ないと分からないけど)するので直したいなぁ～と思って調べたら次のを見つけた。 Public Sub ChangeCodeName() …

CSVで保存されたデータを集計して帳票として表示したい。 CSVファイルが大量にあったのでVBAで書くよりDBの方が便利かな～と思ったので無料のSQLite3を使用した。 SQLiteをVBAで使うためにODBCのインストールが必要みたいだけどインストールしたくなかったの…

Excelの印刷で、改ページをまたがるセル結合があったときにセル結合に重ならないように改ページを設定するためのマクロは見つかったけど改ページの位置はそのままでセル結合を分割するマクロが無かったので作ってみた。 注意 垂直改ページは無しになります。…

'Dim a As Objectで作った変数の比較方法を忘れてたんでメモ書き If a Is Nothing Then 'エラー処理 Else '通常処理 End If

Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long Dim curStartTime As Currency Dim cur…