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