Workbook referencing

[CB76]

Hi,
Found this code in another thread.
How do I reference another workbook containing "Sheet1" i below code that i would like to copy the data to?


Sub ExportData()
Dim Cl As Range
Dim Dic As Object

Set Dic = CreateObject("scripting.dictionary")
With Sheets("Sheet2")
For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
Dic(Cl.Value) = Cl.Offset(, 1).Value
Next Cl
End With
With Sheets("Sheet1")
For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
If Dic.exists(Cl.Value) Then Cl.Offset(, 5).Value = Dic(Cl.Value)
Next Cl
End With
End Sub

 

[mohadin]

Hi
If the other book is open
just inset this line of code

 Windows("test - Copy.xlsm").Activate'<< Name of your other workbook to be changed

Befor

With Sheets("Sheet1")

 

[CB76]

Can it be done with the workbook closed? And both workbooks are stored in Sharepoint.

 

[CB76]

Ideas anyone?

How to use the code above but reference the target file on Sharpoint ?