【Excel】フォルダ内のエクセルファイルに対して情報を取得する

Dir関数を用いるため、ネットワーク上の長いファイルパスには未対応です。

Sub Test()

'
' Test Macro
'
' フォルダ内のファイルに対して処理を行います。
'
    ' 画面チラつきを防止する。
    Application.ScreenUpdating = False

    ' フォルダパスとファイル名を宣言する。
    Dim strFilePath As String
    Dim strFileNmae As String
 
    ' テキストボックスかセル入力でフォルダを指定させる。
    strFilePath = "C:\Users\test\Desktop\テストディレクトリ"
    strFilePath = Worksheets("sheet1").Cells(2, 1).Value
    
    ' 末尾が\ではない場合、\を追加する。(未実装)
    strFilePath = strFilePath & "\"
    
    ' 指定フォルダ内のファイル名を取得する。
    strFileName = Dir(strFilePath, vbNormal)

    ' 結果シートをアクティブにする。
    Worksheets("sheet1").Activate
   
    ' 結果シートの行数を宣言する。
    Dim longGyo As Long
    longGyo = 3

    ' 指定フォルダ内のファイルがなくなるまで繰り返す。
    Do While strFileName <> ""
        
        ' 結果配列とシート数を宣言する。
        Dim strArr() As String
        Dim sheetCnt As Long

        ' ファイルを開く。
        With Workbooks.Open(Filename:=strFilePath & strFileName)

            ' ファイル内のシート数を取得する。
            sheetCnt = .Worksheets.Count

            ' ファイル内のシート数分+チェックしたい項目数分の2次元配列を確保する。
            ReDim strArr(1 To sheetCnt + 1, 10)
            
            ' 1シート目からnシート目まで繰り返す。
            Dim i As Long
            For i = 1 To sheetCnt
                strArr(i, 0) = .Worksheets(i).Name
                strArr(i, 1) = .Worksheets(i).Cells(3, 4).Value
                strArr(i, 2) = .Worksheets(i).PageSetup.LeftHeader
                strArr(i, 3) = .Worksheets(i).PageSetup.CenterHeader
                strArr(i, 4) = .Worksheets(i).PageSetup.RightHeader
                strArr(i, 5) = .Worksheets(i).PageSetup.LeftFooter
                strArr(i, 6) = .Worksheets(i).PageSetup.CenterFooter
                strArr(i, 7) = .Worksheets(i).PageSetup.RightFooter
                
                .Worksheets(i).Select
                strArr(i, 8) = ActiveWindow.Zoom
                strArr(i, 9) = ActiveCell.Address
            Next i
            
            ' 保存せずファイルを閉じる。
            .Close SaveChanges:=False
        End With

        ' 配列の1からnまで繰り返す。
        Dim j As Long
        For j = 1 To sheetCnt
            ' 結果シートのセルに各ファイルの各シートの値を設定する。
            Cells(longGyo, 1).Value = strFilePath & strFileName
            Cells(longGyo, 2).Value = strArr(j, 0)
            Cells(longGyo, 3).Value = strArr(j, 1)
            Cells(longGyo, 4).Value = strArr(j, 2)
            Cells(longGyo, 5).Value = strArr(j, 3)
            Cells(longGyo, 6).Value = strArr(j, 4)
            Cells(longGyo, 7).Value = strArr(j, 5)
            Cells(longGyo, 8).Value = strArr(j, 6)
            Cells(longGyo, 9).Value = strArr(j, 7)
            Cells(longGyo, 10).Value = strArr(j, 8)
            Cells(longGyo, 11).Value = strArr(j, 9)
            longGyo = longGyo + 1
        Next j

        ' 次のファイルを取得する。
        strFileName = Dir()
    Loop
        
    ' 画面チラつき防止を解除する。
    Application.ScreenUpdating = True
End Sub

【Excel】全シート分繰り返す

Sub Test()

'
' Test Macro
'
' 全シート分繰り返す。
'
    ' 画面のチラつきの防止設定を行う。
    Application.ScreenUpdating = False

    ' 全シート分繰り返す。
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        ' シートを選択する。
        Sht.Select
        ' 処理を記述する。
        Msg "test"
    Next Sht

    ' 画面のチラつきの防止設定を元に戻す。
    Application.ScreenUpdating = True
End Sub

【Excel】選択セルの行列と選択セルの最終行列

