2016年5月31日火曜日

[WSH]Excelファイルを読み取り専用で開く

「読み取り専用」でExcelで開くサンプル。
起動中のExcelがあれば、それで開く。なければ新しいExcelを起動して、そのExcelで開く。
<job>
<script language=JScript>
fs = new ActiveXObject('Scripting.FileSystemObject')
arg = WScript.Arguments
if(!arg.length){WScript.Quit()}
try{var excel = GetObject('','Excel.Application')}catch(e){var excel = new ActiveXObject('Excel.Application')}
excel.Visible = true
for(i=0,L=arg.length; i < L ;i++){
excel.Workbooks.Open(arg(i) , 1 , true)
}
</script>
</job>

0 件のコメント:

コメントを投稿