JScriptで家計簿シートを年別ファイル分割：改

-
no title

目次

▶︎
all
running...

はじめに

JScript/WSH で，Excelファイルを読み書きしよう
で個々のシートをファイル別に分割するJScriptを知った。

これは家計簿(sample.xlsx)の年毎にシートをファイル分割できるのではと思い、実践。

地味に手間取る始末。5時間ぐらいか…

Batch

  • 前半はほぼ、上記のサイトのコピペなのだけれど、後半にserach関数を追加して正規表現でシート検索して、ファイルを分割している。
  • searchに引数として文字を入れるとその文字ごとにシートを探してファイル分割してくれる。
  • なお、ファイル名は引数の名前が使われる。

エクセルシート分割バッチ.bat

@if(0)==(0) ECHO OFF

cscript.exe //nologo //E:JScript "%~f0" %*

@pause
GOTO :EOF
@end


/*

	ドロップしたExcelファイルの全シートを，
	１シートずつ個別のファイルに保存し直すバッチ

*/

// 引数取得
if (WScript.Arguments.length == 0) {
  WScript.Echo('引数がありません。');
  WScript.Quit();
}
var filename = WScript.Arguments.Unnamed(0);
var ws = WScript.CreateObject('WScript.Shell');
var cwd = ws.CurrentDirectory;
//var filepath = cwd + "\\" + filename;
var filepath = filename;

// Excelブックを開く
var excel = WScript.CreateObject('Excel.Application');
excel.Visible = false;
excel.DisplayAlerts = false;
excel.Workbooks.Open(filepath);
var book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
var xlMaximized = -4137;
excel.ActiveWindow.WindowState = xlMaximized; // 最大化

// 全シートをスキャンして，シート名を調査
var sheets = book.WorkSheets;
var e = new Enumerator(sheets);
var arr_sheets = [];
for (; !e.atEnd(); e.moveNext()) {
  // シートを取得
  var sheet = e.item();

  // 保持
  arr_sheets.push(sheet);
}

var previous = '';
// 取得済みの全シートについて
for (var i = 0; i < arr_sheets.length; i++) {

  // searchに文字を入れるとその単語のシートごとにファイル分割。
  search('2020');
}
previous = '';
for (i = 0; i < arr_sheets.length; i++) {
  search('2021');
}
WScript.Quit();

function search(search_string) {
  var new_filepath = cwd + '\\' + search_string + '.xlsx';
  var new_book;
  var regexp = new RegExp(String(search_string));

  if (regexp.test(arr_sheets[i].Name)) {
    if (!(search_string === previous)) {
      // 新規ワークブックを作成
      excel.Workbooks.Add();
      new_book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
    } else {
      excel.Workbooks.Open(new_filepath);
      new_book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
    }
    // シートを先頭にコピー挿入
    arr_sheets[i].Copy(new_book.Worksheets(1));


    // 新規ファイル保存。ファイル名はシート名
    WScript.Echo('新規ブックのパス：' + new_filepath);

    new_book.SaveAs(new_filepath);

    // 閉じる
    new_book.Close();
    previous = search_string;
  }
}

JScriptの部分だけシンタックスハイライトVer.

  • 見づらいので、別途シンタックスハイライト適用版を記載した
/*

	ドロップしたExcelファイルの全シートを，
	１シートずつ個別のファイルに保存し直すバッチ

*/

// 引数取得
if (WScript.Arguments.length == 0) {
  WScript.Echo('引数がありません。');
  WScript.Quit();
}
var filename = WScript.Arguments.Unnamed(0);
var ws = WScript.CreateObject('WScript.Shell');
var cwd = ws.CurrentDirectory;
//var filepath = cwd + "\\" + filename;
var filepath = filename;

// Excelブックを開く
var excel = WScript.CreateObject('Excel.Application');
excel.Visible = false;
excel.DisplayAlerts = false;
excel.Workbooks.Open(filepath);
var book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
var xlMaximized = -4137;
excel.ActiveWindow.WindowState = xlMaximized; // 最大化

