Results 1 to 17 of 17

Necessary to open up one workbook in order to copy information to another workbook?

Threaded View

Gti182 Necessary to open up one... 11-19-2010, 05:19 AM
royUK Re: Necessary to open up one... 11-19-2010, 06:04 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 06:09 AM
royUK Re: Necessary to open up one... 11-19-2010, 06:32 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 06:40 AM
royUK Re: Necessary to open up one... 11-19-2010, 06:41 AM
snb Re: Necessary to open up one... 11-19-2010, 07:26 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 09:05 AM
Cutter Re: Necessary to open up one... 11-19-2010, 09:22 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 09:48 AM
Cutter Re: Necessary to open up one... 11-19-2010, 09:53 AM
snb Re: Necessary to open up one... 11-19-2010, 10:05 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 10:06 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 10:10 AM
snb Re: Necessary to open up one... 11-19-2010, 10:14 AM
Gti182 Re: Necessary to open up one... 11-19-2010, 10:34 AM
snb Re: Necessary to open up one... 11-19-2010, 11:10 AM
  1. #8
    Forum Contributor
    Join Date
    10-04-2010
    Location
    London
    MS-Off Ver
    Office 365
    Posts
    469

    Re: Necessary to open up one workbook in order to copy information to another workboo

    Oh wow i didn't think it was possible with so little code!

    I've tried it out but got a debug error, should probably have put in the exact ranges i'm working with. I've most likely applied the incorrect ranges as i'm not 100% confident i understand what the code is trying to do, any help?

    My actual code:
    Workbooks.Open Filename:="\\server\shared\Project Zeus\Report X.xls"
        Range("A9:X65536").Copy
        Workbooks("Reporting model - GM").Sheets(5).Cells(7, 3).PasteSpecial Paste:=xlPasteValues
     Windows("Report X.xls").Close

    Applied snb code:
     With GetObject("\\server\shared\Project Zeus\Report X.xls")
        Workbooks("Reporting model - GM").Sheets(5).Range("A7:C7") = .Sheets(1).Range("A9:X65536").Values
        .Close True
        End With
    Last edited by Gti182; 11-19-2010 at 09:11 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1