ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Path to a network drive (https://www.excelbanter.com/excel-discussion-misc-queries/95478-path-network-drive.html)

CWillis

Path to a network drive
 
I have written a quick macro to copy data from one workbook to another. It
works fine for the folder on my C: drive. It doesn't work for my network
drive...O: Is there something that needs to be written differently in the
code because it isn't my c: drive?

code:

Sub Loaddata()

With Sheet23.Range("A1")
.Formula = "='C:\Documents and
Settings\myname\Desktop\LoopPractice\[looppracticev3.xls]sheet2'!A3"
'.Formula =
"='O:\foldername1\foldername2\foldername3\[MockUp_Module1_Feasibility
v1a.xls]sheet1'!A3" 'this one doesn't work when uncommented
.Formula = .Value
End With

End Sub

Thanks,
Chris

CWillis

Path to a network drive
 
Turns out it wasn't the fact it was in a different drive but that there was a
space in the name. Not sure how to get around that other than "don't put
spaces in file name"....

"CWillis" wrote:

I have written a quick macro to copy data from one workbook to another. It
works fine for the folder on my C: drive. It doesn't work for my network
drive...O: Is there something that needs to be written differently in the
code because it isn't my c: drive?

code:

Sub Loaddata()

With Sheet23.Range("A1")
.Formula = "='C:\Documents and
Settings\myname\Desktop\LoopPractice\[looppracticev3.xls]sheet2'!A3"
'.Formula =
"='O:\foldername1\foldername2\foldername3\[MockUp_Module1_Feasibility
v1a.xls]sheet1'!A3" 'this one doesn't work when uncommented
.Formula = .Value
End With

End Sub

Thanks,
Chris


Dave Peterson

Path to a network drive
 
Maybe you could check to see if the file exists before you use it in the
formula:

Dim TestStr as string
dim myFileName as string

myfilename = "C:\.......that long string...\something.xls"

teststr = ""
on error resume next
teststr = dir(myfilename)
on error goto 0

if teststr = "" then
'not found
else
'file found!
end if

I think Ron de Bruin has some code to check to see if the worksheet actually
exists using some ADO stuff.

You may want to search his site:
http://www.rondebruin.nl/

If you're interested.


CWillis wrote:

Turns out it wasn't the fact it was in a different drive but that there was a
space in the name. Not sure how to get around that other than "don't put
spaces in file name"....

"CWillis" wrote:

I have written a quick macro to copy data from one workbook to another. It
works fine for the folder on my C: drive. It doesn't work for my network
drive...O: Is there something that needs to be written differently in the
code because it isn't my c: drive?

code:

Sub Loaddata()

With Sheet23.Range("A1")
.Formula = "='C:\Documents and
Settings\myname\Desktop\LoopPractice\[looppracticev3.xls]sheet2'!A3"
'.Formula =
"='O:\foldername1\foldername2\foldername3\[MockUp_Module1_Feasibility
v1a.xls]sheet1'!A3" 'this one doesn't work when uncommented
.Formula = .Value
End With

End Sub

Thanks,
Chris


--

Dave Peterson


All times are GMT +1. The time now is 05:41 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com