MS Excel

Dobrý den, chtěl bych požádat o pomoc s makrem.
Potřebuji vyexportovat aktuální list do souboru ve formátu excel tak, aby se dala vybrat cesta k uložení a dal se zadat název souboru.
Potřebuji, aby zůstalo zachované "formátování", zejména ve sloupci "PLU" takže to do csv asi nepůjde, protože by se mi ztratily ty předřazené "nuly" ve sloupci "PLU", a hlavně pozice sloupce "PLU" se může v čase měnit.
To makro, aby bylo co neuniverzálnější pro ten export v libovolném sešitě.
Děkuji.

Zaslat odpověď >

elninoslov(18.4.2019 10:28)#043200

Niečo takéto ? Dať to do Personal.xlsb a vytiahnuť tlačítko na lištu, alebo to šupnúť do doplnku (prípadne prihodiť do nejakého stávajúceho doplnku).
Sub Export_ActiveSheet()
Dim varResult As Variant
varResult = Application.GetSaveAsFilename("", FileFilter:="Excel File (*.xlsx), *.xlsx", Title:="Export ActiveSheet to Excel File")
If varResult <> False Then
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=varResult, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, Local:=True
ActiveWorkbook.Close False
If Err.Number <> 0 Then MsgBox "Export Sheet Error !", vbCritical, "Error"
Application.DisplayAlerts = True
End If
End Subcitovat

Alfan(18.4.2019 11:54)#043202

Super.
Dal jsem si tlačítko na aktuální list, který chci exportovat.
Kdybych uměl, tak si doplním do makra část, která by mi po spuštění nabídla všechny listy ze sešitu a já bych si mohl vybrat, který chci exportovat.
Pak mi mohl mít tlačítko s makrem třeba na extra listu, kde bych měl to tlačítko.
Ale každopádně děkuji.

citovat

elninoslov(18.4.2019 14:36)#043210

Tak skúste toto. Makro sa volá Export_Sheets, spustí formulár s výberom, vyberiete, kliknete na čudlík, exportuje vybrané do súboru, na ktorého názov sa opýta. Vysporiada sa to aj so skrytými listami v zdroji (v cieli budú zobrazené).

Příloha: zip

43210_vyber-listov-na-export.zip (43kB, staženo 50x)

citovat

Alfan(24.4.2019 7:14)#043222

Děkuji, ale to nedám

Zkopíroval jsem vše a nahrál do nového Module a pak se mi to zastavilo asi na to formuláři.
Já nevím co a kam mám nahrát.citovat

elninoslov(24.4.2019 7:48)#043223

"...zastavilo asi na to formuláři..." - čo to presne znamená ? Hodí chybu na nejakom riadku ? Na akom ? Nenaštartuje sa vôbec ? Formulár ste tam vlastne do toho Vašeho súboru prekopíroval (stačí ho vo VBA iba pretiahnuť na Váš súbor v okne "Projekt - VBAProjekt"). V mojej prílohe Vám to funguje, alebo ani to nie ?...

PS: Ešte ma napadá, že vlastnosť Enabled tlačítka btnExport vo formulári si treba vo VBA zmeniť na False. Lebo keď je True, tak tlačítko je aktívne hneď po spustení formulára a to aj bez vybraných listov.citovat

Alfan(24.4.2019 9:03)#043224

EDIT:
Už jsem to zkopíroval a funguje mi to i v jiném sešitě.
Mockrát děkuji.
Ve vašem souboru to funguje super.
Ale potřeboval bych si to zkopírovat do jiného souboru, ze kterého budu exportovat a to nejspíš nedělám správně.
Nevím přesně co jak a kam zkopírovat.
Já jsem jen tupě zkopíroval vše a vložil do nového Module v tom jiném souboru a tam to nenašlo nějaký formulář. Asi jsem tedy nezkopíroval vše nebo jsem to nakopíroval někam špatně.citovat

Jess(22.10.2023 17:02)#055579

elninoslov napsal/a:

Tak skúste toto. Makro sa volá Export_Sheets, spustí formulár s výberom, vyberiete, kliknete na čudlík, exportuje vybrané do súboru, na ktorého názov sa opýta. Vysporiada sa to aj so skrytými listami v zdroji (v cieli budú zobrazené).Příloha: 43210_vyber-listov-na-export.zip (43kB, staženo 35x)

Tohle je supr. Chci se zeptat, zda by nešlo upravit.
1. Při exportu odstranění propojení mezi sešity
2. Omezit ve výběru (zatím) jen na dva určené listy: "Export" a "Navíc mimo" (nebo minimálně nezobrazovat skrytý list.)
V budoucnu, bych chtěl rozšířit i na další list, proto prosím i okomentovat, zda je možné.citovat

Jess(23.10.2023 17:30)#055580

Tak
1. Odstranění všech propojení při exportu už mám ok.citovat

Téma: Export aktuální list do excelu nebo csv

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje