Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
#DefineSubroutine ObjectCloseAll() COMTYPE = 1536 INTTYPE = 1 vars = IntControl(77, 12, 0, 0, 0) olelist = "" For item = 1 To ItemCount(vars, @TAB) thisvar = ItemExtract(item, vars, @TAB) type = VarType(%thisvar%) If type == COMTYPE|INTTYPE Then ObjectClose(%thisvar%) Next return 1 #EndSubroutine obj = ObjectOpen("Excel.Application") wbs = obj.Workbooks wbs.open("c:\temp\data\test.xls") wbs.Close() wbs.Quit ObjectCloseAll()
Article ID: W16550
File Created: 2010:04:07:09:43:06
Last Updated: 2010:04:07:09:43:06