Note: The other languages of the website are Google-translated. Back to English
English English

Jak uložit soubor Excel s hodnotou buňky?

Když používáte sešit, napadlo vás někdy uložit soubor Excel na základě obsahu buňky? Například v buňce A1 máte „Prodejní cenu“ a sešit chcete uložit jako název Prodejní cena. Samozřejmě můžete název zadat do dialogového okna Uložit jako a poté jej uložit. Bude to však neefektivní metoda ve vašem množství práce. Dnes budu mluvit o rychlém triku, jak to vyřešit.

Uložte soubor aplikace Excel se specifickou hodnotou buňky pomocí kódu VBA

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina Uložte soubor aplikace Excel se specifickou hodnotou buňky pomocí kódu VBA


Následující kód VBA vám může pomoci uložit sešit se zadanou hodnotou buňky, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Uložte soubor aplikace Excel se specifickou hodnotou buňky

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. A pak stiskněte F5 klíč k provedení kódu a váš sešit byl pojmenován jako obsah buňky buňky A1. Viz screenshot:

doc-save-with-cell-value-1

Poznámky:

1. Můžete zadat libovolnou hodnotu buňky jako název souboru pouze úpravou A1 na jiný odkaz na buňku ve výše uvedeném kódu.

2. Váš aktivní sešit bude uložen do složky C: \ Users \ dt \ Desktop \ moje informace \ (poslední lomítko musí zůstat, když místo vložíte místo) místo, můžete změnit cestu k vaší potřebě.


Související články:

Jak uložit soubor s datem a časem v aplikaci Excel?

Jak zobrazit cestu k souboru v záhlaví nebo panelu nástrojů v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (33)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
modul neukládá do .XlsX; myslím, že to má něco společného s řádkem 7;; ".xls", FileFormat:=xlNormal; Jak také mohu upravit, aby převzal hodnotu ze 3 různých zřetězených buněk? například: jméno , příjmení , datum; na řádku 6 kódu?
Tento komentář byl moderátorem webu minimalizován
Dim název souboru jako řetězec
Dim filename1 As String
Dim filename2 As String

