S
Sylvia
In my earlier post I got this code for adding the content of th
specified excel sheet. But where as this code is directly copying th
worksheet and adding it to my current opened worksheet. But what I wan
to do is copy the data..and add it to my currently opened workshee
below the current data.
I dont know if i have explained it correctly or not. But here is th
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.
specified excel sheet. But where as this code is directly copying th
worksheet and adding it to my current opened worksheet. But what I wan
to do is copy the data..and add it to my currently opened workshee
below the current data.
I dont know if i have explained it correctly or not. But here is th
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.