Re: Hromadna zmena read only

From: Simona (strnecka13@seznam.cz)
Date: 26. 02. 2003, 15:18 CET

  • Next message: Simona: "Re: Re: Hromadna zmena read only"
    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
    

  • Next message: Simona: "Re: Re: Hromadna zmena read only"

    This archive was generated by hypermail 2.1.6 : 26. 02. 2003, 15:18 CET