[AccessD] Deleting Worksheet

Thu Jan 30 10:57:10 CST 2014

Shot in the dark - what happens if you rename Sheet1 and then try deleting
it?

On Thu, Jan 30, 2014 at 8:55 AM, Rocky Smolin <rockysmolin at bchacc.com>wrote:

> No - deletes are coming at the end.
>
> R
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rusty Hammond
> Sent: Thursday, January 30, 2014 8:49 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Deleting Worksheet
>
> Rocky, are you deleting the three blank sheets before importing the
> template?  If so, that's probably your issue.  You can't delete all of the
> sheets in a workbook, you have to have at least one.
>
> Rusty
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> Sent: Thursday, January 30, 2014 10:39 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Deleting Worksheet
>
> AFAICS the new workbook comes with the three sheets when I create it.
> The template has three sheets in it but I'm only importing one of them and
> that's working OK.  It's the three default sheets you get with every new
> workbook that's causing the problem.
>
> I just posted another try - brute force - cycling backwards through all the
> worksheet and deleting any with the Left 5 = 'Sheet".  Worked for all but
> the first one.  Sheets 2 and 3 went away.  Sheet 1 remained.
>
> R
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
> Sent: Thursday, January 30, 2014 8:23 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Deleting Worksheet
>
> Maybe this is too simple, but why not create an Excel template with only
> one
> sheet in it, save that and then use it to generate the new workbook.
>  The new workbook will only have in it what you want to be there.
>
> Charlotte
>
>
> On Thu, Jan 30, 2014 at 8:09 AM, Rocky Smolin
> <rockysmolin at bchacc.com>wrote:
>
> > Just tried:
> >
> > Set objXLWS = objXLBook.Worksheets("Sheet1") objXLWS.Delete
> >
> > But the Sheet1 is still there. :(
> >
> > Rocky
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
> > Smolin
> > Sent: Thursday, January 30, 2014 8:05 AM
> > To: 'Access Developers discussion and problem solving'
> > Subject: Re: [AccessD] Deleting Worksheet
> >
> > I have my objects dimmed so:
> >
> > Dim objXLApp As Excel.Application
> > Dim objXLBook As Excel.Workbook
> > Dim objXLWS As Excel.Worksheet
> >
> > I set objXLApp - Set objXLApp = New Excel.Application - and open a new
> > worksheet:
> >
> > Set objXLBook = objXLApp.Workbooks.Open(Me.txtOutputFileName)
> >
> > into which I copy the template worksheet from another XL workbook,
> > giving it a unique name each time.
> >
> > At the end of the process I end up with a workbook with n number of
> > worksheet and all's well except I still have the default "Sheet1",
> > "Sheet2", and "Sheet3", which I want to delete.
> >
> > I've tried several things among which are
> >
> >             objXLBook.Worksheets("Sheet1").Delete
> >
> > And
> >             objXLApp.Worksheets("Sheet1").Activate
> >             objXLWS.Delete
> >
> > But so far no joy.
> >
> >
> > Rocky
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan
> > Harkins
> > Sent: Thursday, January 30, 2014 7:47 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Deleting Worksheet
> >
> > <
> >
> > http://www.techrepublic.com/blog/10-things/10-ways-to-reference-excel-
> > workbo
> > oks-and-sheets-using-vba/
> > >
> >
> > #9 and #10 might be helpful, but they're very basic -- referencing
> 101.
> > What have you tried and why isn't it working?
> >
> >
> > On Thu, Jan 30, 2014 at 10:40 AM, Rocky Smolin
> > <rockysmolin at bchacc.com>wrote:
> >
> > > Dear List:
> > >
> > > I'm automating a spreadsheet from Access (2003) and importing a
> > > worksheet from another excel file as a template.  I want to delete
> > > the default worksheets Sheet1, Sheet2, and Sheet3 but can't seem to
> > > get the right syntax going.
> > >
> > > Any pointers on how to get this done?
> > >
> > > MTIA
> > >
> > > Rocky Smolin
> > > Beach Access Software
> > > 858-259-4334
> > > www.bchacc.com <http://www.bchacc.com/> www.e-z-mrp.com
> > > <http://www.e-z-mrp.com/>
> > > Skype: rocky.smolin
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> **********************************************************************
> WARNING: All e-mail sent to and from this address will be received, scanned
> or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
> corporate e-mail system and is subject to archival, monitoring or review
> by,
> and/or disclosure to, someone other than the recipient.
> **********************************************************************
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>