op\Some VBA Tricks") '
>> folder having files
>>
>>
>>
>>
>>
>> For Each fil In fld.Files
>>
>> Set wkb = Workbooks.Open(fil.Path)
>>
>> Sheets.Add after:=Sheets(Sheets.Count)
>>
>> Workbooks(prime
see above number 1
> and 2 point both are same
>
>
>
> * *
>
> *Warm Regards,*
>
> *Ravi Kumar.*
>
>
>
> *From:* excel-...@googlegroups.com [mailto:
> excel-...@googlegroups.com ] *On Behalf Of *SG
> *Sent:* Wednesday, September 11, 2013 5:3
new line. You can see above number 1 and
2 point both are same
Warm Regards,
Ravi Kumar.
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of SG
Sent: Wednesday, September 11, 2013 5:33 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$
heetFunction.Find(".", fil.Name) -
>> 1)).Sheets(Sheets.Count).Range("A1")
>>
>> wkb.Save
>>
>> wkb.Close
>>
>> Set wkb = Nothing
>>
>> Next****
>>
>> ** **
>>
&
t;
>
>
>
> End Sub
>
>
>
>
>
> * *
>
> *Warm Regards,*
>
> *Ravi Kumar.*
>
>
>
> *From:* excel-...@googlegroups.com [mailto:
> excel-...@googlegroups.com ] *On Behalf Of *SG
> *Sent:* Tuesday, September 10, 2013 2:36 PM
>
> wkb.Save
>
> wkb.Close
>
> Set wkb = Nothing
>
> Next
>
> ** **
>
> Application.ScreenUpdating = True
>
> Application.DisplayAlerts = True
>
> ** **
>
> ** **
>
> End Sub
>
> ** **
>
> ** **
>
>
yAlerts = True
End Sub
Warm Regards,
Ravi Kumar.
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of SG
Sent: Tuesday, September 10, 2013 2:36 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Macro needed to add worksheet
Thanks for the help but it's not adding my sheet in rest of the workbooks.
i have attached that single sheet & added the macro in it.Please suggest
Where i'm going wrong.
On Monday, September 9, 2013 8:16:20 PM UTC+5:30, ashish wrote:
>
> Sub copy_sheet()
>
> Application.ScreenUpdating = False
Sub copy_sheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim fld As Object, fil As Object, fso As Object
Dim wkb As Workbook
Set fso = CreateObject("scripting.filesystemobject")
Set fld = fso.getfolder("C:\Users\admin\Desktop\test") ' folder having files
For Each f