Excel95 Floppy Save problem
You said it isn't working. If it used to work, then there isn't anything
wrong with the code.
I suggested an approach. If that isn't satisfactory, then I don't know what
to tell you.
this is the working part of the macro:
ActiveWorkbook.SaveCopyAs "A:\" & ActiveWorkbook.Name
What would you change. The rest is just sizzle.
--
Regards,
Tom Ogilvy
Jim wrote in message
. ..
Hi Tom
This macro is part of a highly customised Excel package which is virtually
idiot
proof for a third party user ie a publican!! The programme is been updated
to Excel
2000 soon.
Hence the need to backup and save to a floppy, as well as saving to the
hard
drive. The hard drive copy still works fine, it is only the macro for
saving
to the floppy
below which is causing a problem.
I didn't put the full picture in the 1st mail in the interests of brevity!
Any thoughts on macro below?
Regards
Jim
"Tom Ogilvy" wrote in message
...
Microsoft recommends not saving directly to a floppy. So possibly you
could
save to the hard drive, copy to the floppy, delete the file on the hard
drive.
--
Regards,
Tom Ogilvy
Jim wrote in message
...
I have been using this macro to save to a floppy in Excel 95 for some
years
very successfully.
Now I am running Excel2000 and the floppy seems to run and run but not
save.
Any ideas
Help appreciated
Jim
Sub SavetoFloppy() 'Saves to floppy only
Dim CurPath As String
CurPath = "c:\msoffice\excel\mats\Takings"
Application.ScreenUpdating = False
If MsgBox("Put a Floppy Disk in Drive A" & Chr(13) _
& "and then press OK", 49, "Masons Arms - Save to Floppy") _
= vbCancel Then Exit Sub
On Error Resume Next
Application.DisplayAlerts = False
ChDrive "A"
ActiveWorkbook.SaveCopyAs "A:\" & ActiveWorkbook.Name
ChDrive Left(CurPath, 1)
If Err Then
MsgBox "There is a problem with this Transfer, Try again", 49,
"Masons
Arms - WARNING"
Exit Sub
Else
MsgBox "Wait until Green Light has gone out" & Chr(13) _
& "Press OK and then remove Disk", 64, "Masons Arms - Transfer
Finished"
On Error GoTo 0
Application.ScreenUpdating = True
End If
End Sub
|