// 全シートをスキャンして，シート名を調査
var sheets = book.WorkSheets;
var e = new Enumerator(sheets);
var arr_sheets = [];
for (; !e.atEnd(); e.moveNext()) {
  // シートを取得
  var sheet = e.item();

  // 保持
  arr_sheets.push(sheet);
}

var previous = '';
// 取得済みの全シートについて
for (var i = 0; i < arr_sheets.length; i++) {
  // searchに文字を入れるとその単語のシートごとにファイル分割。
  search('2020');
}
previous = '';
for (i = 0; i < arr_sheets.length; i++) {
  search('2021');
}
WScript.Quit();

function search(search_string) {
  var new_filepath = cwd + '\\' + search_string + '.xlsx';
  var new_book;
  var regexp = new RegExp(String(search_string));

  if (regexp.test(arr_sheets[i].Name)) {
    if (!(search_string === previous)) {
      // 新規ワークブックを作成
      excel.Workbooks.Add();
      new_book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
    } else {
      excel.Workbooks.Open(new_filepath);
      new_book = excel.Workbooks(excel.Workbooks.Count); // ワークブックを取得
    }
    // シートを先頭にコピー挿入
    arr_sheets[i].Copy(new_book.Worksheets(1));

    // 新規ファイル保存。ファイル名はシート名
    WScript.Echo('新規ブックのパス：' + new_filepath);

    new_book.SaveAs(new_filepath);

    // 閉じる
    new_book.Close();
    previous = search_string;
  }
}

余談: バッチによるバックアップを考える

このサイトを参考に、バックアップをする方法を学ぶ。

  • コピーコマンドrobocopy
    　Robust File Copyの略であり、堅固（robust）で確実なファイルコピーという意味
    　robocopy <コピーしたいフォルダー> <第2引数にはコピー先のフォルダー> (<オプション:*.xls等の拡張子 >)

  • %cd%: バッチがある現在の場所のフォルダー。
    　もしデスクトップにバッチファイルを置いたら、%cd% = C:\Users\<user>\Desktop

例： エクセルファイルのみをバックアップ

excel-backup.bat

@echo off
robocopy %cd% c:\ドキュメント\家計簿\家計簿バックアップ *.xls *.xlsx
pause

参考サイト

・ JScript/WSH で，Excelファイルを読み書きしよう





⇧目次へ戻る

コメント

コメントを投稿

このブログの人気の投稿

プロフィール

-
no title 目次 ▶︎ all running... 目次 リンク 趣味 リンク GitHub: https://github.com/SARDONYX-sard Twitter: https://twitter.com/SARDONY94463261 趣味 プログラミング 使用言語 HTML, CSS, JavaScript(TypeScript), Python, Ruby, PHP ゲーム： モンハン ⇧目次へ戻る
続きを読む

windows10でブルートゥース残量を5秒間確認するバッチ

-
no title 目次 ▶︎ all running... 目次 はじめに コード ms-settings:URIスキーム全リスト 参考サイト はじめに windows10にて、ブルートゥースヘッドフォンを使っているけれど、2日に1回は充電しなければならない。 そのため、毎回電池を確認するのだが、メンドイのでバッチを書いた。 コード ms-settings:bluetooth というのがブルートゥースの設定画面。他は下記に記載 timeout <number> で何秒休むか指定 最後に taskkill <exe> で終了 オプションの意味 /F : 強制終了させる /IM : image-nameの略で、終了対象のプロセスを指定できる @ echo off start ms-settings:bluetooth timeout 5 taskkill /F /IM SystemSettings.exe /T ms-settings:URIスキーム全リスト コピペ用バッチの例： ブルートゥースとその他デバイス項目を開くbatファイル。 start ms-settings:bluetooth ms-settings URI 設定の場所 ms-settings:about システム｜バージョン情報 ms-settings:activation 更新とセキュリティ｜ライセンス認証 ms-settings:appsfeatures アプリ｜アプリと機能 ms-settings:appsforwebsites アプリ｜Web サイト用のアプリ ms-settings:apps-share ？ ms-settings:autoplay デバイス｜自動再生 ms-settings:backup 更新とセキュリティ｜バックアップ ms-settings:batterysaver システム｜バッテリー ms-settings:batterysaver-settings システム｜バッテリー ms-se
続きを読む