海豹日記

{{pagename}} - {{sitename}}

@sushi

* Jenkins から vba バッチを動かす方法

``` drawio
7ZhNc9sgEIZ/DTPJJWML6+toJWo7mWSSaWba9IglItFg8GAUy/31BQtZHyiOGzvJobnY7IpF7MMLiw3g+bz8KtAiv+YppsAZpSWAF8BxxjB01Jf2rCuPH4wqRyZIajo1jjvyBxtn3a0gKV52OkrOqSSLrjPhjOFEdnxICL7qdnvgtPvWBcqw5bhLELW9P0kq88obOH7j/4ZJltdvHnth9WSO6s4mk2WOUr5quWAM4LngXFateXmOqYZXc6nivjzzdDsxgZncKwBWEU+IFiY5MzG5rrMVvGAp1gEjAKNVTiS+W6BEP12p9VW+XM6pssaqaYbDQuLy2TmNt5kqiWA+x1KsVZdVw9J3DaC8zTE0TmTWL9vGNimqhslyOGPXSvgnYTxVkoghCCAI403DAZFvPBE8DImGQZR4ppRkTPlmXEo+P5CVCXBGBsm6u0NaKN3JEEr/CCgntnYMQ2ga08g0gnAn3tHJFWFFeWqBfgEtWi6q/f1ASr0cb8p6/CLqLdWjo65f1kKDU3UmGZMLmfOMM0Tjxht1Vdr0ueJ8YQD+xlKuzQGLCsm7eHFJ5H2r/UsPdeYa66I0I2+MdW0wldp922hFabMJ21h1XJWfTmr38igGvBCJ6WVOK4lEhk0vOLyIAlMkyVN39EOWxLHUf4nZI2FL4HhUzSVKyZNqZrp5AmIPhKHWfeyCIACR2hjq091sA+WJQOhe3kSndax6eSt8x/kzftsj2QRMutKfDEjfGZC+dwTlDxUoi2+PfJfeNNNZWtuHUnVdwO+Cb1vua36uxc/zbHzuEfB5Fr5rJBL+vWBnM2RTebdabwJgn8w7Kst/Hs3TbPnhaCb+x6EJLDRxmehLvLXzfkTTPc8sddVd6Cbjco9dN0PJY7ZBflNIShg2/hSJxxsVReSmcJyN3OPQ9npHnGPTDoaK++gItMOBI65/WrF0qn+4KCuhaLkkSRdXV5yvrcGvqfevq9vQrtve8Pq0b7IDC1D79i7v5g23nOiisD2Hwt5mc3rrWk3eRLV/UPUGmvR0BPu3vypla6CNRrZp73cnHP9/uvFs3fifuvlH3dg314/SjbZusSBq9lgcJAzfFkbwKYydwlBm80dT1b35uw7GfwE=
```

* 直接JenkinsからVBAをたたけないので、間に bat、vbs (VB Script) を噛ませる

    * MacroRun.bat
    
    ```bat
    start MacroRun.vbs
    ```
    
    * MacroRun.vbs
    
    ```vbs
    Set objWshShell = CreateObject("WScript.Shell")
    Set xls = WScript.CreateObject("Excel.Application")
    
    xls.Visible = True
    xls.DisplayAlerts = False
    xls.Workbooks.Open objWshShell.CurrentDirectory & "\Sample.xlsx"
    xls.Application.Run "ThisWorkbook.Macro1"
    xls.Quit
    ```

    * 最終的に Sample.xlsx 内の Macro1 を動かすことができる

<hr/>

* [[https://at-sushi.com/pukiwiki/index.php?cmd=read&page=Win32%20Trac%20Lightning]] より転載


batからvbaの実行