title: open and save a xltm file
body: <p>I've used some code in VBScript to open a .xlsm file and save that file. Now I want to do the same thing as a .xltm file. I've tried to open the xltm file with script, it works fine. While saving that file, it refers the default location and default extension. I need to save the newly opened file with the extension ".xlsm" in the specified location. I don't know how to proceed. Please help me to solve this.</p>
  
  <pre><code>Set objExcel = CreateObject("Excel.Application") 
  Set WBTestFile = objExcel.Workbooks.Open(WScript.Arguments(0))'SourceFile
  WBTestFile.save 
  WBTestFile.close 
  objExcel.Workbooks.Open(WScript.Arguments(0))
  </code></pre>
  
  <p>Here, I am passing the filename (with path) as an argument. I need to open the newly saved ".xlsm" file in the last statement. Argument: "c:\test\book1.xltm", my newly created file want to be saved in the location "C:\test\" with the extension "xlsm".</p>