home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / Savelist.bas < prev    next >
Encoding:
BASIC Source File  |  2002-01-03  |  770 b   |  27 lines
  1. Attribute VB_Name = "Savelist"
  2. Sub Savelist()
  3.     'V nßsledujφcφm °ßdku zadejte cestu ke slo₧ce, ve kterΘ mß b²t ulo₧ena kopie listu nap°."C:\bak\"
  4.     pfad = InputBox("Zadejte cestu ke slo₧ce, ve kterΘ mß b²t ulo₧ena kopie listu", , "C:\bak\")
  5.     Select Case Right(pfad, 1)
  6.         Case ""
  7.         GoTo ErrorHandler
  8.         Case Is <> "\"
  9.         pfad = pfad & "\"
  10.     End Select
  11.     ActiveSheet.Copy
  12.     On Error GoTo ErrorHandler
  13.     ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
  14. ActiveWorkbook.Close SaveChanges:=False
  15. Exit Sub
  16. ErrorHandler:
  17.     Select Case Err.Number
  18.         Case 1004
  19.             MsgBox ("Ulo₧enφ nebylo ·sp∞ÜnΘ")
  20.             ActiveWorkbook.Close SaveChanges:=False
  21.         Case Else
  22.     End Select
  23. End Sub
  24.  
  25.  
  26.  
  27.