Sub Test()

'
' Test Macro
'
' 行列を求める。
'
    ' 特定のセルを選択する。(i:行、j:列)
    ActiveSheet.Cells(i, j).Select

    ' 選択セルの行求める。
    MsgBox ActiveCell.Row

    ' 選択セルの列を求める。
    MsgBox Activecell.Column

    ' 選択セルの最終行を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlDown).Row

    ' 選択セルの最終列を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlToRight).Column

End Sub

【bat】エビデンスの取得効率化

少しでもエビデンスの取得を効率化するために、
下記手順でテストを行うことを想定。

  1. 01_BEFORE_UT.batを実行(第1引数にフォルダ名(ケース番号)を指定)
  2. テスト実行
  3. 02_AFTER_UT.batを実行(第1引数にフォルダ名(ケース番号)を指定)

DBはDB2としています。

  • 01_BAFORE_UT.bat

    @ECHO OFF
    REM 実行時の第1引数にエビデンス用のフォルダ名(ケース番号)を指定してください。
    REM コマンドプロンプトを立ち上げ、「db2cmd 01_BAFORE_UT.bat フォルダ名」で実行します。
    
    REM *************************************************************
    REM  エビデンスフォルダ設定
    REM *************************************************************
    SET EVI_DIR=%1
    SET SQL_OUTPUT=%EVI_DIR%\10_SQL_LOG_Before
    MKDIR %EVI_DIR%
    MKDIR %SQL_OUTPUT%
    
    REM *************************************************************
    REM  DB設定(各自の設定に変更してください。)
    REM *************************************************************
    SET SERVER_I=XXXXX
    SET USER_ID=YYYYY
    SET USER_PASS=ZZZZZ
    
    REM *************************************************************
    REM  DB2接続
    REM    -t:SQLファイル内のセミコロンをステートメント終了文字とする。
    REM    -v:コマンドテキストを標準出力にエコーする。
    REM *************************************************************
    db2 -tv connect to %SERVER_ID% user %USER_ID% using %USER_PASS%;
    
    REM *************************************************************
    REM  SQL実行
    REM    -t:SQLファイル内のセミコロンをステートメント終了文字とする。
    REM    -v:コマンドテキストを標準出力にエコーする。
    REM    -f:ファイル名を指定する。SQL文をファイルから読み込む。
    REM *************************************************************
    db2 -tvf select_AAA.sql > %SQL_OUTPUT%\select_AAA.log
    
    REM *************************************************************
    REM  DB2切断
    REM *************************************************************
    db2 connect reset
    
  • 02_AFTER_UT.bat

    @ECHO OFF
    REM 実行時の第1引数にエビデンス用のフォルダ名(ケース番号)を指定してください。
    REM コマンドプロンプトを立ち上げ、「db2cmd 02_AFTER_UT.bat フォルダ名」で実行します。
    
    REM *************************************************************
    REM  エビデンスフォルダ設定
    REM *************************************************************
    SET EVI_DIR=%1
    SET SQL_OUTPUT=%EVI_DIR%\20_SQL_LOG_After
    SET LOG_OUTPUT=%EVI_DIR%\30_BATCH_LOG
    MKDIR %SQL_OUTPUT%
    MKDIR %LOG_OUTPUT%
    
    REM *************************************************************
    REM  DB設定(各自の設定に変更してください。)
    REM *************************************************************
    SET SERVER_I=XXXXX
    SET USER_ID=YYYYY
    SET USER_PASS=ZZZZZ
    
    REM *************************************************************
    REM  DB2接続
    REM    -t:SQLファイル内のセミコロンをステートメント終了文字とする。
    REM    -v:コマンドテキストを標準出力にエコーする。
    REM *************************************************************
    db2 -tv connect to %SERVER_ID% user %USER_ID% using %USER_PASS%;
    
    REM *************************************************************
    REM  SQL実行
    REM    -t:SQLファイル内のセミコロンをステートメント終了文字とする。
    REM    -v:コマンドテキストを標準出力にエコーする。
    REM    -f:ファイル名を指定する。SQL文をファイルから読み込む。
    REM *************************************************************
    db2 -tvf select_AAA.sql > %SQL_OUTPUT%\select_AAA.log
    
    REM *************************************************************
    REM  DB2切断
    REM *************************************************************
    db2 connect reset
    
    REM *************************************************************
    REM  ログファイル取得
    REM *************************************************************
    copy \\サーバーホスト名\12345\xxxx.log %LOG_OUTPUT%
    

