earlier post:copying worksheet

[Sylvia]

In my earlier post I got this code for adding the content of the specified excel sheet. But where as this code is directly copying the worksheet and adding it to my current opened worksheet. But what I want to do is copy the data..and add it to my currently opened worksheet below the current data.

I dont know if i have explained it correctly or not. But here is the code which i got for referance.


Sub testme()
Dim myFileName As Variant
Dim newwkbk As Workbook
Dim CurWks As Worksheet

myFileName = Application.GetOpenFilename("excel files, *.xls")
If myFileName = False Then
Exit Sub
End If

Set CurWks = ActiveSheet
Set newwkbk = Workbooks.Open(Filename:=myFileName)
newwkbk.Worksheets.Copy before:=CurWks
newwkbk.Close savechanges:=False

End Sub

Please help..

[Dave Peterson]

You have a followup at the original thread.

Sylvia wrote:
>
> In my earlier post I got this code for adding the content of the
> specified excel sheet. But where as this code is directly copying the
> worksheet and adding it to my current opened worksheet. But what I want
> to do is copy the data..and add it to my currently opened worksheet
> below the current data.
>
> I dont know if i have explained it correctly or not. But here is the
> code which i got for referance.
>
> Sub testme()
> Dim myFileName As Variant
> Dim newwkbk As Workbook
> Dim CurWks As Worksheet
>
> myFileName = Application.GetOpenFilename("excel files, *.xls")
> If myFileName = False Then
> Exit Sub
> End If
>
> Set CurWks = ActiveSheet
> Set newwkbk = Workbooks.Open(Filename:=myFileName)
> newwkbk.Worksheets.Copy before:=CurWks
> newwkbk.Close savechanges:=False
>
> End Sub
>
> Please help..
>
> --
> Sylvia
> ------------------------------------------------------------------------
> Sylvia's Profile: http://www.excelforum.com/member.php...o&userid=30300
> View this thread: http://www.excelforum.com/showthread...hreadid=500995

--

Dave Peterson