Hur exporterar jag flera kolumner till enskilda textfiler i Excel?
Normalt kan du exportera ett kalkylblad till txt-fil i Excel snabbt och enkelt med hjälp av funktionen Spara som. Men har du någonsin försökt spara varje kolumndata i textfil individuellt från ett Excel-kalkylblad? Den här artikeln kommer jag att prata om hur man löser detta jobb så snabbt som möjligt.
Exportera flera kolumner till enskilda textfiler med VBA-kod
Exportera flera kalkylblad till enskilda text / pdf / csv-filer med Kutools för Excel
Exportera flera kolumner till enskilda textfiler med VBA-kod
Följande VBA-kod kan hjälpa dig att spara varje kolumndata i textfilen individuellt i Excel, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.
VBA-kod: Exportera flera kolumner till enskilda textfiler:
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. När du har klistrat in koden, tryck F5 nyckel för att köra den här koden och en webbläsare dialogrutan visas och välj sedan en mapp för att lägga dina exporterade textfiler, se skärmdump:
4. Klicka sedan OK -knappen, och varje kolumndata i det aktiva kalkylbladet har exporterats till textfil separat, se skärmdump:
Exportera flera kalkylblad till enskilda text / pdf / csv-filer med Kutools för Excel
Om du behöver exportera flera kalkylblad till enskilda text-, pdf- eller csv-filer, kommer Kutools för ExcelÄr Dela arbetsbok funktionen kan göra dig en tjänst.
När du har installerat Kutools för Excel, gör med följande steg:
1. Klicka Kutools Plus > Arbetsbok > Dela arbetsbok, se skärmdump:
2. I Dela arbetsbok dialogrutan, kolla de kalkylblad som du vill spara som txt-, pdf-, csv-filer och kontrollera sedan Spara som välj sedan den filtyp som du vill spara som och klicka sedan på Split på den visas Bläddra för mapp dialogruta, välj en mapp för att placera de exporterade filerna, se skärmdump:
3. Klicka sedan OK -knappen, och dina valda kalkylblad har exporterats till det specifika filformatet som du behöver, se skärmdump:
Klicka för att ladda ner och prova gratis Kutools för Excel nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!