【Java】jarファイル付のJavaコンパイル

基本的なことをメモ。

  • 前提条件
    /home/testにjarファイル、Javaファイルがある。
    Javaファイルは処理内でjarファイル内のメソッドを利用する。
  • コンパイルと実行

    cd /home/test
    javac -cp .:./jarファイル javaファイル
    java -cp .:./jarファイル クラス名
    
  • クラスパスの区切り文字
    Linuxはコロンになる。
    Windowsはセミコロンになる。
  • 実行時のルートパス
    実行時に-cp指定がないとJAVA_HOMEがルートになる。
    .を指定することで現在いるディレクトリがルートになる。

【jQuery】動的追加したオブジェクトにイベントを設定

jQueryでオブジェクト(ボタンやリンク)にイベントを設定した場合、
画面表示時点で存在しているオブジェクトを押下すると
設定したイベントがもちろん実行されますが、
動的追加したオブジェクトでは押下しても設定したイベントが
実行されない事象があったので、解決策をメモしておきます。


  • 下記のようなHTML(Thymeleaf)があると仮定し、
    追加ボタンを押下すると行(<tr>~</tr>)が追加されるとする。

    <table class="table">
      <thead>
        <tr>
          <th><span th:text="${no}"></span></th>
          <th><span th:text="${gaiyou}"></span></th>
          <th><span th:text="${naiyou}"></span></th>
          <th><span th:text="${link}"></span></th>
          <th><span th:text="${aruaru}"></span></th>
        </tr>
      </thead>
      <tbody id="van-tbody">
        <tr th:each="van : ${vanAll}" >
          <td><span th:text="${van.no}"></span></td>
          <td><span th:text="${van.gaiyou}"></span></td>
          <td><span th:text="${van.naiyou}"></span></td>
          <td><span th:text="${link}"></span></td>
          <td>
            <span th:text="${van.aruaru}"></span><button id="button-plus + '${van.no}'" type="button" class="btn btn-plus"><span class="glyphicon glyphicon-plus-sign"></span></button>
          </td>
        </tr>
      </tbody>
    </table>
    
  • オブジェクトのイベント設定(静的)
    上記HTMLにおいて初期状態で2行分があるとし、
    その2行分のみにイベントを設定する場合、下記のようなイベント設定で問題なし。

    • clickメソッド
      古いタイプのイベント設定方法。
      「button」に設定してしまうとテーブル外のボタンにもイベントが設定されてしまうので、
      テーブル内のボタンだけが利用しているスタイルシート「btn-plus」にイベントを設定している。

      <script type="text/javascript">
      <!--
      $(document).ready(function() {
        $('.bth-plus').click(function() {
          alert('クリックしました');
        });
      });
      -->
      </script>
      
    • onメソッド
      新しいタイプのイベント設定方法。
      こちらの設定方法が推奨されており、「バインド」と呼ばれる。
      onメソッドの第1引数はスペースで区切れば複数のイベントも設定可能。
      例:’click keyup’

      <script type="text/javascript">
      <!--
      $(document).ready(function() {
        $('.bth-plus').on('click', function(){
          alert('クリックしました');
        });
      });
      -->
      </script>
      
  • オブジェクトのイベント設定(動的)
    上記HTMLにおいて初期状態で2行分があるとし、
    3行目、4行目と増えてもイベントを動作させたい場合、
    下記のようにイベント自体は親に設定しておいて、
    onメソッドの第2引数に本来イベントを設定したいオブジェクトを指定します。

    • onメソッド(第2引数追加版)
      このような設定方法を「デリゲート」という。

      <script type="text/javascript">
      <!--
      $(document).ready(function() {
        $('table').on('click', '.btn-plus', function(){
          alert('クリックしました');
        });
      });
      -->
      </script>
      

【SpringMVC】GoogleChartsの利用

