Commit db2b8e5

committed

Quit Excel once finished

1 parent e459c3c commit db2b8e5Copy full SHA for db2b8e5

File tree

-3

lines changed

-3

lines changed

Lines changed: 6 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -193,9 +193,9 @@ Class clsMSExcel`
`193`	`193`
`194`	`194`	`Public Sub Quit()`
`195`	`195`
`196`		`- IfNot(oApplicationIsNothing)Then`
`197`		`- oApplication.Quit`
`198`		`- EndIf`
	`196`	`+ OnErrorResumeNext`
	`197`	`+ oApplication.Quit`
	`198`	`+ OnErrorGoto0`
`199`	`199`
`200`	`200`	`End Sub`
`201`	`201`
`@@ -287,6 +287,7 @@ Class clsMSExcel`
`287`	`287`	`sFileName = sFolder + "\" + sFileName`
`288`	`288`	`End If`
`289`	`289`
	`290`	`+ oApplication.DisplayAlerts = False`
`290`	`291`	`Set wb = oApplication.Workbooks.Open(sFileName, bUpdateLinks, bReadOnly)`
`291`	`292`
`292`	`293`	`If Not (wb is Nothing) Then`
`@@ -342,8 +343,10 @@ Class clsMSExcel`
`342`	`343`
`343`	`344`	`End if ' If Not (wb is Nothing) Then`
`344`	`345`
	`346`	`+ On error Resume Next`
`345`	`347`	`wb.Close`
`346`	`348`	`Set wb = Nothing`
	`349`	`+ On error GOto 0`
`347`	`350`
`348`	`351`	`End Sub`
`349`	`352`

Comments

(0)