opening other workbooks at the same time
Oops my mistake, quotation marks in the wrong place, Try
'----------
start \"Direct Payments DOT\1 payments cheryl.xls"
start \"Direct Payments DOT\1 payments Sandra.xls"
start \"Direct Payments DOT\1 payments Liv.xls"
start \"Direct Payments DOT\1 payments Sally.xls"
start \"Direct Payments DOT\0.5 yearly payment planner.xls"
exit
'----------
Regards
Steve
"steve" wrote in message
...
Hi John,
Having looked through your posts I think it might be easier to try
something new.
Open windows "notepad" and copy and paste the lines below. Don't include
the dotted lines.
'----------
start \Direct Payments DOT\"1 payments cheryl.xls"
start \Direct Payments DOT\"1 payments Sandra.xls"
start \Direct Payments DOT\"1 payments Liv.xls"
start \Direct Payments DOT\"1 payments Sally.xls"
start \Direct Payments DOT\"0.5 yearly payment planner.xls"
exit
'----------
Then click on filesave as
Give it the name "Start.bat"
And save it to your pen drive.
It may ask you if you are sure you want to change the file type but it is
ok
Now double click the file Start.bat on your pen drive, it doesn't matter
if the drive letter is A or Z it will start all your files
Regards
Steve
"Johnnyboy5" wrote in message
...
On 9 June, 14:34, "steve" wrote:
OK sorry missed that bit, so the macro you have already starts when you
open
a file.
That macro should be in the ThisWorkbook section of your main workbook.
just replace that with
Privat Sub Workbook_Open()
If Len(Dir("f:\Direct Payments DOT\1 payments cheryl.xls")) 0 Then
Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly paymentplanner.xls")
Else
Workbooks.Open ("g\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("g\Direct Payments DOT\1 payments Sandra.xls") '
Workbooks.Open ("g\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("g\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("g\Direct Payments DOT\0.5 yearly paymentplanner.xls")
End If
End Sub
Regards
Steve
"Johnnyboy5" wrote in message
...
On 9 June, 13:41, "steve" wrote:
Do you have the other code, so I could take a look.
Regards
Steve
"Johnnyboy5" wrote in message
...
On 9 June, 12:41, "steve" wrote:
You only need to check if one of the files is on the F drive and it
will
open them all.
Otherwise it will open them all from the G drive.
Sub test()
If Len(Dir("f:\Direct Payments DOT\1 payments cheryl.xls")) 0 Then
Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly
paymentplanner.xls")
Else
Workbooks.Open ("g\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("g\Direct Payments DOT\1 payments Sandra.xls") '
Workbooks.Open ("g\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("g\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("g\Direct Payments DOT\0.5 yearly
paymentplanner.xls")
End If
End Sub
Regards
Steve
"Johnnyboy5" wrote in message
...
On 9 June, 10:43, "steve" wrote:
I'll let you fill in the filenames, but this will check if a file
exists
in
F drive.
If it exists it will open it.
If not will open it from G.
There is no error checking so if you forget to plug the drive in or
it
has
another drive letter it won't work.
Sub test()
If Len(Dir("f:\test.xlsx")) 0 Then
Workbooks.Open ("f:\test.xls")
Else
Workbooks.Open ("g:\test.xls")
End If
End Sub
Regards
Steve
"Johnnyboy5" wrote in message
...
How do I add another drive to search for when loading the
workbooks
listed below.
Problem is when I use these files on my pen drive at home / work
and
other PCs the pen might be recognised as a different drive letter
on
each one.
I only need it look in say "f" and "g" and that will do the job.
Many thanks
John
EXAMPLE
Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
Change as required
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls")- Hide quoted text -
- Show quoted text -
Hi
Couldn't wait so tried to do it in work.
not sure how i should be writing this code out, is it .... ?
Sub test()
If Len(Dir("g:\Direct Payments DOT\1 payments cheryl.xls")) 0
Then
Workbooks.Open ("g:\Direct Payments DOT\1 payments
cheryl.xls")
Else
Workbooks.Open ("f:\Direct Payments DOT\1 payments
cheryl.xls")
If Len(Dir("g:\Direct Payments DOT\1 payments Sandra.xls")) 0
Then
Workbooks.Open ("g:\Direct Payments DOT\1 payments
Sandra.xls")
Else
Workbooks.Open ("f:\Direct Payments DOT\1 payments
Sandra.xls")
ECT ECT
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls")
End If
End Sub
thanks
John- Hide quoted text -
- Show quoted text -
Me again. sorry tried it it doesnt run when I open the main sheet 0.5
yearly payment planner.
I think something about open_workbook () is missing - the other code i
used will open the other workbooks when the "main" open is opened
first. Hope this makes sense.
John- Hide quoted text -
- Show quoted text -
sure thing - and thanks for your attention to my problem, most
helpful to me
Private Sub Workbook_Open()
'Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
'Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
Change as required
'Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
' Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
' Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls") '
End Sub
John
or instead how can i get it to work with three ++ drives
example what do need to change
Private Sub Workbook_Open()
If Len(Dir("x:\Direct Payments DOT\1 payments cheryl.xls")) 0 Then
Workbooks.Open ("x:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("x:\Direct Payments DOT\1 payments Sandra.xls")
Workbooks.Open ("x:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("x:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("x:\Direct Payments DOT\0.5 yearly payment
planner.xls")
Else
Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls")
Workbooks.Open ("g:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("g:\Direct Payments DOT\1 payments Sandra.xls")
Workbooks.Open ("g:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("g:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("g:\Direct Payments DOT\0.5 yearly payment
planner.xls")
End If
End Sub
thanks John
|