code:

---

 $xls.UserControl = 1
 $= $xls.quit

---

code:

---

   break on

$objXL = CreateObject("EXCEL.application")

if @error = 0
   

   $rc = $objXL.Workbooks.
$objWorkbook = $objXL.Workbooks.Open("c:\WeldFlag.xls")
$objWorksheet = $objWorkbooks.ActiveSheet

$objCell = $objWorksheet.Range("c3")

If $objCell.Value = "overdue"
$objXL.Visible = 1    
$Selection = MessageBox ("Please do a new Setup on Welder 601", "OVERDUE SETUP ON 601", 36)
    If $Selection = 6
	?  "Enter New Setup Date on Worksheet and Anstat"
	sleep 4
	Endif
Endif
break off
$Selection = MessageBox ("NO Setup NEEDED on Welder 601", "Good SetUp ON 601", 64)



$objXL.Quit
$objXL = 0

:end
 

---

code:

---

$objXL.Workbooks.Save
$objXL.Workbooks.close
$objXL.quit

---

quote:

---

You use a Workbook object's Close method to close an open workbook. To specify whether pending changes to the workbook should be saved before the object is closed, you use the SaveChanges argument. If the SaveChanges argument is omitted, the user is prompted to save pending changes. You can also use the Close method of the Workbooks object to close all open workbooks. If there are unsaved changes to any open workbook when this method is used, the user is prompted to save changes. If the user clicks Cancel in this Save dialog box, an error occurs. You can suppress this Save dialog box by setting the Application object's DisplayAlerts property to False before executing the Close method. When you use the Workbooks object's Close method in this manner, any unsaved changes to open workbooks are lost. After the Close method has run, remember to set the DisplayAlerts property to True.

---

code:

---

$oXl.DisplayAlerts = 0
$RC = $oXl.Quit

---