From: Simona (strnecka13@seznam.cz)
Date: 26. 02. 2003, 15:23 CET
Jej, promin, ze ono to patri az tam nakonec pred End Sub? Aha :-)) Tak ja budu jeste chvili badat.... S. Dne 26. únor 2003, <servis-internet@nawebu.cz> napsal: > Dekuju :-)) > Slo by tam nekam propasovat i celou tu opravu? Zkusila jsem tam dat Call makro, > ktere nedela nic jineho nez: > > Sub zmena_data_na_predpisu() > ' > Range("J3").Select > ActiveCell.FormulaR1C1 = "1/2/2003" > Range("J4").Select > Selection.Copy > Range("J3").Select > Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ > False, Transpose:=False > Application.CutCopyMode = False > End Sub > > > a jeste bych tam na konec dala nejake > > activeworkbook.Save > activeworkbook.close > > a pak aby se otevrel dalsi soubor. > > Kdyz jsem pouzila to Tvoje makro tak jak bylo, tak se otevrely bez dotazu > vsechny fily v adresari. Ale to nemuzu naaplikovat na 250 souboru najednou. > Take bych tam potrebovala tu zmenu data. > > Jaka by tam byla uprava, kdybych chtela macro disable pri otevirani? > > Simona > > > Sub otvaracia_utilitka() > Set fs = Application.FileSearch > 'Napis adresar z ktoreho to ma tahat... > Adresar = "D:\Pokus" > > With fs > .LookIn = Adresar > .Filename = "*.xls" > .SearchSubFolders = False > .Execute > MsgBox "Počet nájdených súborov: " & .FoundFiles.Count > For i = 1 To .FoundFiles.Count > z = .FoundFiles(i) > Otvor_a_spracuj (z) > > Call zmena_data_na_predpisu > > > Next i > End With > MsgBox "Práca ukončená." > Application.ScreenUpdating = False > End Sub > > Sub Otvor_a_spracuj(xlsFile) > Workbooks.Open xlsFile, 0, False, , , , True > 'a pokracuj dalej > End Sub > > > > > ______________________________________________________________________ > Reklama: > Předpla»te si Tarify nové generace na ąest měsíců a získáte volání o víkendu > v síti Oskar zdarma. > http://ad2.seznam.cz/redir.cgi?instance=41039%26url=http://www.oskarmobil.cz/services/whatsnew.php > > -- > -- Konference magazinu Internet -------------- servis-internet -- > -- Pravidla: http://pravidla.kab.cz ------ FAQ: http://faq.kab.cz > -- Archiv a instrukce pro odhlaseni: http://internet.nawebu.cz > > ______________________________________________________________________ Reklama: Novy slovensko-cesky film ve vasich kinech od 13.unora. http://www.falcon.cz
This archive was generated by hypermail 2.1.6 : 26. 02. 2003, 15:23 CET