WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Close All Open OLE COM Objects


#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