Como exportar várias colunas em arquivos de texto individuais no Excel?
Normalmente, você pode exportar uma planilha para um arquivo txt no Excel de forma rápida e fácil usando a função Salvar como. Mas, você já tentou salvar os dados de cada coluna em um arquivo de texto individualmente de uma planilha do Excel? Neste artigo, vou falar sobre como resolver esse trabalho o mais rápido possível.
Exporte várias colunas em arquivos de texto individuais com código VBA
Exporte várias planilhas para arquivos de texto/pdf/csv individuais com o Kutools para Excel
Exporte várias colunas em arquivos de texto individuais com código VBA
O seguinte código VBA pode ajudá-lo a salvar os dados de cada coluna em um arquivo de texto individualmente no Excel, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.
Código VBA: exporte várias colunas em arquivos de texto individuais:
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. Depois de colar o código, pressione F5 chave para executar este código, e um Navegador caixa de diálogo é exibida, em seguida, escolha uma pasta para colocar seus arquivos de texto exportados, consulte a captura de tela:
4. Então clique OK botão, e os dados de cada coluna na planilha ativa foram exportados para um arquivo de texto individualmente, veja a captura de tela:
Exporte várias planilhas para arquivos de texto/pdf/csv individuais com o Kutools para Excel
Se você precisar exportar várias planilhas em arquivos individuais de texto, pdf ou csv, o Kutools for Excel'S Dividir a pasta de trabalho recurso pode lhe fazer um favor.
Depois de instalar Kutools para Excel, siga os seguintes passos:
1. Clique Kutools Plus > livro > Dividir a pasta de trabalho, veja a captura de tela:
2. No Dividir a pasta de trabalho caixa de diálogo, marque as planilhas que deseja salvar como arquivos txt, pdf, csv e, em seguida, marque Salvar como tipo opção, selecione o tipo de arquivo que deseja salvar e clique em Split botão, no display Procurar pasta caixa de diálogo, escolha uma pasta para colocar os arquivos exportados, veja a imagem:
3. Então clique OK botão, e suas planilhas selecionadas foram exportadas para o formato de arquivo específico individual conforme necessário, consulte a captura de tela:
Clique para baixar e testar gratuitamente o Kutools for Excel agora!
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!