Ugrás a tartalomra

Hogyan exportálhat több oszlopot egyedi szövegfájlokba az Excel programban?

Normál esetben a Mentés másként funkció segítségével gyorsan és egyszerűen exportálhat munkalapot txt fájlba az Excel programban. De próbált már valaha minden oszlopadatot külön Excel fájlból menteni szövegfájlba? Ez a cikk arról fog beszélni, hogyan lehet ezt a munkát a lehető leggyorsabban megoldani.

Exportáljon több oszlopot egyedi szövegfájlokba VBA kóddal

Exportáljon több munkalapot egyedi szöveges / pdf / csv fájlokba a Kutools for Excel segítségével


Exportáljon több oszlopot egyedi szövegfájlokba VBA kóddal

A következő VBA-kód segíthet az egyes oszlopadatok szöveges fájlba történő mentésében az Excelben, 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ő makrót a Modulok Ablak.

VBA kód: Több oszlop exportálása egyedi szövegfájlokba:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és a böngésző megjelenik a párbeszédpanel, majd válasszon egy mappát az exportált szövegfájlok elhelyezéséhez, lásd a képernyőképet:

doc exportálja az oszlopokat a txts 1-be

4. Ezután kattintson OK gombra, és az aktív munkalap minden oszlopadata külön-külön került exportálásra a szövegfájlba, lásd a képernyőképet:

doc exportálja az oszlopokat a txts 2-be


Exportáljon több munkalapot egyedi szöveges / pdf / csv fájlokba a Kutools for Excel segítségével

Ha több munkalapot kell exportálnia egyedi szöveges, pdf vagy csv fájlokba, akkor a Kutools az Excel számára'S Felosztott munkafüzet funkció tehet egy szívességet.

Megjegyzések:Ennek alkalmazásához Felosztott munkafüzet, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools for Excel, kérjük, tegye a következő lépéseket:

1. Kattints Kutools Plus > Munkafüzet > Felosztott munkafüzet, lásd a képernyőképet:

doc exportálja az oszlopokat a txts 3-be

2. Az Felosztott munkafüzet párbeszédpanelen ellenőrizze a txt, pdf, csv fájlként menteni kívánt munkalapokat, majd ellenőrizze Mentés típus opciót, majd válassza ki a menteni kívánt fájltípust, majd kattintson a gombra Hasított gombot Tallózás a mappába párbeszédpanelen válasszon egy mappát az exportált fájlok elhelyezéséhez, lásd a képernyőképet:

doc exportálja az oszlopokat a txts 4-be

3. Ezután kattintson OK gombra, és a kiválasztott munkalapok exportálva lettek az adott fájlformátumba, amire szüksége van, lásd a képernyőképet:

doc exportálja az oszlopokat a txts 5-be

Kattintson a letöltéshez és a Kutools for Excel ingyenes próbaverziójához most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz 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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great code. Worked like a charm.
Can you tweak this code to not include first raw?
This comment was minimized by the moderator on the site
Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
This comment was minimized by the moderator on the site
Great, you made my day with the code to export multiple columns into individual text files! Many thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations