From: Johnnyboy5 on
On 7 June, 20:01, "Rick Rothstein"
<rick.newsNO.S...(a)NO.SPAMverizon.net> wrote:
> Maybe "rob" was to casual a word to use... what I meant was "take the
> relevant part of the text and use it in your code". As an example...
>
> DriveLetter = Left(ThisWorkbook.Path, 1)
> Workbooks.Open (" & DriveLetter & _
>      ":\Direct Payments DOT\0.5 yearly payment planner.xls")
>
> --
> Rick (MVP - Excel)
>
> "Johnnyboy5" <intermediatec...(a)gmail.com> wrote in message
>
> news:8c0259f6-3a48-44a8-a25c-910550849cc0(a)z8g2000yqz.googlegroups.com...
>
>
>
> > On 7 June, 15:03, "Rick Rothstein"
> > <rick.newsNO.S...(a)NO.SPAMverizon.net> wrote:
> >> > just pluged in my pen stick into my works PC and it wont open the
> >> > files - coz the file drive at work is called e.g  F:   at home its
> >> > called  G:
>
> >> > so the workbooks dont get found unless I manually change the drive in
> >> > the code text
>
> >> > hope this makes sense.
>
> >> > example  Workbooks.Open ("F:\Direct Payments DOT\0.5 yearly payment
> >> > planner.xls")
>
> >> Are you opening the "main" workbook (the one with the code in it) from
> >> the
> >> "pen stick" also? If so, you can use ThisWorkbook.Path to get the path to
> >> the workbook... if that is the same directory for all files (in both the
> >> pen
> >> stick and your work computer), then you can use that in its entirety in
> >> place of the hard-coded path you showed in your (single) example. Or, if
> >> everything is not in the same ultimate directory, you can "rob" the drive
> >> letter from the front of ThisWorkbook.Path (use the Left function to do
> >> that) and use it instead of hard-coding the letter.
>
> >> --
> >> Rick (MVP - Excel)
>
> >> --
> >> Rick (MVP - Excel)
>
> > also can you show me an example of how you write the text.
> > mine is...
> > Workbooks.Open ("F:\Direct Payments DOT\0.5 yearly payment
> >> planner.xls")

OK - will give it a go and then try it in work tomorrow. thanks very
much for your help.

Johnny