ＳＱＬの窓 イラストAC フリー素材
<< 2021年 前期Windows試験問題( 5 ) : 16 | TOP | キーボード操作・エクスプローラ : 16 >>

2021年07月29日

HTA : JScript : Excel.Application でファイルを開くダイアログを使用する

 
通常だと、ダイアログが IE11 の後ろに隠れてしまうので、ダイアログを表示させる間、Excel 本体を表示させています(本体にアクセスはできません)。


<!DOCTYPE html>
<html>
<head>
<meta http-equiv="x-ua-compatible" content="ie=edge">
<meta charset="utf-8">

<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.6.0/jquery.min.js"></script>
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/5.0.1/css/bootstrap.min.css">

<script>
var excel = null;

$(function(){

    // Excel でファイルを開くダイアログ	
    $("#open_file_dialog").on("click", function(){
    
        // Excel をロード
        excel = new ActiveXObject("Excel.Application");

        // 表示
        excel.Visible = true;

        // 最小化して元のサイズと位置 : GetSaveAsFilename を前面に出す為
        // WScript.Shell の Run と同じ 2 と 1 が使える
        excel.WindowState = 2	// 最小化
        excel.WindowState = 1	// 元のサイズと位置

        excel.DisplayAlerts = false;

        // 一つのファイルを開く
        // https://docs.microsoft.com/ja-jp/office/vba/api/excel.application.getopenfilename
        var filePath = excel.GetOpenFilename("全て,*.*,CSV,*.csv", 1,"ファイルの選択",null, false );
        // 非表示
        excel.Visible = false;

        // 未選択の場合
        if( filePath === false ) {
            alert("ファイルの参照選択がキャンセルされました")
        }
        // 選択の場合
        else {
            alert(filePath + " を選択しました");
        }

        // Excel を終了
        excel.Quit();
        excel = null;
        // Excel 解放
        var idTmr = window.setTimeout("Cleanup();",1);

    });

});
// ******************************
// Excel 解放
// ******************************
function Cleanup() {
    CollectGarbage();
}

</script>
</head>
<body>

    <div id="head" class="m-5">
        <input type="button" id="open_file_dialog" value="ファイルを開く">
    </div>

</body>
</html>




GitHub
【IEの最新記事】
posted by at 2021-07-29 15:48 | IE | このブログの読者になる | 更新情報をチェックする


Powered by Seesaa