画面でボタン押下時にモーダルダイアログを表示し、
GoogleChartsを利用し、グラフを表示します。

  • 画面の処理
    ボタンにIDを追加する。

    <button id="bsButton" type="button" class="btn btn-danger">グラフ表示</button>
    

    モーダルダイアログの表示領域を設定する。

    <!-- Chart Create Modal -->
    <div th:fragment="chart-create-modal">
      <div class="modal fade bs-example-modal-lg" id="myModal" tabindex="-1">
        <div class="modal-dialog modal-lg">
          <div class="modal-content">
            <div class="modal-header">
              <button type="button" class="close" data-dismiss="modal">&times;</button>
              <h3 class="modal-title" id="myModalLabel">タイトル</h3>
            </div>
            <div class="modal-body">
              <div id="chart_div" style="width: 400px; height: 400px;"></div>
            </div>
          </div>
        </div>
      </div>
    </div>
    

    JavaScriptでサーバー側からデータ取得処理を呼び出し
    GoogleのAPIにデータを渡します。

    <script type="text/javascript" src="http://www.google.com/jsapi"></script>
    <script type="text/javascript">
    google.load("visualization", "1", {
      packages : [ "corechart" ]
    });
    <!--
    $(document).ready(function() {
      $("#bsButton").click(showChart);
    });
    
    function showChart() {
      $.post(
        '/sample/showChart', // URL
        {},                  // Userデータ
        function(result) {
          $("#myModalLabel").html("テストグラフ");
          $('#myModal').modal('show');
          var data = google.visualization.arrayToDataTable(result);
          var options = {
            title : 'テストグラフタイトル',
            vAxis : {title : "縦座標"},
            hAxis : {title : "横座標"},
            seriesType : "bars",
            series : {5 : {type : "line"}}
          };
          var chart = new google.visualization.ComboChart(document.getElementById('chart_div'));
          chart.draw(data, options);
        },                   // 成功時のコールバック
        "json"               // JSON形式
      );
    }
    
  • サーバの処理
    サーバー側からデータを取得しJSON形式で返します。

    @RequestMapping(value = "/showChart", method = RequestMethod.POST)
    @ResponseBody
    public Object[][] showChart(WebRequest request) {
        int rows = 3;
        int cols = 6;
        Object[][] result = new Object[rows][cols];
        int row=0, col=0;
        // result配列にヘッダとデータを設定
        return result;
    }
    

【SpringMVC】バリデーションチェック

SpringMVCでバリデーションチェックを実施します。
例として、作業時間入力用のクラスがあるとして、それを複数所持するListがあるとし、
JSPでそのListをループし、作業時間入力レコードを複数表示およびチェックします。

  • バリデーションチェックのjarファイル追加
    「【SpringMVC設定】ファイルその4」を参考にpom.xmlにjarファイルを追加する。
  • アノテーション追加
    作業時間入力用のクラスは全て必須項目とするため、「@NotNull」を追加する。

    public class DayTimeWork implements Serializable {
        private static final long serialVersionUID = 1L;
    
        @NotNull
        private String ankenNo;
        @NotNull
        private String startTime;
        @NotNull
        private String endTime;
    
        アクセサメソッドは省略。
    }
    

    作業時間入力用のクラスを保持するListには「@Valid」を追加する。
    「@Valid」はネストしたクラスも検証対象とする場合、追加します。

    public class DayTime implements Serializable {
        @Valid
        private List<DayTimeWork> dayTimeWork;
    
        アクセサメソッドは省略。
    }
    
  • コントローラーへの設定追加
    Javaコントローラーにバリデーションチェックを実施するための設定を追加する。
    「@Validated」の次の項目にBindingResultを記載しないと
    実行時にValidationExceptionが発生する。

    
    @Controller
    public class InputController {
    
        @InitBinder
        public void initBinder(WebDataBinder binder) {
            // bind empty strings as null
            binder.registerCustomEditor(String.class, new StringTrimmerEditor(true));
        }
    
        @RequestMapping(value = "/updateDayTime", method = RequestMethod.POST)
        public String updateDayTime(
                @ModelAttribute(value = "dayTime") DayTime dayTime, 
                final @Validated DayTime inputDayTime, 
                BindingResult result, 
                Model model) {
            // 処理省略
        }
    }
    
  • JSPへの設定追加
    JSPでバリデーションチェック結果を取得する。
    Thymeleafのタグを利用し、全項目内でエラーが1つでもあれば、
    変数errとしてエラーを取得し、表示しています。

    <form class="form-horizontal" action="#" th:action="@{/updateDayTime}" th:object="${dayTime}" method="post">
    <fieldset>
      <ul th:if="${#fields.hasErrors('*')}">
        <li th:each="err : ${#fields.errors('*')}" th:text="${err}">Input is incorrect</li>
      </ul>
    </fieldset>
    </form>
    

    Thymeleafのタグを利用し、エラー項目のテキストボックスの枠を赤くしたり、
    入力がない場合、placeholderで「案件番号」という文字を初期表示することも可能。

    <form class="form-horizontal" action="#" th:action="@{/updateDayTime}" th:object="${dayTime}" method="post">
      <table class="table">
        <!-- 処理省略 -->
        <tr th:each="vc, row : *{dayTimeWork}" >
          <td th:class="${#fields.hasErrors('dayTimeWork[__${row.index}__].ankenNo')}? has-error"  align="center">
          <input type="text" th:field="*{dayTimeWork[__${row.index}__].ankenNo}" placeholder="案件番号" class="form-control" />
          </td>
        </tr>
      </table>
    </form>
    

