xlsファイルをxlsmファイルに変換する方法

質問

ご教授お願いします。

ローカルに作成された「xlsファイル」(マクロ付)を「xlsmファイル」に変換したのですが、
サンプルロジックをいただけないでしょうか。

「xlsmファイル」の作成先は、「xlsファイル」が保管されているフォルダと同じです。
変換の際、Excel画面は表示させたくないです。
起動はバッチです。

■環境
　Windows7
　office2010
　vb2008

ぜひともよろしくお願いいたします

以上

回答No.1

queuerev2

VB使いの方々の解答がないので、VBScriptにて失礼いたします。
しかもWindows XP, Office2007の環境であり、コードもとりあえず動いたというレベルのものであることをお断りいたします。

option explicit
dim excelapp
dim FSO
dim path
dim targetworkbook
set FSO=createobject("scripting.filesystemobject")

if wscript.arguments.count=0 then
　　wscript.echo "開くExcelファイルを引数に指定してください"
else
　　path=wscript.arguments(0)
　　set excelapp=createobject("excel.application")
'　　excelapp.visible=true 'テスト用にExcelを可視にする
　　set targetworkbook=excelapp.Workbooks.Open(path,false,true)
'　　Openの引数は「Excelでお仕事」の「強制的に「マクロ有効」で開かせる」より
　　call targetworkbook.SaveAs(extension_change(targetworkbook.fullname), 52)
'　　xlOpenXMLWorkbookMacroEnabled の値は 52
　　excelapp.quit
end if

function extension_change(filepath)
　　extension_change=left(filepath,len(filepath)- _
　　　　len(FSO.getextensionname(filepath))) & "xlsm"
end function

参考資料：
「Excelでお仕事」　http://www.asahi-net.or.jp/~ef2o-inue/top01.html
「Office TANAKA」　http://officetanaka.net/