Help Opening file on network
HI There Got some code off the forum here and modified but still can't get t work. Private Sub CommandButton3_Click() Dim sFile As String Dim Source As Range Dim Rdest As Range Set rSource = ThisWorkbook.ActiveSheet.Range("B2:I65") sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" Workbooks.Open sFile Set Rdest = ActiveWorkbook.Sheets(1).Range("A1") rSource.Copy.Rdest ActiveWorkbook.Close True End Sub Comes up with an error and highlights Workbooks.Open sFile Is it the path? Gurus help required Thanks Guys in advance -- Mikeic ----------------------------------------------------------------------- Mikeice's Profile: http://www.excelforum.com/member.php...fo&userid=2246 View this thread: http://www.excelforum.com/showthread.php?threadid=38896 |
Help Opening file on network
Hi,
You have to change the current drive. Use ChDrive(Path) Regards Jean-Yves "Mikeice" wrote in message ... HI There Got some code off the forum here and modified but still can't get to work. Private Sub CommandButton3_Click() Dim sFile As String Dim Source As Range Dim Rdest As Range Set rSource = ThisWorkbook.ActiveSheet.Range("B2:I65") sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" Workbooks.Open sFile Set Rdest = ActiveWorkbook.Sheets(1).Range("A1") rSource.Copy.Rdest ActiveWorkbook.Close True End Sub Comes up with an error and highlights Workbooks.Open sFile Is it the path? Gurus help required Thanks Guys in advance. -- Mikeice ------------------------------------------------------------------------ Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467 View this thread: http://www.excelforum.com/showthread...hreadid=388968 |
Help Opening file on network
If your file is on a network share as: \\employee\call quality\data.xls
Then change this line: sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" to just: sFile = "\\Employee\Call Quality\Data.xls" If your file is under the folder that contains the workbook that's running the code: Then change this line: sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" to just: sFile = ThisWorkbook.Path & "\Employee\Call Quality\Data.xls" (you had an extra backslash.) Mikeice wrote: HI There Got some code off the forum here and modified but still can't get to work. Private Sub CommandButton3_Click() Dim sFile As String Dim Source As Range Dim Rdest As Range Set rSource = ThisWorkbook.ActiveSheet.Range("B2:I65") sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" Workbooks.Open sFile Set Rdest = ActiveWorkbook.Sheets(1).Range("A1") rSource.Copy.Rdest ActiveWorkbook.Close True End Sub Comes up with an error and highlights Workbooks.Open sFile Is it the path? Gurus help required Thanks Guys in advance. -- Mikeice ------------------------------------------------------------------------ Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467 View this thread: http://www.excelforum.com/showthread...hreadid=388968 -- Dave Peterson |
Help Opening file on network
Oops. I didn't notice the subject. Try the first suggestion.
Dave Peterson wrote: If your file is on a network share as: \\employee\call quality\data.xls Then change this line: sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" to just: sFile = "\\Employee\Call Quality\Data.xls" If your file is under the folder that contains the workbook that's running the code: Then change this line: sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" to just: sFile = ThisWorkbook.Path & "\Employee\Call Quality\Data.xls" (you had an extra backslash.) Mikeice wrote: HI There Got some code off the forum here and modified but still can't get to work. Private Sub CommandButton3_Click() Dim sFile As String Dim Source As Range Dim Rdest As Range Set rSource = ThisWorkbook.ActiveSheet.Range("B2:I65") sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls" Workbooks.Open sFile Set Rdest = ActiveWorkbook.Sheets(1).Range("A1") rSource.Copy.Rdest ActiveWorkbook.Close True End Sub Comes up with an error and highlights Workbooks.Open sFile Is it the path? Gurus help required Thanks Guys in advance. -- Mikeice ------------------------------------------------------------------------ Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467 View this thread: http://www.excelforum.com/showthread...hreadid=388968 -- Dave Peterson -- Dave Peterson |
Help Opening file on network
Thanks guys You rock!! Worked perfectly : -- Mikeic ----------------------------------------------------------------------- Mikeice's Profile: http://www.excelforum.com/member.php...fo&userid=2246 View this thread: http://www.excelforum.com/showthread.php?threadid=38896 |
All times are GMT +1. The time now is 04:55 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com