Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing Excel in VBA leaves it in task list
I have some VBA written that opens a word document and closes the spreadsheet. It seems to work fine, but when I reopen the spreadsheet the page does not display (it is transparent, other than the boarder). I am able to close the Excel window. I look into the task list and there is an EXCEL process still running. I kill that and then the spreadsheet is able to open again.
Below is the language that I am using on a Click event: //CODE Private Sub openMerge_Click() Dim x As Object, y As Object, z As String On Error Resume Next Set x = GetObject(, "Word.Application") If Err.Number = 429 Then Set x = CreateObject("Word.Application") End If z = "F:\FIS\TRAVEL\Excel Driven Travel Form\Local Travel.doc" x.Visible = True x.Activate Set y = x.Documents(z) If y Is Nothing Then Set y = x.Documents.Open(z) End If Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Application.Quit On Error GoTo 0 End Sub //END CODE Any help would be greatly appreciated. -Brandon |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing Excel in VBA leaves it in task list
you have references to the word document - as long as they exist, so will
Excel. You need to release all references to word and then close Excel //CODE Private Sub openMerge_Click() Dim x As Object, y As Object, z As String On Error Resume Next Set x = GetObject(, "Word.Application") If Err.Number = 429 Then Set x = CreateObject("Word.Application") End If z = "F:\FIS\TRAVEL\Excel Driven Travel Form\Local Travel.doc" x.Visible = True x.Activate Set y = x.Documents(z) If y Is Nothing Then Set y = x.Documents.Open(z) End If set y = nothing set x = nothing Application.DisplayAlerts = False if ActiveWorkbook.Name < Thisworkbook.Name then _ ActiveWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True ThisWorkbook.Saved = True Application.Quit On Error GoTo 0 End Sub //END CODE -- Regards, Tom Ogilvy "Brandon" wrote in message ... I have some VBA written that opens a word document and closes the spreadsheet. It seems to work fine, but when I reopen the spreadsheet the page does not display (it is transparent, other than the boarder). I am able to close the Excel window. I look into the task list and there is an EXCEL process still running. I kill that and then the spreadsheet is able to open again. Below is the language that I am using on a Click event: //CODE Private Sub openMerge_Click() Dim x As Object, y As Object, z As String On Error Resume Next Set x = GetObject(, "Word.Application") If Err.Number = 429 Then Set x = CreateObject("Word.Application") End If z = "F:\FIS\TRAVEL\Excel Driven Travel Form\Local Travel.doc" x.Visible = True x.Activate Set y = x.Documents(z) If y Is Nothing Then Set y = x.Documents.Open(z) End If Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Application.Quit On Error GoTo 0 End Sub //END CODE Any help would be greatly appreciated. -Brandon |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sync between table in excel to task list in outlook | Excel Discussion (Misc queries) | |||
Importing From Excel to Task List | Excel Discussion (Misc queries) | |||
Excel still running in task manager after closing the application | Excel Discussion (Misc queries) | |||
create and expand/collapse todo list under a task in excel | Excel Discussion (Misc queries) | |||
Printing leaves EXCEL.EXE process in Task Manager | Excel Discussion (Misc queries) |