Excel: makro ulozeni vsech listu (jen hodnoty)
Napsal: 22 zář 2012 16:18
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 :-)
// hm, jeste tam nejak budu muset dat, aby vytvoril novy soubor co tak koukam tak jsemho delal mimo makro :-)
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 :-)