From: Simona (strnecka13@seznam.cz)
Date: 26. 02. 2003, 15:18 CET
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
This archive was generated by hypermail 2.1.6 : 26. 02. 2003, 15:18 CET