MS Excel

Díky moc, funguje skoro jak má jen při prvním pokusu vynechá jedno číslo v tomto případě když je ve složce 86.xls vytvoří až 88.xls pak funguje normálně než soubor s macrem zavřu a otevřu znovu pak opět vynechá jedno pořadové číslo.

Macro jsem byl nucen kosmeticky upravit o to aby se samo nezavíralo a změnil jsem cestu odkazovanou protože soubor ve kterém mám macro je o adresář výše.

Sub ulozit_jako_dalsi()

Dim soubor_zdroj As Workbook
Dim soubor As String
Dim soubor_novy As String
Dim akt_cesta As String
Dim i As Double

akt_cesta = "\\apache\Spol\Krycí listy"
' zjistit posledni cislo souboru
soubor = Dir(akt_cesta & "\*.xls")
i = 0
Do While soubor <> "" ' opakuje dokud existuje soubor
If soubor <> "krycí list.xls" _
And Right(soubor, 4) = ".xls" Then
i = i + 1
End If
soubor = Dir 'nacteni dalsiho souboru
Loop

' kontrola zda "krycí list.slx" neni otevreny
Set soubor_zdroj = Nothing
On Error Resume Next
Set soubor_zdroj = Workbooks("krycí list.xls")
On Error GoTo 0
If Not soubor_zdroj Is Nothing Then ' then plati, kdyz je otevren
GoTo Pokracovat
Else ' else plati, kdyz neni otevren
Set soubor_zdroj = Nothing
Set soubor_zdroj = Workbooks.Open _
(akt_cesta & "\krycí list.xls")
End If
Pokracovat:

soubor_novy = i + 1 & ".xls"
soubor_zdroj.SaveAs Filename:=akt_cesta & "\" & soubor_novy, _
FileFormat:=xlExcel8

End Sub

citovat

Tak funguje :) ono to rozlišuje velikost písmen a tak to nefiltrovalo Krycí list, proto to vynechání :) Díky moc za pomoc ulehčil jsi mi život :)citovat

Přidat hypertext.odkazy asi půjde.
Ale v příloze se nějak nevyznám. Co to má dělat? Hlavně makro na uložení dalšího souboru bych nedával do ThisWorkbook, ale do modulu. Proč dvě tlačítka? Tlačítko "Vyplnění funkce" přednastaví x-řádků dopředu se vzorci, ale nejsou k nim přeuložené soubory, tak jaké hyp.odkazy?
Tlačítko "Nový záznam" uloží nový soubor s posledním číslem a zafunguje nový řádek, tedy pod tohle tlačítko dodělat ten hyp.odkaz?
Nechci měnit vize, ale šlo by jedním tlačítkem přidat zadaný počet záznamů, ke kterým by se uložil správný počet souborů a přibyl správný počet řádků i se vzorci a odkazy.citovat

Trochu jsem to poupravil. Adresář může být rozbalen kdekoliv, podadresář a krycí soubor musí mít tato jména. "Ulož jako" jsem nahradil kopírováním, odpadá tím rozeznání jména souboru a pořadí se bere z tabulky. Vyhovuje?citovat

Zkusil jsem to vylepšit:
- kontroluje, zda je sešit jen pro čtení. Když ano, dá hlášku a makro skončí
- kontroluje, zda cílový soubor existuje. Když ano, zeptá se, zda přepsat nebo ne. Je možná varianta, aby se neptal a nikdy nepřepsal existující soubor. Ale to, že dá vědět o souboru, upozorní na to, že je něco divně.
- na konci makra samo uloží soubor, aby souhlasily záznamy se souborycitovat