Help with paths
Hi.
Do I need to use the full path in VBA code i.e. GetSheet = "FTP " & DailyDate Set wb = Workbooks.Open("C:\Users\***\***\****\Archives") Windows("Archives").Activate Sheets(GetSheet).Select Sheets(GetSheet).Copy After:=Workbooks("Daily Reports.xls").Sheets(1) wb.Close False this if fine while under development on one pc. The code will have a number of workbooks in one folder on a network. It will be accessed by a number of pc's. can I shorten this path so that it just looks in the folder where all the workbooks will be stored? Thanks, Albert |
Help with paths
If you omit the path information from the file name, the Open procedure will
look in the current default directory. You can retrieve the full path of the current directory with Dim S As String S = CurDir MsgBox S You can change the current directory with code like ChDrive "G:\Test" ChDir "G:\Test" -- Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) "Albert Browne" wrote in message ... Hi. Do I need to use the full path in VBA code i.e. GetSheet = "FTP " & DailyDate Set wb = Workbooks.Open("C:\Users\***\***\****\Archives") Windows("Archives").Activate Sheets(GetSheet).Select Sheets(GetSheet).Copy After:=Workbooks("Daily Reports.xls").Sheets(1) wb.Close False this if fine while under development on one pc. The code will have a number of workbooks in one folder on a network. It will be accessed by a number of pc's. can I shorten this path so that it just looks in the folder where all the workbooks will be stored? Thanks, Albert |
Help with paths
If all the workbooks, including the one with the VBA, are stored in the same
folder, then you can use the path of the active workbook: Sub browne() s1 = ActiveWorkbook.Path s2 = "\B.xls" Workbooks.Open s1 & s2 End Sub will open b.xls in the common folder. -- Gary''s Student - gsnu200804 "Albert Browne" wrote: Hi. Do I need to use the full path in VBA code i.e. GetSheet = "FTP " & DailyDate Set wb = Workbooks.Open("C:\Users\***\***\****\Archives") Windows("Archives").Activate Sheets(GetSheet).Select Sheets(GetSheet).Copy After:=Workbooks("Daily Reports.xls").Sheets(1) wb.Close False this if fine while under development on one pc. The code will have a number of workbooks in one folder on a network. It will be accessed by a number of pc's. can I shorten this path so that it just looks in the folder where all the workbooks will be stored? Thanks, Albert |
All times are GMT +1. The time now is 02:07 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com