CCkfm2000
11-30-2006, 05:17 AM
hi all..
i'm trying to
1. Connect to a network drive.
2. Open spreadsheet.
3. Update the links ( automatically done ).
4. Save and exit spreadsheet.
5. Close network connection.
Below is the vba code I?m using.
Sub opennetworklinkfile()
Shell ("net use x: /d")
Shell ("net use x: \\festini\coldstore$ (file://\\festini\coldstore$) /user:wms\coldxp coldxp")
ChDir "X:\Data Transfer"
Workbooks.Open Filename:="X:\Data Transfer\Link to the Gold Plan file.xls", _
UpdateLinks:=3
Range("H1").Select
ActiveWorkbook.Save
ActiveWindow.Close
Shell ("net use x: /d")
End Sub
I get a run-time error ?76? ?Path Not Found?. :banghead:
any ideas.
thanks
i'm trying to
1. Connect to a network drive.
2. Open spreadsheet.
3. Update the links ( automatically done ).
4. Save and exit spreadsheet.
5. Close network connection.
Below is the vba code I?m using.
Sub opennetworklinkfile()
Shell ("net use x: /d")
Shell ("net use x: \\festini\coldstore$ (file://\\festini\coldstore$) /user:wms\coldxp coldxp")
ChDir "X:\Data Transfer"
Workbooks.Open Filename:="X:\Data Transfer\Link to the Gold Plan file.xls", _
UpdateLinks:=3
Range("H1").Select
ActiveWorkbook.Save
ActiveWindow.Close
Shell ("net use x: /d")
End Sub
I get a run-time error ?76? ?Path Not Found?. :banghead:
any ideas.
thanks