【SpringMVC】でThymeleafを利用

JSPではサーブレット側の処理を記載していないと
値が渡せないので、画面側のデザインが値ありで確認しにくかったりしていましたが、
Thymeleafでは値がある場合、ない場合の動作を切り分けられる点、
また便利なタグが多い点から利用してみます。

  • src/main/webapp/WEB-INF/spring/appServlet/servlet-context.xml

    • コントローラーの処理終了後に呼び出される画面用ファイルの指定
      この部分を変更します。

      【変更前】

      <beans:bean class="org.springframework.web.servlet.view.InternalResourceViewResolver">
        <beans:property name="prefix" value="/WEB-INF/views/" />
        <beans:property name="suffix" value=".jsp" />
      </beans:bean>
      

      【変更後】

      <beans:bean id="templateResolver" class="org.thymeleaf.templateresolver.ServletContextTemplateResolver">
        <beans:property name="prefix" value="/WEB-INF/templates/" />
        <beans:property name="suffix" value=".html" />
        <beans:property name="templateMode" value="HTML5" />
      </beans:bean>
      
      <beans:bean id="templateEngine" class="org.thymeleaf.spring3.SpringTemplateEngine">
        <beans:property name="templateResolver" ref="templateResolver" />
      </beans:bean>
      
      <beans:bean class="org.thymeleaf.spring3.view.ThymeleafViewResolver">
        <beans:property name="characterEncoding" value="UTF-8" />
        <beans:property name="templateEngine" ref="templateEngine" />
      </beans:bean>
      
  • pom.xml
    「dependencies」タグの中に下記内容を追加します。

    • Thymeleafライブラリー

      <!-- Thymeleaf -->
      <dependency>
        <groupId>org.thymeleaf</groupId>
        <artifactId>thymeleaf-spring3</artifactId>
        <version>2.1.2.RELEASE</version>
      </dependency>
      

【SpringMVC】設定ファイルその4

  • pom.xml
    拡張設定の内容を記載します。
    前回の設定と同様に「dependencies」タグの中に下記内容を記載していきます。

    • バリデーションチェックライブラリー

      <!-- Validator -->
      <dependency>
        <groupId>javax.validation</groupId>
        <artifactId>validation-api</artifactId>
        <version>1.0.0.GA</version>
      </dependency>
      <dependency>
        <groupId>org.hibernate</groupId>
        <artifactId>hibernate-validator</artifactId>
        <version>4.3.1.Final</version>
      </dependency>
      
    • JavaオブジェクトをJSON形式に変換しGoogleAPIに渡すライブラリー

      <!-- Jacson -->
      <dependency>
        <groupId>org.codehaus.jackson</groupId>
        <artifactId>jackson-core-asl</artifactId>
        <version>1.6.4</version>
      </dependency>
      <dependency>
        <groupId>org.codehaus.jackson</groupId>
        <artifactId>jackson-mapper-asl</artifactId>
        <version>1.6.4</version>
      </dependency>
      <!-- GoogleAPI -->
      <dependency>
        <groupId>com.googlecode.json-simple</groupId>
        <artifactId>json-simple</artifactId>
        <version>1.1</version>
      </dependency>
      
    • JUnitライブラリー

      <!-- JUnit -->
      <dependency>
        <groupId>junit</groupId>
        <artifactId>junit</artifactId>
        <version>4.7</version>
        <scope>test</scope>
      </dependency>