Cesta = "C:\Users\dt\Desktop\moje informace\"
název souboru = Range("A1")
název_souboru1 = rozsah("A2")
název_souboru2 = rozsah("A3")
ActiveWorkbook.SaveAs název_souboru:=Cesta a název_souboru & "-" & název_souboru1 & "-" & název_souboru2 ".xls", FileFormat:=xlNormal
Tento komentář byl moderátorem webu minimalizován
Chrisi. Můžete jej zřetězit v samostatné buňce a pak tuto buňku označit jako hodnotu názvu souboru.
Tento komentář byl moderátorem webu minimalizován
Ahoj, moje se uloží pouze jako cesta a název souboru. Chci, aby se uložil pouze název souboru odkazovaný z buňky. Můžete mi prosím pomoci?
Tento komentář byl moderátorem webu minimalizován
To je docela fajn... ale zdá se, že je tam chyba, kterou si nejsem jistý, jak ji opravit. Používám to v šabloně s podporou maker. Otevřu šablonu, provedu změny/aktualizace, stisknu F5 pro spuštění makra... a... objeví se dialogové okno "Přejít na" a očekává se, že vložím "odkaz". Pokud však stisknu ALT F11 a POTOM stiskněte F5, nový soubor .xls se uloží podle očekávání. Musím vždy otevřít modul Visual Basic, abych spustil tuto proceduru "uložení"?
Tento komentář byl moderátorem webu minimalizován
Mám šablonu, kterou nechci přepisovat, takže uživatel musí uložit soubor pojmenovaný podle data zadaného do jednoho z polí. Nechci, aby uživatel musel otevírat nástroje a poté vybrat / spustit makro. Stejně tak mohou zadat název souboru.
Tento komentář byl moderátorem webu minimalizován
můžete přidat =NOW() jako parametr k vašemu souboru v buňce, než jej extrahujete do makra (a také umístit standardní tlačítko do rohu stránky, aby zaměstnanec nemusel otevírat žádné nástroje
Tento komentář byl moderátorem webu minimalizován
Jste zachránci života. Dík!
Tento komentář byl moderátorem webu minimalizován
Potřebuji uložit jako soubor .csv. jak bych to změnil, aby se to uložilo jako soubor .csv? Private Sub filename_cellvalue() 'Aktualizace 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Cesta a název souboru & ".xls ", FileFormat:=xlNormal End Sub Předem děkujeme za Vaši pomoc!
Tento komentář byl moderátorem webu minimalizován
Myslím, že jsem tu udělal něco špatně...

Hlásí mi to chybu v řádku Sheets("shitname").Vybrat

Pravděpodobně jsem udělal něco špatně, když jsem pojmenoval "svinstvo" jako buňku K10

Chci změnit list na jiný list, který se nazývá přesně jako buňka K10


Gicsel Macro
'
' Klávesová zkratka: Ctrl+Shift+C
'
Selection.Copy
Sheets("debagat").Vyberte
Řádky("8:8").Vyberte
ActiveSheet.Paste
Ztlumit cestu jako řetězec
Cesta = "C:\cgxml\"
Dim název souboru jako řetězec
název souboru = Range("A8")
Dim shitname As String
shitname = Range("K10")
Sheets("shitname").Vyberte
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filename:=Cesta a název souboru & ".xml", FileFormat:=xltxt, CreateBackup:=False
Listy("TOTAL").Vyberte
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Tento komentář byl moderátorem webu minimalizován
Funguje to skvěle... Děkuji, ale musím to uložit jako PDF... Máte nějaké nápady?

Díky

Chris
Tento komentář byl moderátorem webu minimalizován
stejné jako výše, ale nahraďte ActiveWorkbook.SaveAs: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filename.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Pravda
Tento komentář byl moderátorem webu minimalizován
Děkuji za vaši zpětnou vazbu, moc mi pomohla.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Co bych měl přidat, pokud jsem chtěl uložit aktivní list, ale s použitím hodnoty buňky listu 1?
Tento komentář byl moderátorem webu minimalizován
Prosím pomozte... Všechno se mi podařilo. Ale uloží dokumenty do složky Moje dokumenty místo na zadaný server...



Private Sub CommandButton1_Click ()
Ztlumit cestu jako řetězec
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
Dim FileName5 As String
Cesta = "J:\Protection Services\Documents\Booysendal security"
FileName1 = Range("A2")
FileName2 = Range("B2")
FileName3 = Range("C2")
FileName4 = Range("D2")
FileName5 = Range("E2")
ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Tento komentář byl moderátorem webu minimalizován
Za zabezpečení a před uvozovku přidejte zpětné lomítko... ...zabezpečení\"
Tento komentář byl moderátorem webu minimalizován
Co když chcete pouze definovat název souboru, ale máte možnost vybrat cestu k souboru při každém uložení?

Můžete také zadat více buněk pro název souboru. Buňky jsou také sloučeny.

Uložte pokaždé do jiných cest k souboru

Pro název souboru použijte více buněk
Tento komentář byl moderátorem webu minimalizován
Dobře, takže to funguje dobře pomocí tlačítka v listu. Nyní bych chtěl, aby se po počátečním uložení jako normálně ukládalo. Dá se to udělat? Používáte stejné tlačítko pro uložení?
Díky Bruce
Tento komentář byl moderátorem webu minimalizován
jak vytvořit makro pro uložení více listů jako s jejich hodnotami buněk jako názvy souborů
Díky,
Rajiv
Tento komentář byl moderátorem webu minimalizován
hi all!

Jak lze uložit opakovaný vstup do stejných buněk nebo do jiných buněk pomocí makra?

V listu 1 zadám data v A1, B1, C1 pro n-krát za den. V listu 2, musím uložit všechny tyto záznamy, v A2, B2, C2, A3, B3, C3, atd. Tnx!
Tento komentář byl moderátorem webu minimalizován
Ahoj přátelé,
Mám problém a byl bych rád, kdyby se našel někdo, kdo by mi pomohl
Mám soubor na jednotce "F" a složce "ABS" - můj název souboru je "Listdata"
V souboru aplikace Excel na ploše chci buňky (4,4) načíst data z listu "ABS" (1) a buňky (2,2)
Níže uvedený kód
Sub Macro1 ()
activesheet.Cells(4, 4).Value = "F:\ABS\" & data seznamu & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
ale nefunguje to správně
Díky přátelé
Tento komentář byl moderátorem webu minimalizován
Ahoj, pokouším se použít tento kód, ale při pokusu o spuštění se mi zobrazí chyba runtime 1004 a zvýrazní řádek 7 jako neplatný: ActiveWorkbook.SaveAs název souboru:=Cesta a název souboru & ".xls", FileFormat:=xlNormal
Jak to mohu vyřešit? Používám Office 365
Tento komentář byl moderátorem webu minimalizován
Se a célula de referencia estiver em uma outra planilha já aberta? Co faço?
Tento komentář byl moderátorem webu minimalizován
Ahoj. Jsem velmi nadšený, že by to mohlo fungovat, ale pro mě to říká: "BASIC runtime error. Sob-procedura nebo funkční procedura není definována." a šipka označující řádek 6. Co mám dělat?
Tento komentář byl moderátorem webu minimalizován
Ovládací tlačítko pro uložení jako PDF se specifickým názvem na konkrétní místo již funguje, ale chci upravit kód, protože název souboru je název aktivního listu plus hodnota konkrétní buňky z jiného listu. Jak to udělám? Toto mám pro uložení jako PDF:


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _
název_souboru:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Děkuji!
Tento komentář byl moderátorem webu minimalizován
může někdo prosím pomoci s řešením, podařilo se mi získat výstup správně, pokud buňka není prázdná

Private Sub Saveas()

Dim path As String

Dim filename1 As String



cesta = "C:\User\Compwork\"



název_souboru1 = cesta & Rozsah("G4") & " " & "-" & " " & Rozsah("G6") & " " & "-" & " " & Rozsah("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas název_souboru1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Můj problém však je, že bych chtěl uložit název souboru bez ponechání mezery, pokud je například hodnota buňky NULL, pokud je hodnota G6 prázdná, pak se mi líbí výstup "G4-H7 VTError".
Existuje nějaký způsob, jak k tomu přistoupit?


Díky.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění