Hur exporterar man varje kolumn i Excel till individuella textfiler?

I Excel är det enkelt att exportera ett helt kalkylblad till en textfil med funktionen Spara som. Men om du behöver spara varje kolumn som en separat textfil, kräver processen några ytterligare steg. Den här guiden visar dig hur du effektivt exporterar varje kolumn individuellt med VBA-kod, eller alternativt hur du sparar flera kalkylblad som individuella text-, PDF- eller CSV-filer med hjälp av Kutools för Excel.

Exportera varje kolumn till individuella textfiler med VBA-kod

Exportera flera kalkylblad till enskilda text / pdf / csv-filer med Kutools för Excel

Exportera varje kolumn till individuella textfiler med VBA-kod

Följande VBA-kod kan hjälpa dig att spara varje kolumns data som en individuell textfil i Excel. Följ dessa steg:

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 varje kolumn till individuella 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: