Warning: Untested, writing off the top of my head.
lcXLS = "c:\some path\myFile.xls" oExcel = createobject("Excel.application") with oExcel .Workbooks.Open(m.lcXLS) .Activeworkbook.ActiveSheet.UsedRange.Columns.Hidden = .f. .Activeworkbook.Save .Quit endwith
|