Skip to content

Instantly share code, notes, and snippets.

@harpo
Created May 12, 2014 13:36
Show Gist options
  • Select an option

  • Save harpo/94e04ce6be771db31582 to your computer and use it in GitHub Desktop.

Select an option

Save harpo/94e04ce6be771db31582 to your computer and use it in GitHub Desktop.
XLSX->XLS conversion script by Michael Kuzmin
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(Wscript.Arguments(0))
objExcel.Application.Visible = False
objExcel.Application.DisplayAlerts = False
objExcel.ActiveWorkbook.SaveAs Wscript.Arguments(1), 56
objExcel.ActiveWorkbook.Close
objExcel.Application.DisplayAlerts = True
objExcel.Application.Quit
WScript.Quit
' XLSX->XLS conversion script by Michael Kuzmin
' http://kuzmin.ca/blog/?p=578
' This is how you can you it:
' c:\xlsx2xls.vbs "C:\inputdocument.xlsx" "C:\outputdocument.xls"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment