| 1 | #include <Debug.au3>
|
|---|
| 2 |
|
|---|
| 3 | _DebugSetup("Debug Out", False, 1)
|
|---|
| 4 | _DebugOut("Debug start")
|
|---|
| 5 |
|
|---|
| 6 | Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
|
|---|
| 7 |
|
|---|
| 8 | ;-----------------------------------------------------------------------
|
|---|
| 9 | ; Setup Excel environment
|
|---|
| 10 | ;-----------------------------------------------------------------------
|
|---|
| 11 | $oExcel = ObjCreate("Excel.Application")
|
|---|
| 12 | $oExcel.Visible = True
|
|---|
| 13 | $oExcel.SheetsInNewWorkbook = 1
|
|---|
| 14 |
|
|---|
| 15 | ;-----------------------------------------------------------------------
|
|---|
| 16 | ; Create workbook and fill with sheets
|
|---|
| 17 | ;-----------------------------------------------------------------------
|
|---|
| 18 | $oWB = $oExcel.workbooks.add
|
|---|
| 19 | for $i = 1 to 5
|
|---|
| 20 | $oWB.Sheets.Add
|
|---|
| 21 | _DebugOut("Now " & $oWB.Worksheets.Count & " sheets in workbook")
|
|---|
| 22 | Sleep(1000)
|
|---|
| 23 | Next
|
|---|
| 24 |
|
|---|
| 25 | ;-----------------------------------------------------------------------
|
|---|
| 26 | ; Delete all sheets using FOR .. IN .. NEXT loop
|
|---|
| 27 | ; Will crash deleting last sheets but that is not the issue here and I decided to leave it in
|
|---|
| 28 | ;-----------------------------------------------------------------------
|
|---|
| 29 | For $sheet In $oWB.Worksheets
|
|---|
| 30 | $sheet.Delete
|
|---|
| 31 | _DebugOut("Now " & $oWB.Worksheets.Count & " sheets in workbook")
|
|---|
| 32 | Sleep(1000)
|
|---|
| 33 | Next
|
|---|
| 34 |
|
|---|
| 35 | Exit
|
|---|
| 36 |
|
|---|
| 37 | ;-----------------------------------------------------------------------
|
|---|
| 38 | ; Error Handler
|
|---|
| 39 | ;-----------------------------------------------------------------------
|
|---|
| 40 | Func MyErrFunc($oMyError)
|
|---|
| 41 | Local $HexNumber
|
|---|
| 42 | Local $strMsg
|
|---|
| 43 |
|
|---|
| 44 | $HexNumber = Hex($oMyError.Number, 8)
|
|---|
| 45 | $strMsg = "Error Number: " & $HexNumber & @CRLF
|
|---|
| 46 | $strMsg &= "WinDescription: " & $oMyError.WinDescription & @CRLF
|
|---|
| 47 | $strMsg &= "Script Line: " & $oMyError.ScriptLine & @CRLF
|
|---|
| 48 | MsgBox(0, "ERROR", $strMsg)
|
|---|
| 49 | SetError(1)
|
|---|
| 50 |
|
|---|
| 51 | Endfunc
|
|---|
