Reference External Workbook Code

[seenfresh]

I am wondering what would be the best way to reference a closed Excel Workbook using VB within Excel?

I have a workbook location:

\\Nymas01\finance\Budget\Budget 2008\Exports

And worksheet named:

PLATFORM

I would like to reference this closed workbook using say: this line

"MYCLOSEDWORKBOOK".Cells(1,"A").Value

Any advice would be great!

Thanks in advance,

 

[seenfresh]

reply

OOOPs and the Workbook is called:

PLATFORM.XLS

 

[Smitty]

Check out this OzGrid post: http://www.ozgrid.com/VBA/ExtractFromClosedWorkbook.htm

and this old board post: http://www.mrexcel.com/archive/VBA/12290a.html

HTH,

Smitty

 

[seenfresh]

reply

Thank you PennySaver!

I would rather call the workbook and work accross two workbooks... I'm not quite fluent enough in VB to use Ozgrid's suggestions quite yet!

Working accross two Workbooks would help my understanding of using multiple objects.. guess it would be a good start!

My problem lies in the following code this line gets highlighted as an error with no error message!

Set WbBook2 = Workbooks("License Fees_2008.xls").Worksheets("FRX not in PLATFORM")

Here is my code and I'm just trying to set the references to each seperate workbook... but having difficulty

Sub FRXtoPLATFORM()
ApplicationScreenUpdating = False


Dim wbBook1 As Worksheet
Dim WbBook2 As Worksheet


Workbooks.Open ("\\Nymas01\finance\Budget\Budget 2008\Exports\PLATFORM.xls")


Set wbBook1 = Workbooks("PLATFORM.xls").Worksheets("PLATFORM")
Set WbBook2 = Workbooks("License Fees_2008.xls").Worksheets("FRX not in PLATFORM")
PLATFORM = wbBook1
FRX = WB2



x = PLATFORM.Cells(Rows.Count, "C").End(xlUp).Row
For iRow = 1 To x
If FRX.Cells(iRow, "C").Value = "-" Then

GROUP = Cells(iRow + 1, "B").Value
    
    
    With PLATFORM
    
        c = WorksheetFunction.CountIf(.Range("A:A"), GROUP)
    
      
        ' TRYING TO FIND the Text of datae represented earlier!
        If c = 0 Then
        
            ' IF WE CAN'T FIND IT, then insert iGroup..
            
            theRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            ' This finds a row starting from top that is empty to put the new values in!!!
            .Cells(theRow, 1).Value = GROUP
            
        End If
    End With
            
    
End If

Next iRow

End Sub

wbBook2 is the workbook that holds the procedure...

Can you spot any errros at all? Any help would be greatly appreciated!

Thanks in advance,