• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Uložení

Zaslal/a Niffki 9.11.2010 13:04

Mohu se zeptat proč mi tento kód nefunguje?
Sub UlozitVydejku()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

With Sheets("výdejka")
.Cells.Copy
End With

Workbooks.Add
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
Application.CutCopyMode = False
ActiveSheet.Name = "výdejka"
Sheets("list2").Delete
Sheets("list3").Delete
Range("A1").Select

Application.DisplayAlerts = True

Application.GetSaveAsFilename
Application.ScreenUpdating = True
ActiveWorkbook.Close savechanges:=False

End Sub
Vše se provede jen se mi neuloží když dám uložit..

Zaslat odpověď >

---

Poki(9.11.2010 13:41)#003079

Application.Getsaveasfilename - neulozi, jenom ti ziska uplny nazev souboru od uzivatele, pak si ho musis ulozit sam, cele by to mohlo vypadat takto:Sub UlozitVydejku()
Dim File_name As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False

With Sheets("výdejka")
.Cells.Copy
End With

Workbooks.Add
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
Application.CutCopyMode = False
ActiveSheet.Name = "výdejka"
Sheets("list2").Delete
Sheets("list3").Delete
Range("A1").Select

Application.DisplayAlerts = True

File_name = Application.GetSaveAsFilename(FileFilter:="Excel 2003,*.xls,Excel 2007,*.xlsx,All Files,*.*", Title:="Save As File Name")
If File_name = False Then Exit Sub

ActiveWorkbook.SaveAs File_name
Application.ScreenUpdating = True
ActiveWorkbook.Close savechanges:=False

End Subcitovat

Niffki(10.11.2010 8:35)#003088

díki ;-)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse