hi janet use this code to get the file names of all folders in the
directory then use seema's code to append
Public Sub ListWorkbooks()
Dim Directory As String
Dim FileName As String
Dim IndexSheet As Worksheet
Dim rw As Long
'Change the directory below as needed
Directory = "C:\Documents and
Settings\akoul\Desktop\ashish_koul_bcp22k\excel macro'ss\finding files in a
folder"
If Left(Directory, 1) <> "\" Then
Directory = Directory & "\"
End If
rw = 6
FileName = Dir(Directory & "*.xls*")
Do While FileName <> ""
ActiveSheet.Cells(rw, 1).Value = Directory & FileName
rw = rw + 1
FileName = Dir
Loop
Set IndexSheet = Nothing
End Sub
On Wed, Apr 7, 2010 at 11:30 PM, janet dickson <janetdicks...@gmail.com>wrote:
> All,
>
> Paul, all my files are in one folder and if necessary I can put master .xls
> in the same folder.
>
> Seema, much appreciation for your assistance. Your codes worked well, but
> for it to run I supposed to open all excel files and copy en paste 10 file
> paths (into the excel you send) and run, to me this procedure are similar to
> open individual 52 excel files and perform copy en paste into a master
> file...!
>
> *I was wondering if there can be a smarter codes to open 52 excels with
> different names which are in one folder then copy data into one .xls file.
> *
> **
> *Am asking all this because everyday am receiving ~ 40 to 50 xls files
> (some files with 20 120 rows)*
> *Help please*
> **
> *Jenie*
> *Hugs..*
>
>
>
> On Tue, Apr 6, 2010 at 10:01 PM, seema mba <seema.mba2...@gmail.com>wrote:
>
>> HI,
>>
>> I am attaching a sheet, which contains a macro to append multiple sheets.
>> I created it for myself some time ago, so it is made to append data from 10
>> workbooks only. Anyways, 52 workbooks will take a lot of time and your pc
>> may get hanged with such a long programming. Still if you want you can amend
>> the code.
>> Master file is the file where you need to append the data.
>>
>> Double click on the button to append the data. This will only append data
>> in sheet1 of the files.
>>
>> Regards,
>>
>>
>> Seema
>>
>> On 4/6/10, janet dickson <janetdicks...@gmail.com> wrote:
>>>
>>> Hello Team
>>>
>>> I have more than 52 workbooks each contain 3 sheets but only one sheet
>>> "sheet1" contain data. all sheets containing data have the same column names
>>> in the 1st row, i want to append all sheets into one excel sheet.
>>> Please send me some codes to accomplish the task.
>>>
>>> Thanks in advance
>>> Jenie..
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our Facebook Group @
>>> http://www.facebook.com/group.php?gid=287779555678
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> HELP US GROW !!
>>>
>>> We reach over 6,800 subscribers worldwide and receive many nice notes
>>> about the learning and support from the group.Let friends and co-workers
>>> know they can subscribe to group at
>>> http://groups.google.com/group/excel-macros/subscribe
>>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our Facebook Group @
>> http://www.facebook.com/group.php?gid=287779555678
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> HELP US GROW !!
>>
>> We reach over 6,800 subscribers worldwide and receive many nice notes
>> about the learning and support from the group.Let friends and co-workers
>> know they can subscribe to group at
>> http://groups.google.com/group/excel-macros/subscribe
>>
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our Facebook Group @
> http://www.facebook.com/group.php?gid=287779555678
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,800 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe, reply using "remove me" as the subject.
