Importing into Excel

  • Thread starter Importing Worksheets into Excel
  • Start date
I

Importing Worksheets into Excel

Here's my situation. I have several Excel files that are downloaded from a
website daily. These files have any where from 1 to 6 tabs in each file and
NEVER exceed 5,000 records per tab. Meaning the most records downloaded
would never exceed 30,000. Each day it's different though, one day it could
be 3 tabs the next day it might only be 1.
How would I be able to import these automatically into another Excel file
and have the code look at all the tabs that are within the downloaded file?
The range would always be columns A - AK and as stated, would never go beyond
5,000 rows per tab. It's just the number of tabs that's changing.

ANY help would be so greatly appreciated!!! Thanking you in advance for
your valuable time!!
JCarter
 
T

Tom Ogilvy

for each sh in ActiveWorkbook.Worksheets
sh.cells(1,1).CurrentRegion.Copy _
Destination:=Workbooks("Summary") _
worksheets(1).Cells(rows.count,1).End(xlup)(2)
Next

--
Regards,
Tom Ogilvy

"Importing Worksheets into Excel" <Importing Worksheets into
[email protected]> wrote in message
news:[email protected]...
 
T

Tom Ogilvy

Workbooks("Summary") _
worksheets(1).Cells(rows.count,1).End(xlup)(2)

should be

Workbooks("Summary.xls") _
.worksheets(1).Cells(rows.count,1).End(xlup)(2)

add .xls and put a period before worksheets
 
G

Guest

Tom,
Thank you so much for your assistance. I'm really new to
this and I'm still having problems using your
instructions. Receiving a "Run-Time Erro 9 - Subscript
out of range"

Could you direct me again?
 
T

Tom Ogilvy

if the error is on that line of code, then you don't have a workbook named
Summary.xls. I used that name as an example. You would need put the name
of the workbook you want to use as well as designate which sheet in that
workbook to use.
 
G

Guest

I realize now what my error was. I did have the proper
named files, it was that I didn't have "BOTH" files
opened at the time of running the code.

Thank you again so much for your patience and assistance!
JCarter
 
Top