Hello,

I am trying to get information from an excel doc that is closed, copy
it, and paste it into the excel doc that i am working with. This is
what i have and it seems to work until i hit the final step when i get
an error message saying "Object doesn't support this porperty or
method". I have used this method of pasting before and never ran into
problems.

Any help would be much appreciated!

Sub CreateMaster()

Dim wkbCurrent As Workbook
Set wrbcurrent = ActiveWorkbook

Workbooks.Open "sourcefile.xls"
Worksheets("sheet2").Range("A1:J3").Select
Selection.Copy
ActiveWorkbook.Close SaveChanges:=False

wrbcurrent.Activate

Range("A1").Select
Selection.Paste


End Sub

Try
ActiveSheet.Paste

I hope that's not your real email address. The spambots will pick it up and you'll
eventually have to retire it.

--
Regards from Virginia Beach,

Earl Kiosterud
www.smokeylake.com
-----------------------------------------------------------------------
<moflaher@justice.gc.ca> wrote in message
news:aba659f3-6a6f-4e94-bb3b-a4a528eb615f@m44g2000hsc.googlegroups.com...
> Hello,
>
> I am trying to get information from an excel doc that is closed, copy
> it, and paste it into the excel doc that i am working with. This is
> what i have and it seems to work until i hit the final step when i get
> an error message saying "Object doesn't support this porperty or
> method". I have used this method of pasting before and never ran into
> problems.
>
> Any help would be much appreciated!
>
> Sub CreateMaster()
>
> Dim wkbCurrent As Workbook
> Set wrbcurrent = ActiveWorkbook
>
> Workbooks.Open "sourcefile.xls"
> Worksheets("sheet2").Range("A1:J3").Select
> Selection.Copy
> ActiveWorkbook.Close SaveChanges:=False
>
> wrbcurrent.Activate
>
> Range("A1").Select
> Selection.Paste
>
>
> End Sub

On Apr 28, 11:12*am, "Earl Kiosterud" <some...@nowhere.com> wrote:
> Try
> ActiveSheet.Paste
>
> I hope that's not your real email address. *The spambots will pick it upand you'll
> eventually have to retire it.
>
> --
> Regards from Virginia Beach,
>
> Earl Kiosterudwww.smokeylake.com
> -----------------------------------------------------------------------<mofla...@justice.gc.ca> wrote in message
>
> news:aba659f3-6a6f-4e94-bb3b-a4a528eb615f@m44g2000hsc.googlegroups.com...
>
>
>
> > Hello,
>
> > I am trying to get information from an excel doc that is closed, copy
> > it, and paste it into the excel doc that i am working with. *This is
> > what i have and it seems to work until i hit the final step when i get
> > an error message saying "Object doesn't support this porperty or
> > method". *I have used this method of pasting before and never ran into
> > problems.
>
> > Any help would be much appreciated!
>
> > Sub CreateMaster()
>
> > Dim wkbCurrent As Workbook
> > Set wrbcurrent = ActiveWorkbook
>
> > *Workbooks.Open "sourcefile.xls"
> > *Worksheets("sheet2").Range("A1:J3").Select
> > *Selection.Copy
> > *ActiveWorkbook.Close SaveChanges:=False
>
> > *wrbcurrent.Activate
>
> > *Range("A1").Select
> > *Selection.Paste
>
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Thanks that worked

Isn't the problem just because of a typo? wkbCurrent vs wrbcurrent



> > Dim wkbCurrent As Workbook
> > Set wrbcurrent = ActiveWorkbook
> > wrbcurrent.Activate






<moflaher@justice.gc.ca> wrote in message
news:d32152a2-53f0-4c70-8406-6a3f117dfc4d@k13g2000hse.googlegroups.com...
On Apr 28, 11:12 am, "Earl Kiosterud" <some...@nowhere.com> wrote:
> Try
> ActiveSheet.Paste
>
> I hope that's not your real email address. The spambots will pick it up
> and you'll
> eventually have to retire it.
>
> --
> Regards from Virginia Beach,
>
> Earl Kiosterudwww.smokeylake.com
> -----------------------------------------------------------------------<mofla...@justice.gc.ca>
> wrote in message
>
> news:aba659f3-6a6f-4e94-bb3b-a4a528eb615f@m44g2000hsc.googlegroups.com...
>
>
>
> > Hello,
>
> > I am trying to get information from an excel doc that is closed, copy
> > it, and paste it into the excel doc that i am working with. This is
> > what i have and it seems to work until i hit the final step when i get
> > an error message saying "Object doesn't support this porperty or
> > method". I have used this method of pasting before and never ran into
> > problems.
>
> > Any help would be much appreciated!
>
> > Sub CreateMaster()
>
> > Dim wkbCurrent As Workbook
> > Set wrbcurrent = ActiveWorkbook
>
> > Workbooks.Open "sourcefile.xls"
> > Worksheets("sheet2").Range("A1:J3").Select
> > Selection.Copy
> > ActiveWorkbook.Close SaveChanges:=False
>
> > wrbcurrent.Activate
>
> > Range("A1").Select
> > Selection.Paste
>
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Thanks that worked

GB,

That's a separate problem. With Option Explicit, the line "Set wrbcurrent = ActiveWorkbook"
would fail because wrbcurrent had never been dimmed (because of the typo). But without it,
that line would create a workbook object that would be the active workbook.

Option Explicit is there for just these kinds of problems. Not using it is like driving 100
MPH on the local interstate, and declaring it a safe thing to do because you did it once and
didn't have a wreck. Some people think like that! :)
--
Regards from Virginia Beach,

Earl Kiosterud
www.smokeylake.com

If life deals you lemons, make lemonade; if it deals you tomatoes,
make Bloody Marys.

-----------------------------------------------------------------------
"GB" <NOTsomeone@microsoft.com> wrote in message
news:481639b0$0$10636$fa0fcedb@news.zen.co.uk...
> Isn't the problem just because of a typo? wkbCurrent vs wrbcurrent
>
>
>
>> > Dim wkbCurrent As Workbook
>> > Set wrbcurrent = ActiveWorkbook
>> > wrbcurrent.Activate
>
>
>
>
>
>
> <moflaher@justice.gc.ca> wrote in message
> news:d32152a2-53f0-4c70-8406-6a3f117dfc4d@k13g2000hse.googlegroups.com...
> On Apr 28, 11:12 am, "Earl Kiosterud" <some...@nowhere.com> wrote:
>> Try
>> ActiveSheet.Paste
>>
>> I hope that's not your real email address. The spambots will pick it up and you'll
>> eventually have to retire it.
>>
>> --
>> Regards from Virginia Beach,
>>
>> Earl Kiosterudwww.smokeylake.com
>> -----------------------------------------------------------------------<mofla...@justice.gc.ca>
>> wrote in message
>>
>> news:aba659f3-6a6f-4e94-bb3b-a4a528eb615f@m44g2000hsc.googlegroups.com...
>>
>>
>>
>> > Hello,
>>
>> > I am trying to get information from an excel doc that is closed, copy
>> > it, and paste it into the excel doc that i am working with. This is
>> > what i have and it seems to work until i hit the final step when i get
>> > an error message saying "Object doesn't support this porperty or
>> > method". I have used this method of pasting before and never ran into
>> > problems.
>>
>> > Any help would be much appreciated!
>>
>> > Sub CreateMaster()
>>
>> > Dim wkbCurrent As Workbook
>> > Set wrbcurrent = ActiveWorkbook
>>
>> > Workbooks.Open "sourcefile.xls"
>> > Worksheets("sheet2").Range("A1:J3").Select
>> > Selection.Copy
>> > ActiveWorkbook.Close SaveChanges:=False
>>
>> > wrbcurrent.Activate
>>
>> > Range("A1").Select
>> > Selection.Paste
>>
>> > End Sub- Hide quoted text -
>>
>> - Show quoted text -
>
> Thanks that worked
>