Excel: makro ulozeni vsech listu (jen hodnoty)

[Petrrr]

Dobrý den, pracuji se sesitem, ktery do sebe nacita plno externich dat, ale casto potrebuji dat k dispozici sefum a veeni data ze souboru, problem je v tom, ze ten sdileny se dlouho nacita, a obcas opravdu nepotrebuji, aby otycni vedeli ke si co nacitam. Neke uz jsem cetl o moznosti jak excel ulozit jen jako data, ci-li aktualne nactena data ulozi do bunek a nebue v sesite zadne propojeni, a nacita se normalne rychle? Pripane kde bych mohl mit problem s nacitanim? Jde o cca 40ruznych sesitu co se nacitaji nejaka data z nich do 1.

Predem moc dekuji za odpoved, vim ze jsem to uz neke viel resene jen to nejak nemohu uz asi tyden najit, dokonec myslim, ze tady na foru :(

zatim si myslim, ze by moznost byla takova, ale jmena listu semi do toho macra cpat nechce, ja bych tam chtel dat aby toto uelal se vsemi v sesitu nakopcil tak sesit novy a pak mozna aby ho ulozil jako :-)

Kód: Vybrat vše

Sub zkouska()
'
' zkouska Makro
'

'
    Workbooks.Add
    Windows("soubor_vychozi.xlsm").Activate
    Sheets("list1").Select
    Sheets("list1").Copy Before:=Workbooks("Sešit1").Sheets(1)
    Windows("soubor_vychozi.xlsm").Activate
    Cells.Select
    Selection.Copy
    Windows("Sešit1").Activate
    Sheets("list1").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

// hm, jeste tam nejak budu muset dat, aby vytvoril novy soubor co tak koukam tak jsemho delal mimo makro :-)

[Reklama]

[Petrrr]

zadny napad, ani proc se ten sesit s daty (plno odkazu) na jine soubory tak dlouho nacita (cca 1-2min nez se nacte sesit)?

[Petrrr]

viewtopic.php?f=35&t=15218 hm :-) zitra ci v patek testnu to macro


ach jo, nestiham ale vypada to ze budu muset nejak upgradovat sve macro

[Petrrr]

nikdo toto uz nekdy uspesne neresil? Ja uspesne nekde delam chybku :(

[cmuch]

Toto vytvoří kopii sešitu a pak převede všechny buňky na všech listech na hodnoty.
Není ošetřen zámek buněk.

Kód: Vybrat vše

Sub prevod()
 
    cesta = ActiveWorkbook.Path
    nazev = ActiveWorkbook.Name
    nazev = nazev & "_pouze-hodnoty.xls"
 
    ActiveWorkbook.SaveCopyAs cesta & "/" & nazev
 
    Workbooks.Open cesta & "\" & nazev
 
   Set Zdroj = ActiveWorkbook
 
   For Each List In Zdroj.Worksheets
      List.Activate
      Cells.Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
          xlNone, SkipBlanks:=False, Transpose:=False
      ActiveSheet.Range("A1").Select
      Application.CutCopyMode = False
   Next List
End Sub

[Petrrr]

super makro funguje, akorat mam na konci jednu DB kacitanou, na listu s orrehledem urcitych dat a tu to nejak nekopci ale to detail :-)

[cmuch]

To nevím proč to nezkopíruje, to bys musel jedině poslat ten list.