MS Excel

Téma: Save As

Zaslal/a nio313 16.6.2010 0:32

AHoj Mam dotaz Mam subor s 30 listami potrebujem ulozit len ten ktory mam prave otvoreny pri tomto my to
uklada cely subor s 30lis :

Sub ulozit()
ChDir "C:\" 'cesta kam se má soubor uložit
ActiveWorkbook.SaveAs Filename:=Range("A1")
End Sub

Zaslat odpověď >

nio313(16.6.2010 1:24)#001805

Damlepsi dotaz ak by som chcel ulozit len lisky ktore maju v ("B3") hodnotu vedsiu ako 1 klidne ich muzebyt 30. Vzdy ulozit podla nazvu v A1 v danom liste.citovat

Jeza.m(16.6.2010 9:12)#001806

Ahoj,

to není jen o uložení, tady je potřeba vytvořit nový soubor.
Příklad níže vyžaduje na každém listu v buňce A1 cestu k souboru do jakého by se měl uložit. V buňce B3 pak číslo k vyhodnocení.
Public Sub ulozeni()
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Cells(3, 2) > 1 Then
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=Cells(1, 1), FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close xlNo
End If
Next
End Sub

M@

Příloha: zip