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

Hogyan mentse az Excel fájlt cellaértékkel?

Ha munkafüzetet használ, gondolt már arra, hogy az Excel fájlt cellatartalom alapján menti? Például az A1 cellában szerepel az „Eladási ár”, és el szeretné menteni a munkafüzetet Eladási ár néven. Természetesen beírhatja a nevet a Mentés másként párbeszédpanelbe, majd elmentheti. De ez nem hatékony módszer a munkája mennyiségében. Ma egy gyors trükkről fogok beszélni annak megoldására.

Mentse az Excel fájlt egy adott cellaértékkel a VBA kód használatával

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Mentse az Excel fájlt egy adott cellaértékkel a VBA kód használatával

A következő VBA-kód segíthet a munkafüzet megadott cellaértékkel történő mentésében, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Excel-fájl mentése adott cellaértékkel

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. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, és a munkafüzetet az A1 cella cellatartalmának nevezték el. Lásd a képernyőképet:

doc-save-with-cell-value-1

Megjegyzések:

1. Bármely cellaértéket megadhat fájlnévként, ha csak módosítja az A1 kódot a fenti kód másik cellahivatkozására.

2. Az aktív munkafüzetet a rendszer mappájába menti C: \ Users \ dt \ Desktop \ my information \ (az utolsó perjelnek meg kell maradnia, amikor a helyét beilleszti a helyébe) helyét, megváltoztathatja az igényhez vezető utat.


Kapcsolódó cikkek:

Hogyan menthetünk dátumot és időpontot tartalmazó fájlt az Excel programba?

Hogyan jelenítse meg a fájl elérési útját az Excel címsorában vagy eszköztárában?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (33)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
a modul nem menti .XlsX formátumba; úgy gondolja, hogy valami köze van a 7. sorhoz;; ".xls", FileFormat:=xlNormal; Illetve hogyan módosíthatom úgy, hogy az értéket 3 különböző cellából vegyem össze? például: keresztnév , vezetéknév , dátum; a kód 6. sorában?
A weboldal moderátora ezt a megjegyzést minimalizálta
Dim fájlnév As String
Dim filename1 As String
Dim filename2 As String

Elérési út = "C:\Users\dt\Desktop\saját információ\"
fájlnév = Tartomány("A1")
fájlnév1 = Tartomány("A2")
fájlnév2 = Tartomány("A3")
ActiveWorkbook.SaveAs filename:=Elérési út és fájlnév & "-" & fájlnév1 & "-" & fájlnév2 ".xls", FileFormat:=xlNormál
A weboldal moderátora ezt a megjegyzést minimalizálta
Chris. Összefűzheti egy külön cellában, majd hivatkozhat erre a cellára a fájlnév értékének.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, az enyém csak elérési útként és fájlnévként menti el. Csak azt szeretném, ha a cellában hivatkozott fájlnév menthető lenne. Tudna nekem segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyon klassz... de úgy tűnik, van egy hiba, amit nem tudom, hogyan kell kijavítani. Ezt egy makróképes sablonban használom. Megnyitom a sablont, végrehajtok módosításokat/frissítéseket, lenyomom az F5 billentyűt a makró futtatásához... és... egy "Ugrás" párbeszédpanel jelenik meg, amely azt várja, hogy írjak be egy "hivatkozást". Ha azonban megnyomom az ALT-t F11, majd nyomja meg az F5 billentyűt, az új .xls fájl a vártnak megfelelően mentésre kerül. Mindig meg kell nyitnom a Visual Basic modult a "mentési" eljárás futtatásához?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy sablonom, amit nem akarok átírni, hogy a felhasználónak el kell mentenie az egyik mezőbe beírt dátum szerint elnevezett fájlt. Nem szeretném, ha a felhasználónak meg kell nyitnia az eszközöket, majd ki kell választania / futtatnia kell a makrót. Ugyanúgy megadhatják a fájlnevet.
A weboldal moderátora ezt a megjegyzést minimalizálta
hozzáadhatja a =NOW() paramétert a fájlnévhez a cellában, mielőtt kibontja a Makróban (és elhelyezhet egy szabványos gombot az oldal sarkában, hogy a munkavállalónak ne kelljen megnyitnia semmilyen eszközt
A weboldal moderátora ezt a megjegyzést minimalizálta
Ti életmentők vagytok. Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
.csv fájlként kell mentenem. hogyan módosíthatnám ezt, hogy .csv fájlként mentse el? Private Sub filename_cellvalue() 'Frissítés: 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs fájlnév:=Elérési út és xl fájlnév & ". ", FileFormat:=xlNormal End Sub Köszönöm előre is a segítséget!
A weboldal moderátora ezt a megjegyzést minimalizálta
Azt hiszem valamit rosszul csináltam itt...

Hibát ad a Sheets("shitname") sorban. Válassza ki

Valószínűleg valamit rosszul csináltam, amikor elneveztem a "szar nevet", például a K10-es cellát

le akarom cserélni a lapot egy másik lapra, aminek a neve pontosan olyan, mint a K10 cella


' gicsel Makró
'
Billentyűparancs: Ctrl+Shift+C
'
Selection.Copy
Lapok("debagat").Válasszon
Sorok("8:8"). Válassza a lehetőséget
ActiveSheet.Paste
Dim Path As String
Elérési út = "C:\cgxml\"
Dim fájlnév As String
fájlnév = Tartomány("A8")
Dim shitname As String
szarnév = Tartomány ("K10")
Sheets("szarnév").Válasszon
Application.CutCopyMode = Hamis
ActiveWorkbook.SaveAs filename:=Elérési út és fájlnév & ".xml", FileFormat:=xltxt, CreateBackup:=False
Lapok("TOTAL").Válasszon
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remekül működik... Köszönöm, de el kell mentenem PDF formátumban... Van ötlete?

Kösz

chris
A weboldal moderátora ezt a megjegyzést minimalizálta
ugyanaz, mint fent, de cserélje ki az ActiveWorkbook.SaveAs fájlt a következőre: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filename.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=Igaz, IgnorePrintAreas:=Hamis, _
OpenAfterPublish:=Igaz
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm visszajelzését, sokat segített.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Mit kell hozzáadnom, ha el szeretném menteni az aktív munkalapot, de az 1. munkalap cellaértékét használom?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, segítsen... mindent sikerült megcsinálnom. De a dokumentumokat a Saját dokumentumokba menti a megadott szerver helyett...



Privát Sub CommandButton1_Click ()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
Dim FileName5 As String
Elérési út = "J:\Protection Services\Documents\Booysendal security"
Fájlnév1 = Tartomány("A2")
Fájlnév2 = Tartomány("B2")
Fájlnév3 = Tartomány("C2")
Fájlnév4 = Tartomány("D2")
Fájlnév5 = Tartomány("E2")
ActiveWorkbook.SaveAs Filename:=Fájlnév1 & "-" & Fájlnév2 & "-" & Fájlnév3 & "-" & Fájlnév4 & "-" & Fájlnév5 & ".xls", FileFormat:=xlNormál
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Tegyen egy fordított törtvonalat a biztonság után és az idézet elé... ...biztonság\"
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi a teendő, ha csak a fájlnevet szeretné megadni, de minden mentéskor lehetősége van kiválasztani a fájl elérési útját?

Több cellát is megadhat a fájlnévhez. A cellák is egyesülnek.

Minden alkalommal más fájl elérési útra mentse

Használjon több cellát a fájlnévhez
A weboldal moderátora ezt a megjegyzést minimalizálta
Rendben, így jól működött a lapbetöltés gomb segítségével. Most szeretném, ha a kezdeti másként mentés után a szokásos módon mentené. Meg lehet ezt tenni? Ugyanazt a mentési gombot használod?
Köszönöm Bruce-nek
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan hozzunk létre makrót több munkalap mentéséhez, a cellaértékekkel együtt fájlnévként
Köszönöm,
Rajiv
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok!

Hogyan menthető el az ismétlődő bevitel ugyanazon cellákba, más cellákba egy makróval?

Az 1-es lapon A1, B1, C1-ben írok be adatokat, egy napon belül n-szer. A 2. lapon el kell mentenem ezeket a rekordokat, A2, B2, C2, A3, B3, C3 stb. Tnx!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hi friends,
Van egy problémám, és örülnék, ha lenne valaki, aki segítene
Van egy fájl az „F” meghajtón és az „ABS” mappában – a fájlnevem „Listdata”
Az asztalomon lévő Excel fájlban azt szeretném, hogy a cellák (4,4) lekérjék az adatokat az "ABS" lapról (1) és a celláról (2,2)
Az alábbi kód
Sub Macro1 ()
activesheet.Cells(4, 4).Érték = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Érték
End Sub
de nem működik megfelelően
Köszönöm, barátaim
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Próbálom használni ezt a kódot, de amikor megpróbálom végrehajtani, futásidejű 1004-es hibaüzenetet kapok, és a 7. sort érvénytelenként emeli ki: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Hogyan tudom ezt megoldani? Office 365-öt használok
A weboldal moderátora ezt a megjegyzést minimalizálta
Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia. Nagyon izgatott vagyok, hogy működhet, de nekem azt írja, hogy "ALAPVETŐ futásidejű hiba. Sob-procedure or function eljárás nincs definiálva." és a nyíl jelzi a 6. sort. Mit tegyek?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy vezérlőgombom, amellyel PDF-ként menthetek egy adott névvel egy adott helyre, de módosítani szeretném a kódot, mivel a fájlnév az aktív lap neve plusz egy adott cella értéke egy másik lapról. Hogyan csináljam? Ez az, amit PDF-ként menthetek:


Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
fájlnév:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Hamis
Application.ScreenUpdating = Igaz
End Sub

Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
tudna valaki segíteni a megoldásban, sikerült helyesen megkapnom a kimenetet, ha a cella nem üres

Privát Sub Saveas()

Fájl útvonala karakterláncként

Dim filename1 As String



elérési út = "C:\User\Compwork\"



fájlnév1 = elérési út & Tartomány("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTERror "

Application.DisplayAlerts = Hamis

ActiveWorkbook.Saveas fájlnév1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("jelentés").ExportAsFixedFormat Type:=x1typePDF, Fájlnév:=fájlnév1

Application.DisplayAlerts = Igaz

ActiveWorkbook.Close



End Sub



A problémám azonban az, hogy szeretnék elmenteni egy fájlnevet szóköz elhagyása nélkül, ha például a cella értéke NULL, ha a G6 érték üres, akkor tetszik a "G4-H7 VTERror" kimenet.
Van valami mód ennek a megközelítésére?


Kösz.
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi