Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel95 Floppy Save problem
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I save a file to a floppy disc? | New Users to Excel | |||
How to save to my floppy disk? | New Users to Excel | |||
How can I save xls files to 'E:\'? I have no floppy disc | Excel Worksheet Functions | |||
Can I save changes to excel on a floppy? | New Users to Excel | |||
Using VB to save an excel object to another file format (excel95 or csv) | Excel Programming |