Copy Data, Open Another Workbook and paste data

[stroffso]

Hi,

I am using some code to
1. Copy data from one sheet.
2. Open another file and select a specific tab
3. Pate the file

However it looks like I am making an error around the directory naming convention when i go to open the file i want to copy to. Can someone please tell me where I am going wrong? The File is called my Dashboard and is in my S Drive. i think once i get this part sorted I can do the rest, here is the code I have so far, thanks

Sub Copytodashboard()
Workbooks.Open ThisWorkbook.Path & "S:\Customer Data\Drawings\PDD\" & "My Dashboard.xlsm"
ActiveWindow.WindowState = xlMinimized
ThisWorkbook.Activate
End Sub

 

[Prem Pal Singh]

Hi ,

In the code line Workbooks.Open ThisWorkbook.Path & "S:\Customer Data\Drawings\PDD\" & "My Dashboard.xlsm" please provide the folder name in your code rather than entire path in your string like Workbooks.Open ThisWorkbook.Path & "\PDD\" & "My Dashboard.xlsm"

 

[Lukums]

Workbooks.Open Filename:="C:\Users\luke\Desktop\FOLDERLOCATE\workbookname.xlsm"

This will work better for you.

Just fill in the path over my C:\ will work fine.

 

[stroffso]

So the folder location is under here: S:\Customer Data\Drawings\PDD meaning S Drive, then the folder called customer data, then sub folder Drawings, then PDD. with your code below do i need to put &"..." for every subfolder?

Hi ,

In the code line Workbooks.Open ThisWorkbook.Path & "S:\Customer Data\Drawings\PDD\" & "My Dashboard.xlsm" please provide the folder name in your code rather than entire path in your string like Workbooks.Open ThisWorkbook.Path & "\PDD\" & "My Dashboard.xlsm"

 

[Lukums]

Matey,

Your complicating it, all you're doing is opening the workbook.

Right click the file copy the entire path and past it in here... between the " "

Workbooks.Open Filename:=""

 

[stroffso]

Thanks but that still produces an error Run time 1004, Method 'Open' of 'Workbooks' failed, any ideas?

Workbooks.Open Filename:="C:\Users\luke\Desktop\FOLDERLOCATE\workbookname.xlsm"

This will work better for you.

Just fill in the path over my C:\ will work fine.

 

[Lukums]

Oh right.

Sub Copytodashboard()
Workbooks.Open Filename:="C:\Users\USER\Desktop\FOLDERLOCATE\workbookname.xlsm"
ActiveWindow.WindowState = xlMinimized - REMOVE
ThisWorkbook.Activate - TYPEICALLY as soon as you open the workbook by doing this you're enesentially activing it so no need to do this either.
End Sub

 

[stroffso]

Still not working. Could there be something wrong with the server I am working on?

Oh right.

Sub Copytodashboard()
Workbooks.Open Filename:="C:\Users\USER\Desktop\FOLDERLOCATE\workbookname.xlsm"
ActiveWindow.WindowState = xlMinimized - REMOVE
ThisWorkbook.Activate - TYPEICALLY as soon as you open the workbook by doing this you're enesentially activing it so no need to do this either.
End Sub

 

[Lukums]

Still not working. Could there be something wrong with the server I am working on?

Please paste what you have currently and ill have a look.

 

[stroffso]

Workbooks.Open Filename:=" S:\Customer Data\Drawings\PDD\" & "My Dashboard.xlsm"

thanks

Please paste what you have currently and ill have a look.