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

Kako shraniti datoteko Excel z vrednostjo celice?

Ste pri uporabi delovnega zvezka kdaj pomislili, da bi shranili datoteko Excel na podlagi vsebine celice? V celici A1 imate na primer »Prodajna cena«, delovni zvezek pa želite shraniti kot ime Prodajna cena. Seveda lahko vtipkate ime v pogovorno okno Shrani kot in ga nato shranite. Toda to bo neučinkovita metoda pri vašem obsegu dela. Danes bom govoril o hitrem triku za njegovo rešitev.

Shranite datoteko Excel z določeno vrednostjo celice s kodo VBA

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.

puščica modri desni mehurček Shranite datoteko Excel z določeno vrednostjo celice s kodo VBA

Naslednja koda VBA vam lahko pomaga shraniti delovni zvezek z določeno vrednostjo celice. Naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: shranite datoteko Excel z določeno vrednostjo celice

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. In nato pritisnite F5 ključ za izvajanje kode in vaš delovni zvezek je bil imenovan kot vsebina celice celice A1. Oglejte si posnetek zaslona:

doc-shrani-z-celično-vrednost-1

Opombe:

1. Kot ime datoteke lahko določite katero koli vrednost celice, tako da preprosto spremenite A1 v sklic na drugo celico v zgornji kodi.

2. Vaš delovni zvezek bo shranjen v mapo C: \ Uporabniki \ dt \ Namizje \ moje informacije \ (zadnja poševnica mora ostati, ko namesto nje prilepite svojo lokacijo), lahko pot spremenite po svojih potrebah.


Sorodni članki:

Kako shraniti datoteko z datumom in uro v Excelu?

Kako prikazati pot do datoteke v naslovni vrstici ali orodni vrstici v Excelu?


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (33)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
modul ne shrani v .XlsX ; mislim, da ima nekaj opraviti z vrstico 7;; ".xls", FileFormat:=xlNormal; Tudi kako lahko spremenim, da prevzamem vrednost iz 3 različnih povezanih celic? na primer: ime, priimek, datum; v 6. vrstici kode?
Ta komentar je moderator na spletnem mestu minimiziral
Dim ime datoteke kot niz
Dim filename1 kot niz
Dim filename2 kot niz

