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:
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:
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.
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:
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:
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:
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
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...
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!