One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
if WScript.Arguments.Count < 2 Then WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsxToxlsm SourcePath.xlsx Destination.xlsm" Wscript.Quit End If Dim oExcel Set oExcel = CreateObject("Excel.Application") Dim oBook Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0)) oBook.Worksheets(1).Activate oBook.SaveAs WScript.Arguments.Item(1), 52 oBook.Close False oExcel.Quit
|Can't get rid of Update Links message in Excel 2013||8||30|
|combine fist two words in a cell||2||23|
|Save and close already open Excel file using VBscript||9||48|
|Excel 2007 Change case in a url in a column||3||27|