Pot = "C:\Users\dt\Desktop\my information\"
ime datoteke = Obseg ("A1")
ime datoteke1 = Obseg ("A2")
ime datoteke2 = Obseg ("A3")
ActiveWorkbook.SaveAs filename:=Pot & ime datoteke & "-" & filename1 & "-" & filename2 ".xls", FileFormat:=xlNormal
Ta komentar je moderator na spletnem mestu minimiziral
Chris. Lahko ga povežete v ločeno celico in nato na to celico navedete vrednost vašega imena datoteke.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Moj bo shranil samo pot in ime datoteke. Želim samo, da se shrani samo ime datoteke, na katero se sklicuje celica. Mi lahko prosim pomagate?
Ta komentar je moderator na spletnem mestu minimiziral
To je zelo kul... vendar se zdi, da obstaja napaka, za katero ne vem, kako jo odpraviti. To uporabljam v predlogi z omogočenimi makri. Odprem predlogo, naredim spremembe/posodobitve, pritisnem F5, da zaženem makro... in... pojavi se pogovorno okno "Pojdi na", ki pričakuje, da vnesem "referenco". Vendar, če pritisnem ALT F11 in POTEM pritisnite F5, nova datoteka .xls se shrani po pričakovanjih. Ali moram vedno odpreti modul Visual Basic, da zaženem ta postopek "shranjevanja"?
Ta komentar je moderator na spletnem mestu minimiziral
Imam predlogo, za katero ne želim, da bi jo prepisali, tako da mora uporabnik shraniti datoteko, poimenovano po datumu, vnesenem v eno od polj. Ne želim, da mora uporabnik odpreti orodja in nato izbrati/zagnati makro. Prav tako lahko vnesejo ime datoteke.
Ta komentar je moderator na spletnem mestu minimiziral
lahko dodate =NOW() kot parameter imenu datoteke v celici, preden ga ekstrahirate v makru (in postavite standardni gumb v kotu strani, tako da zaposlenim ne bo treba odpreti nobenega orodja
Ta komentar je moderator na spletnem mestu minimiziral
Fantje ste reševalci. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Shraniti moram kot datoteko .csv. kako naj to spremenim, da se shrani kot datoteka .csv? Private Sub filename_cellvalue() 'Posodobitev 20141112 Dim Path Kot niz Dim filename As String Pot = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Poth & filename & ".xl ", FileFormat:=xlNormal End Sub Vnaprej hvala za pomoč!
Ta komentar je moderator na spletnem mestu minimiziral
Mislim, da sem tukaj naredil nekaj narobe ...

Prikaže mi napako v vrstici Sheets("shitname").Izberi

Verjetno sem naredil nekaj narobe, ko sem "sranje ime" poimenoval kot celica K10

želim spremeniti list v drug list, ki se imenuje natanko tako kot celica K10


' gicsel makro
'
' Bližnjica na tipkovnici: Ctrl+Shift+C
'
Izbor. Kopija
Listi("debagat").Izberite
Vrstice("8:8").Izberite
ActiveSheet.Prilepi
Zatemnjena pot kot niz
Pot = "C:\cgxml\"
Dim ime datoteke kot niz
ime datoteke = Obseg ("A8")
Dim sranje kot niz
shitname = Range("K10")
Sheets("shitname").Izberite
Application.CutCopyMode = Napačno
ActiveWorkbook.SaveAs filename:=Pot & ime datoteke & ".xml", FileFormat:=xltxt, CreateBackup:=False
Listi("SKUPAJ").Izberite
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
To deluje odlično... Hvala, vendar moram shraniti kot PDF... Imate kakšne misli?

Hvala

chris
Ta komentar je moderator na spletnem mestu minimiziral
enako kot zgoraj, vendar zamenjajte ActiveWorkbook.SaveAs z: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za povratne informacije, veliko ste mi pomagali.
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Kaj naj dodam, če želim shraniti aktivni delovni list, vendar z uporabo vrednosti celice na listu 1?
Ta komentar je moderator na spletnem mestu minimiziral
Prosim za pomoč... Vse mi je uspelo. Toda shrani dokumente v Moje dokumente namesto na določen strežnik ...



Zasebni podukazni gumb1_Klik()
Zatemnjena pot kot niz
Dim FileName1 kot niz
Dim FileName2 kot niz
Dim FileName3 kot niz
Dim FileName4 kot niz
Dim FileName5 kot niz
Pot = "J:\Protection Services\Documents\Booysendal security"
Ime datoteke1 = Obseg ("A2")
Ime datoteke2 = Obseg ("B2")
Ime datoteke3 = Obseg ("C2")
Ime datoteke4 = Obseg ("D2")
Ime datoteke5 = Obseg ("E2")
ActiveWorkbook.SaveAs Ime datoteke:=Ime datoteke1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Dodajte poševnico nazaj za varnostjo in pred narekovajem... ...varnost\"
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če želite, da želite samo definirati ime datoteke, vendar imate možnost, da izberete pot do datoteke vsakič, ko shranite?

Prav tako lahko določite več celic za ime datoteke. Celice so tudi združene.

Vsakič shranite na različne poti datotek

Za ime datoteke uporabite več celic
Ta komentar je moderator na spletnem mestu minimiziral
Ok, to mi je uspelo z gumbom na listu. Zdaj bi rad, da se normalno shrani po začetnem shranjevanju kot. Ali je to mogoče storiti? Ali uporabljate isti gumb za shranjevanje?
Hvala Bruce
Ta komentar je moderator na spletnem mestu minimiziral
kako ustvariti makro za shranjevanje več listov kot z njihovimi vrednostmi celic kot imena datotek
Hvala,
Rajiv
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni vsi skupaj!

Kako lahko shranite ponavljajoč se vnos v istih celicah, v drugih celicah z makrom?

V list1 vnesem podatke v A1, B1, C1, n-krat na dan. V sheet2 moram shraniti vse te zapise, v A2, B2, C2, A3, B3, C3, itd. Tnx!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo prijatelji,
Imam problem in bi bil vesel, če bi mi kdo pomagal
Imam datoteko na pogonu "F" in mapi "ABS" - moje ime datoteke je "Listdata"
V Excelovi datoteki na mojem namizju želim, da celice (4,4) pridobijo podatke iz lista "ABS" (1) in celice (2,2)
Spodnja koda
Podmakro1()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
vendar ne deluje pravilno
Hvala Prijatelji
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, poskušam uporabiti to kodo, vendar ko poskušam izvesti, dobim napako med izvajanjem 1004 in označuje vrstico 7 kot neveljavno: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Kako lahko to rešim? Uporabljam Office 365
Ta komentar je moderator na spletnem mestu minimiziral
Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Zelo sem navdušen, da bi lahko delovalo, toda zame piše "BASIC runtime error. Sob-procedure ali funkcije procedure niso definirane." in puščica, ki označuje vrstico 6. Kaj naj storim?
Ta komentar je moderator na spletnem mestu minimiziral
Imam kontrolni gumb za shranjevanje kot PDF z določenim imenom na določeno lokacijo, ki že deluje, vendar želim spremeniti kodo, saj je ime datoteke ime aktivnega lista plus vrednost določene celice z drugega lista. Kako to naredim? Tole imam za shranjevanje kot PDF:


Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
ime datoteke:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = Res
End Sub

Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
ali lahko kdo pomaga z rešitvijo, uspelo mi je pravilno dobiti izhod, če celica ni prazna

Zasebni podshrani ()

Zatemnjena pot kot niz

Dim filename1 kot niz



pot = "C:\User\Compwork\"



ime datoteke1 = pot & Obseg("G4") & " " & "-" & " " & Obseg("G6") & " " & "-" & " " & Obseg("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas ime datoteke1, FileFormat:=52, CreateBackup:=False

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

Application.DisplayAlerts = True

ActiveWorkbook.Zapri



End Sub



Vendar je moja težava v tem, da bi rad shranil ime datoteke, ne da bi pustil presledek, če je vrednost celice na primer NULL, če je vrednost G6 prazna, potem želim izpis "G4-H7 VTERror".
Ali obstaja način za pristop k temu?


Hvala.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL