[AccessD] Pulling all sheets from a spreadsheet

Mark:

Don't know if this is what you're looking for but here's a snip which will
allow you to cycle through all the worksheets in a workbook using
automation:

' Cycle through worksheets - 1 sheet per assembly
    For intI = 1 To xlBook.Worksheets.Count
        Set xlSheet = xlBook.Sheets(intI)
        txtImportData = "Processing BOM Worksheet " & intI & " of " _
            & xlBook.Worksheets.Count & " - " & xlSheet.Name
        Me.Repaint
.
.
.
	Next IntI

Then you can extract the values from the cells and sort them out into the
Access tables. 


Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com
www.bchacc.com
 
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark Porter
Sent: Thursday, July 10, 2008 1:03 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Pulling all sheets from a spreadsheet

I'm checking the archives but not having any luck.  I'm probably looking
under the wrong keywords.

What was the subject line?

Mark Porter
Sr. Technologist
Nana Development Corp.
Desk: 907-265-4156
Fax: 907-343-5656
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Drew Wutka
Sent: Thursday, July 10, 2008 11:35 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Pulling all sheets from a spreadsheet

Look in the recent posts, the ADO code I posted a few weeks ago would do
that for you.

Drew

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark Porter
Sent: Thursday, July 10, 2008 2:16 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Pulling all sheets from a spreadsheet

Does anyone have some code that pulls data from all tabs in a spreadsheet,
assuming all data is in the same format?

 

I'm getting spreadsheets with 50+ tabs of budget data for loading into a
database, and it's very cumbersome.

 

Thanks,

 

Mark Porter

Sr. Technologist

Nana Development Corp.

Desk: 907-265-4156

Fax: 907-343-5656

 

 

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com The information contained in this
transmission is intended only for the person or entity to which it is
addressed and may contain II-VI Proprietary and/or II-VI Business Sensitive
material. If you are not the intended recipient, please contact the sender
immediately and destroy the material in its entirety, whether electronic or
hard copy. You are notified that any review, retransmission, copying,
disclosure, dissemination, or other use of, or taking of any action in
reliance upon this information by persons or entities other than the
intended recipient is prohibited.


-- 
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