Copying in Extra, Pasting in Excel 1

[blckngldhwk]

For whatever reason I'm having a block and can't figure out how to paste information that I have copied from Extra into a cell in Excel. Keep in mind, I'm not able to do this as a string, I am using the MyArea.Copy function and need to paste that into Excel.

Set MyArea = MyScreen.Area(18,02,21,80)
        
        MyArea.Select
        MyArea.Copy

        
        
        file = "H:\Macro Team\M201 Project\testbook1.xlsx"
 
        Dim obj as object
        Dim objWorkbook as object
        Set obj = CreateObject("Excel.Application")
        obj.visible = True
        obj.workbooks.open file
        set objworkbook = obj.worksheets("Sheet2")
        
        With obj.worksheets("Sheet2")
        
        .Cells(1,"B").activate

What's next?

 

[SkipVought]

   .Paste
End With

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[vzachin]

blckngldhwk,

.cells(1,"B") = MyArea

you don't need this either

MyArea.Select
MyArea.Copy

hth,
zach

 

[blckngldhwk]

ugh...FIP.

Thanks as always Skip!

 

[blckngldhwk]

Thanks vzach but that doesn't maintain the formatting I need to carry over from Extra, for whatever reason.