< návrat zpět

MS Excel

Téma: Uložení rss

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ěď >
icon Poki(9.11.2010 13:41)#003079
Poki
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
avatar
díki ;-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje