| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel-2007 problem while closing the files
Hi,
In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel-2007 problem while closing the files
For Each exlWorkbook In Application.Workbooks
If Not ThisWorkbook Is exlWorkbook Then exlWorkbook.Close False End If Next -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi, In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel-2007 problem while closing the files
Hi,
Thanks Jim for your reply. I have tried code given by you: Try Dim exlWorkBook As Excel.Workbook For Each exlWorkBook In Application.Workbooks If Not Application.ThisWorkbook Is exlWorkBook Then exlWorkBook.Close(False) End If Next Catch ex As Exception Debug.WriteLine(ex.Message) End Try But it leads to exception as: "Exception from HRESULT: 0x800A03EC" This exception value is new as compared to last one which i got. It is occuring because of line: "If Not Application.ThisWorkbook Is exlWorkBook" Thanks mahesh "Jim Cone" wrote: For Each exlWorkbook In Application.Workbooks If Not ThisWorkbook Is exlWorkbook Then exlWorkbook.Close False End If Next -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi, In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel-2007 problem while closing the files
I would assume then that your code is not in a workbook.
-- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi,Thanks Jim for your reply. I have tried code given by you: Try Dim exlWorkBook As Excel.Workbook For Each exlWorkBook In Application.Workbooks If Not Application.ThisWorkbook Is exlWorkBook Then exlWorkBook.Close(False) End If Next Catch ex As Exception Debug.WriteLine(ex.Message) End Try But it leads to exception as: "Exception from HRESULT: 0x800A03EC" This exception value is new as compared to last one which i got. It is occuring because of line: "If Not Application.ThisWorkbook Is exlWorkBook" Thanks mahesh "Jim Cone" wrote: For Each exlWorkbook In Application.Workbooks If Not ThisWorkbook Is exlWorkbook Then exlWorkbook.Close False End If Next -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi, In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel-2007 problem while closing the files
Hi Jim,
That code is written inside Excel addins ThisAddIn_Shutdown() event. So it should work, but its not happening that way. Thanks mahesh "Jim Cone" wrote: I would assume then that your code is not in a workbook. -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi,Thanks Jim for your reply. I have tried code given by you: Try Dim exlWorkBook As Excel.Workbook For Each exlWorkBook In Application.Workbooks If Not Application.ThisWorkbook Is exlWorkBook Then exlWorkBook.Close(False) End If Next Catch ex As Exception Debug.WriteLine(ex.Message) End Try But it leads to exception as: "Exception from HRESULT: 0x800A03EC" This exception value is new as compared to last one which i got. It is occuring because of line: "If Not Application.ThisWorkbook Is exlWorkBook" Thanks mahesh "Jim Cone" wrote: For Each exlWorkbook In Application.Workbooks If Not ThisWorkbook Is exlWorkbook Then exlWorkbook.Close False End If Next -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi, In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel-2007 problem while closing the files
I cannot help you - I am only aware of two workbook events that
might be similar to what you are using... Private Sub Workbook_AddinUninstall() - and - Private Sub Workbook_BeforeClose(Cancel As Boolean) -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi Jim, That code is written inside Excel addins ThisAddIn_Shutdown() event. So it should work, but its not happening that way. Thanks mahesh "Jim Cone" wrote: I would assume then that your code is not in a workbook. -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi,Thanks Jim for your reply. I have tried code given by you: Try Dim exlWorkBook As Excel.Workbook For Each exlWorkBook In Application.Workbooks If Not Application.ThisWorkbook Is exlWorkBook Then exlWorkBook.Close(False) End If Next Catch ex As Exception Debug.WriteLine(ex.Message) End Try But it leads to exception as: "Exception from HRESULT: 0x800A03EC" This exception value is new as compared to last one which i got. It is occuring because of line: "If Not Application.ThisWorkbook Is exlWorkBook" Thanks mahesh "Jim Cone" wrote: For Each exlWorkbook In Application.Workbooks If Not ThisWorkbook Is exlWorkbook Then exlWorkbook.Close False End If Next -- Jim Cone Portland, Oregon USA "Mahesh_D" wrote in message Hi, In Excel-2007 addin, in ShutDown functionality for closing all open files. I have written following code: Try 'Close All Open documents Dim exlWorkBook As Excel.Workbook If Application.Workbooks.Count = 1 Then Application.ActiveWorkbook.Close(False) Else For Each exlWorkBook In Application.Workbooks exlWorkBook.Close(False) Next End If Catch ex As Exception Debug.WriteLine(ex.Message) End Try The exception is "Exception from HRESULT: 0x800AC472". Any suggesstions will be helpful. Thanks Mahesh |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel 2003/Excel 2007 Add-Ins Do Not Reset after closing files | Excel Programming | |||
| Problem when closing Excel 2007 and with Add-ins | Excel Discussion (Misc queries) | |||
| Problem opening Excel 2007 files | Excel Discussion (Misc queries) | |||
| Excel 2003/2007 Crash when opening/closing files | Excel Discussion (Misc queries) | |||
| Problem loading Excel 2007 files in Excel 2003 | Excel Discussion (Misc queries) | |||
Hybrid Mode
