Solved

Closing an Excel Object from MS Access

Posted on 2014-12-12
12
199 Views
Last Modified: 2014-12-14
If I am looping a table and creating an Excel Spreadsheet from each row in my MS Access recordset (within MS Access ) ? Do I need to close the instance of Excel after each export or at the end of the routine ?

templatefile = mytemplate.xltx
outputfile = myexcelfile.xlsx

Set xlobj = CreateObject("Excel.Application)
xlobj.workbooks.Add templatefile

Set rs = My Recordset
Start Loop
Export to  outputfile
Next
Loop

rs.close
xlobj.quit
set xlobj = Nothing
0
Comment
Question by:upobDaPlaya
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 3
  • 3
12 Comments
 
LVL 26

Expert Comment

by:Nick67
ID: 40497587
Close files when you are done with them via .Save  Close Objects when you intend to reuse the objects via another Set statement.  Close Objects and aet them equal to nothing when you have no further use for the.
0
 
LVL 26

Expert Comment

by:Nick67
ID: 40497588
Stupid touchscreen phone makes me spell like an imbecile!
0
 
LVL 120

Assisted Solution

by:Rey Obrero (Capricorn1)
Rey Obrero (Capricorn1) earned 200 total points
ID: 40497592
since you arecreating an Excel Spreadsheet from each recordset, you have to save the excel
for each recordset


Set rs = My Recordset
Start Loop
Set xlobj = CreateObject("Excel.Application)
 xlobj.workbooks.Add templatefile
 'copy recordset here
 
 xlobj.activeworkbook.saveas  "<path to folder>\myexcelfile.xlsx
 xlobj.quit  
Next
Loop

rs.close
0
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
LVL 26

Expert Comment

by:Nick67
ID: 40497603
You must be careful with terminology
You open an Excel.Application
Then you open an Excel.Workbook
The workbook is an xls file
You add an Excel.Worksheet
You then add stuff to cells on the worksheet.

Export to  outputfile can mean TransferSpreadsheet or CopyFromRecordset
How are you using the template file?

Regardless in the loop you can open a workbook from a template, set a Worksheet object to something from the template file, do stuff, save and close it.
You can then reuse the sheet and workbook objects by issuing new Set statements
When your loop is complete, you then close all objects and set them to nothing.

There's no need to close the Excel.Application object until the very end.
An Excel.Application with no workbooks open is like opening Excel and closing the blank workbook.
An Excel workbook without sheets looks like a open file that you've deleted all the sheets from.

You can issue
xlobj.Visible
xlobj.UserControl = true
and what what your loop is doing occur
0
 

Author Comment

by:upobDaPlaya
ID: 40497613
Nick, then you seem to be contradicting Rey as Rey is closing the object after saving the first workbook ?
Set rs = My Recordset
Start Loop
Set xlobj = CreateObject("Excel.Application)
 xlobj.workbooks.Add templatefile
 'copy recordset here
 
 xlobj.activeworkbook.saveas  "<path to folder>\myexcelfile.xlsx
 xlobj.quit  
Next
Loop

rs.close
0
 
LVL 26

Accepted Solution

by:
Nick67 earned 300 total points
ID: 40497618
Indeed, I am.
You open the application object outside the loop, and close it after the loop completes

Set rs = My Recordset
 Set xlobj = CreateObject("Excel.Application)
 Start Loop

  xlobj.workbooks.Add templatefile
  'copy recordset here
 
  xlobj.activeworkbook.saveas  "<path to folder>\myexcelfile.xlsx

 Next
 Loop

  xlobj.quit  

 rs.close
0
 

Author Comment

by:upobDaPlaya
ID: 40497861
If I do it Nicks way and my loop is large..thus, lets say I create 100 individual Excel Workbooks via the Loop and  CopyFrom Recordset rs then will the db crash due to memory usage since I wait to the very end to close the object or is this insignificant ?

Just want to make sure I do it efficiently from a memory perspective also...
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 40497970
both set of codes will work

if you set the  Set xlobj = CreateObject("Excel.Application) inside the loop,  xlobj.quit  must be inside the loop


if you set the  Set xlobj = CreateObject("Excel.Application)  outside the loop,  xlobj.quit  must be outside the loop
0
 
LVL 26

Expert Comment

by:Nick67
ID: 40498095
It is less efficient to quit the application is the nwzt iteration of the loop will demand you just re-create it.  All of this is VBA, so it will be stable enough.  And even if you Quit/restart Excel - which isn't as efficient - Windows will see that you are opening/closing it and leabe the bits in RAM to be reallocated.

The question was 'is it needful to close Excel'
It is not.
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 40498123
yes it is, if you are doing a lot to the  excel file, not just copying a recordset, or you will experience some errors like method not allowed,
 ... object not set  etc,,
0
 
LVL 26

Expert Comment

by:Nick67
ID: 40498138
Rey,
No one disputes that you MUST close the Workbook objects.  Having a hundred workbooks open in a single instance of Excel will undoubtably lead to grief.  There is no need to flush the Excel.Application object, though.
0
 

Author Closing Comment

by:upobDaPlaya
ID: 40499602
Thanks its good to have both sets of opinions because it allowed me to question each suggestion, further research, implement and access..you guys are great thx again
0

Featured Post

[Live Webinar] The Cloud Skills Gap

As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.

Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question