copy sheet from other close workbook

[asyamonique]

Sub Button2_Click()
Dim name As String
Cells(1, 2) = "=LEFT(cell(""filename""),FIND(""["",cell(""filename""))-1)"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
name = "C:\SHARING FILES\me\exports\0800"
Workbooks.Open Filename:=Cells(1, 2) & name
Worksheets("Sheet1").Range("A1:P1500").Copy
ActiveWorkbook.Close False
Worksheets("0800").Range("A1").PasteSpecial
End Sub

Good Day ,
Could someone help me on that code given above, why im having error?
Many Thanks

 

[ColinKJ]

Hi asyamonique,

Try:

name = "C:\SHARING FILES\me\exports\0800\"
Workbooks.Open Filename:=name & Cells(1, 2).Text

This assumes Cells (1, 2) contains a valid XL file name

ColinKJ

 

[asyamonique]

Hi asyamonique,

Try:

name = "C:\SHARING FILES\me\exports\0800\"
[COLOR=red]Workbooks.Open Filename:=name & Cells(1, 2).Text[/COLOR]

This assumes Cells (1, 2) contains a valid XL file name

ColinKJ

Hi Colin,
Thanks for ur reply,
Sorry about that but im still having error with that.
Cheers,

 

[ColinKJ]

asyamonique,

A couple of things to check:

You have got the final backslash after the 0800\ in the path name.
and that the ActiveSheet Cell (1, 2) does have a valid xl file name in it.

Try putting a code stop on the open line, and read the value to ensure it is a valid Path & File Name.

Colin