やったこと
RedemineのViewCustomizePluginを使って、ExcelBook(html形式)をチケット画面やガントチャート画面に表示する様にしました。
（Bitnami Redmine 3.3.0, ie11）
概要
やろうと思った経緯
良くあるのですが、Redmineでチケット駆動開発をしている中で、上司は、中日程をエクセルで管理して共有しています。
エクセル資料をサーバーに置いて、メールでも添付して資料を見てください。
・・・という事をやっているのですが、
部下はサーバーの資料をあまり見に行ってくれません。
メールに添付した資料も、他のメールに埋もれてしまって、見ようと思いません。
上司も、部下がほとんど見ない資料をメンテする事になるので、そのうちサーバー資料のメンテを放置してしまいます。
結果
Redmineに、サーバーのエクセル資料を表示する様にしました。
チケット画面やガントチャート画面の下にエクセルブックを表示しています。
ViewCustomizePluginの機能で実装しています。
いつも見ているチケット画面に表示されるので、ちょいちょい目に入り、中日程が気になったら、すぐに見られる様になりました。
上司も今までと同様に、サーバー上のエクセルファイルを修正するだけで良いので、情報共有が楽になった様です。
RedmineにExcelBookを表示する
VewCustomizePluginでExcelBook(html形式)をチケット画面やガントチャート画面に表示します。
ExcelBook(html形式)を置いた場所
Redmineサーバー側にフォルダを作成
⇒C:\Bitnami\redmine\apache2\htdocs配下に置き場所のフォルダ（ShareInfo\mySchedule）を作成し、ExcelBook(html形式)が設置された状態
C:\Bitnami\redmine\apache2\htdocs\ShareInfo\mySchedule
■ExcelBook(html形式)
mySchedule.files
mySchedule.html
ViewCustomizePlugin設定
指定したプロジェクトでExcelデータを表示する設定です。
Path pattern:
/issues
Type:
JavaScript
Code:
/* 他のページを取り込む */
$(function(){
/* TESTプロジェクトのみ対象 */
if($('body').hasClass('project-test'))
{
var $hideExcelLink = $("<a href='#' >hideExcel</a>");
var $myFrame = $("<iframe class='autoSizeAdjust' width='100%' height='400px' frameborder='0' src='http://127.0.0.1/ShareInfo/mySchedule/mySchedule.html' scrolling='auto'></iframe>");
/* Excelページを最後に追加 */
$('#content').after(
$hideExcelLink, //非表示ボタン
$myFrame //Excelページ
);
/* Excelページの非表示 */
var func = function(){
$myFrame.hide();
$(this).hide(); //hideExcelのリンクを非表示に
return false;
};
$hideExcelLink.click(func);
}
else
{
//DO NOTHING
}
});
共有サーバーのExcelBook(html形式)をRedmineサーバーへコピーする
共有サーバー側のフォルダ:
\\NAS\home\Tool\ShareInfo\mySchedule
をRedmineサーバーへフォルダごとコピー
C:\Bitnami\redmine\apache2\htdocs\ShareInfo\mySchedule`
コピー方法はバッチファイルで実装
下記バッチファイルをRedmineサーバー側から起動して実施
::--- 上書き確認を行わずにディレクトリ/ファイルをコピーする ---
::/S ファイルが存在する場合のみディレクトリごとコピーする
::/R 読み取り専用属性のファイルも上書きコピーできるようにする
::/I コピー先のディレクトリが存在しない場合は新規にディレクトリを作成する
::/Y 同名のファイルが存在する場合、上書きの確認を行わない
::/Z ネットワーク経由のコピーでネットワーク切断が発生した場合、コピーを再開できるようにする
::/K 通常は解除される読み取り専用属性を維持したままコピーする
xcopy \\NAS\home\Tool\ShareInfo\mySchedule C:\Bitnami\redmine\apache2\htdocs\ShareInfo\mySchedule /S /R /I /Y /Z /K
ExcelBookをhtml形式で保存するExcelマクロ
htmlで保存するためのExcelマクロBookを別に設置しておいて、
iniファイル設定で、対象のエクセル資料を指定する様にしました。
※対象のエクセル資料は閉じている状態が前提になります。（同じファイル名を開くエラーになります。。。）
ファイル構成
AutoHtmlSetup.xlsmを起動すると、日程.xlsxを開いてhtml形式で保存して閉じる。
AutoHtmlSetup.ini
AutoHtmlSetup.xlsm
日程.xlsx
AutoHtmlSetup.ini
AutoHtmlSetup.iniファイルには、Excelマクロファイル（AutoHtmlSetup.xlsm）の動作設定などを記載。
[INPUT_FILE]
・開くエクセルファイル（日程.xlsx）の指定
[OUTPUT_FILE]
・htmlファイルの保存先
[終了OPTION]
・AutoClose=1：htmlファイルの保存後、ExcelマクロBOOKを自動クローズする。
・AutoClose=0：自動クローズしない
※Excelマクロファイルを編集したい場合、クローズしないに設定する。
[INPUT_FILE]
InputFilePath=\\NAS\home\Tool\ShareInfo\日程.xlsx
[OUTPUT_FILE]
OutputFilePath=\\NAS\home\Tool\ShareInfo\mySchedule\mySchedule.html
[終了OPTION]
AutoClose=1
AutoHtmlSetup.xlsm
'Bookが開いたら自動実行
Private Sub Workbook_Open()
AutoSaveHtml
End Sub
'エクセルをHTML形式で保存する
' iniファイルから、エクセルパスとHTML出力パスを取得
' iniファイルでこの自動実行を自動終了するかどうか分岐可能
Private Sub AutoSaveHtml()
Dim mybook As Workbook
Dim isAutoClose, InputFilePath, OutputFilePath, FileName, FileFolder As String
Dim myFSO As Object
Dim IsFolderExist As Boolean
'監視するエクセルファイルをiniファイルから取得
InputFilePath = Readini(ThisWorkbook.Path & "\AutoHtmlSetup.ini", "INPUT_FILE", "InputFilePath")
'- BOOK OPEN
Set mybook = Workbooks.Open(FileName:=InputFilePath)
'ActiveWorkbook
'htmlファイルで出力する
OutputFilePath = Readini(ThisWorkbook.Path & "\AutoHtmlSetup.ini", "OUTPUT_FILE", "OutputFilePath")
Set myFSO = CreateObject("Scripting.FileSystemObject")
FileName = myFSO.GetFileName(OutputFilePath)
FileFolder = myFSO.GetParentFolderName(OutputFilePath)
IsFolderExist = IsFolderExistsFunc(FileFolder)
If (IsFolderExist) Then
'- HTML OUT
Application.DisplayAlerts = False '（上書き）警告を無効に
mybook.SaveAs FileName:=OutputFilePath, FileFormat:=xlHtml
Application.DisplayAlerts = True '警告を有効に
'- 出力したhtmlファイルが開いたままにならない様にclose
mybook.Close
End If
'iniファイルで自動終了するかどうか分岐する
isAutoClose = Readini(ThisWorkbook.Path & "\AutoHtmlSetup.ini", "終了OPTION", "AutoClose")
If (isAutoClose = "1") Then
'自動終了する
'- 他にエクセル開いていなければエクセルを終了する
If (Workbooks.Count = 1) Then
Application.Quit
End If
'- 最初にiniファイルから開いたBOOKが開いているのを閉じる
ActiveWorkbook.Close
ElseIf (IsFolderExist = False) Then
'開いたエクセルファイルを閉じておく
mybook.Close
'自動終了しない 出力先フォルダがない
MsgBox "HTMLの出力先フォルダを先に作成してください：" & FileFolder
End If
End Sub
'フォルダがあるかどうか
' ある:True
' ない:False
Private Function IsFolderExistsFunc(folder_path As String) As Boolean
If (Dir(folder_path, vbDirectory) = "") Then
IsFolderExistsFunc = False
Else
IsFolderExistsFunc = True
End If
End Function
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Const STRING_MAX_SIZE As Integer = 4096
' 【入出力】 striniFile ： (I) iniファイル名（ファイル名はフルパスとする事）
' strSection ： (I) iniファイルセクション名
' strKey ： (I) iniファイルキー名
' 【戻り値】 読み込んだiniファイルのvalue値。
Public Function Readini(ByVal striniFile As String, _
ByVal strSection As String, _
ByVal strKey As String) As String
Dim nret As Long '復帰値格納用
'---------------
' iniファイル読み込み時の設定文字（固定長）
' STRING_MAX_SIZE分の固定領域
' iniファイル読み込み時、可変長ではアボートする。
'---------------
Dim strValue As String * STRING_MAX_SIZE
strValue = Space(STRING_MAX_SIZE) 'スペース埋めしておかないとサイズ指定の文字列はゴミが入っている。(初期化されていない。)
nret = GetPrivateProfileString(strSection, strKey, "", strValue, STRING_MAX_SIZE, striniFile)
'iniファイル読み込みで取得した文字列はNULLも取ってしまっているので、NULLの直前まで取得
Readini = Left(strValue, (InStr(strValue, Chr(0)) - 1))
End Function
定期実行設定にする
設置したExcelマクロを自動実行させて、
サーバーにあるExcel資料（日程.xlsx）を、html形式で保存する作業を自動処理させます。
これをするには、Excelマクロを起動するPCにExcelがインストールされている必要があります。
結局、これは自分の個人PCから実行する様にしました。
理由：
・Redmineや、自動実行ツールJenkinsのPCにエクセルが入っていない。
・日程.xlsxにマクロを入れたくない。（マクロを有効にしますかボタンが表示されるのが嫌らしい）
・日程.xlsxは今まで通り、サーバーの資料を修正して保存するだけがいい。
・上司は資料をsubversionで管理してくれない。（コミットトリガ設定できない）
などなど。。。
残念。何か良い方法ございましたら、どなたか教えて下さい。。。