» Poradna » Programy

Makro excel

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 9/9
 |   |  Microsoft Windows XP Opera 9.64  |  [195.113.148.---]

Čau, znáte někdo makro který mi uloží list - je možno ten aktivní ale bude lepší mít tlačítko na makro v listu 1 a to by uložilo list2 a ted to důležité - nechci formát excelu tzn. aby to uložilo třeba pod blabla.datZatím jsem nic podobnýho nenašel.Díky za pomoc Kuba

Odpovědi na otázku

 |   |  Microsoft Windows XP IE 8.0  |  [88.102.142.---]

Si děláš srandu, že jsi nic nenašel, viďhttp://goo.gl/Y7vOb

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 20.0.1132.57  |  [194.228.66.---]

Nehledal, tak nenašel.PrasatkoPee

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Opera 9.64  |  [195.113.148.---]

jo našel ActiveWorkbook.SaveAs Filename:="C:\a.dat" & jmenojenže je problém že to neuloží jako text - když si zedituju soubor a.dat nebo jej otevřu v poznámkovém bloku zobrazí se kupa nesmyslů.. co s tím když dám uložit jako do textu nabízí to oddělovače jen středníky nebo mezeru a já potřebuju čárku...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Opera 9.64  |  [195.113.148.---]

nebo export bez oddělovače tu čárku už si tam udělám..

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0  |  [88.102.142.---]

Takže uložit, jako .csv, rada stejná, Google za dvě vteřiny: http://goo.gl/xD5xF

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Opera 9.64  |  [195.113.148.---]

csv sice zedituju do textu ale nebude s ním kamrádit druhej program pro načtení protože soubor musí mít koncovku .DAT

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0  |  [88.102.142.---]

Čím dál víc mám pocit, že si děláš prču Jestli máš problém přepsat "csv" na "text" ve vyhledávači, tak to makro raději svěř někomu jinému

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0  |  [217.64.0.---]

Asi to není moc elegantní, ale funguje.Ve VisualBasicu vytvoř následující program. Ten musí být uložen buď v aktivním sešitu, nebo v souboru maker Personal.xls.Adresář, do kterého se bude ukládat výstup je třeba nejdřív vytvořit (zde C:\Dokumenty) a stejný zapsat na příslušný řádek makra. Název souboru "uložená data" zvol libovolně např Blabla.txtNásledující makro vyrobí textový soubor, ve kterém jsou obsahy jednotlivých buněk odděleny tabulátorem.Makro přepne z aktivního listu na list2, ten uloží a pak vrátí kurzor zpět na výchozí pozici.Níže uvedené makro se spouští klávesovou zkratkou "Ctrl+a"Sub UlozObsahListu2()'' UlozObsahListu2 Makro' Makro zaznamenané 27.7.2012, autor'' Klávesová zkratka: Ctrl+a' Sheets("list2").Select Sheets("list2").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Dokumenty\uložená data.txt", FileFormat:= _ xlText, CreateBackup:=False ActiveWindow.Close SaveChanges:=False Sheets("List1").SelectEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0  |  [217.64.0.---]

Do uvedeného makra můžeš zapsat i koncovku .dat

Souhlasím  |  Nesouhlasím  |  Odpovědět



Určitě si přečtěte


Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

** Tesla představila elektrický kamion ** Má obdivuhodný výkon i dojezd ** Prodávat by se měl už za dva roky

17.  11.  2017 | Vojtěch Malý | 215

Elektronika, která nepotřebuje kabel ani baterii. Živí se rádiovým šumem

Elektronika, která nepotřebuje kabel ani baterii. Živí se rádiovým šumem

** Každá elektrická krabička má konektor pro napájení nebo baterii ** Jenže pozor, jednou by to tak nemuselo být ** Drobná elektronika se může živit rádiovými vlnami

14.  11.  2017 | Jakub Čížek | 15

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

** I pod hranicí desíti tisíc korun existují dobře použitelné notebooky ** Mohou plnit roli pracovního stroje i zařízení pro zábavu ** Nejlevnější použitelný notebook koupíte za pět a půl tisíce

16.  11.  2017 | Stanislav Janů | 53