Passer au contenu principal

Comment exporter des données Excel (sélection ou feuilles) vers des fichiers texte dans Excel?

Si vous devez fournir un classeur au format de fichier texte, vous devez convertir le classeur en fichiers texte. Et cet article vous présentera deux méthodes pour exporter facilement des données Excel dans des fichiers texte.

Exporter une seule feuille dans un fichier texte dans Excel

Par défaut, les données Excel seront enregistrées en tant que classeurs au format . Xlsx. Cependant, nous pouvons exporter une feuille de calcul d'un classeur existant sous forme de fichiers texte avec le Enregistrer sous fonctionnalité. Veuillez procéder comme suit:

1. Passez à la feuille de calcul que vous exporterez vers un fichier texte et cliquez sur Déposez votre dernière attestation (ou Bouton Office)> Enregistrer sous.

2. Dans l'ouverture Enregistrer sous boîte de dialogue, sélectionnez le dossier de destination dans lequel vous allez enregistrer le fichier texte exporté, nommez le fichier dans le Nom du fichier , puis sélectionnez le Texte Unicode (* .txt) du Enregistrer en tant que type de la liste déroulante. Voir la capture d'écran:
exporter vers un fichier texte avec la fonction Enregistrer sous

3. Ensuite, il apparaîtra deux boîtes de dialogue d'avertissement vous demandant d'exporter uniquement la feuille de calcul active en tant que fichier texte et d'omettre toutes les fonctionnalités incompatibles avec le fichier texte. Cliquez sur OK touche et Oui bouton successivement.

Ensuite, les données de la feuille de calcul active sont exportées en tant que nouveau fichier texte.

Notes: la Enregistrer sous La commande ne peut exporter les données de la feuille de calcul active que sous forme de fichier texte. Si vous souhaitez exporter toutes les données de l'ensemble du classeur, vous devez enregistrer chaque feuille de calcul en tant que fichier texte individuellement.


Exporter la sélection (ou une colonne) vers un fichier texte avec VBA

Le code VBA suivant peut également vous aider à exporter les données de plage sélectionnées (par exemple une colonne) vers le fichier texte, procédez comme suit:

1. Maintenez la touche ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans la fenêtre Module.

VBA: exporter la sélection ou la feuille de calcul entière vers un fichier texte

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code. Et puis sélectionnez la plage de données que vous souhaitez exporter dans la boîte de dialogue contextuelle, puis cliquez sur le OK bouton, voir capture d'écran:
Sélectionnez une colonne à exporter en tant que fichier texte

4. Et maintenant, dans une autre boîte de dialogue Enregistrer sous, spécifiez un nom pour ce fichier texte et un dossier dans lequel placer ce fichier, puis cliquez sur le bouton Épargnez .


Exporter la sélection (ou une colonne) vers un fichier texte avec Kutools for Excel

La Enregistrer sous La commande peut exporter toutes les données de la feuille de calcul active sous forme de texte. Que se passe-t-il si vous exportez toutes les données des feuilles de calcul inactives spécifiées ou une partie des données d'une feuille de calcul sous forme de fichier texte ? Kutools pour Excel's Exporter la plage vers un fichier L'utilitaire peut nous aider à exporter et à enregistrer facilement les données de la sélection sous forme de fichier texte.  

Kutools for Excel - Emballé avec plus de 300 outils essentiels pour Excel. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Télécharger maintenant!

1. Sélectionnez le rang que vous allez exporter vers un fichier texte (dans notre cas, nous sélectionnons la colonne A), et cliquez sur Kutools Plus > Import / Export > Exporter la plage vers un fichier, voir capture d'écran:
Complément Excel: exporter la sélection vers un fichier texte

2. Dans le Exporter la plage vers un fichier boîte de dialogue, faites comme ci-dessous la capture d'écran montrée:
Complément Excel: exporter la sélection vers un fichier texte
(1) Vérifiez le Texte Unicode option dans la Format de fichier section;
(2) Cochez l'option Enregistrer les valeurs réelles ou Enregistrer les valeurs comme indiqué à l'écran selon vos besoins dans la section Options de texte;
(3) Spécifiez le dossier de destination dans lequel vous allez enregistrer le fichier texte exporté;
(4) Cliquez sur le Ok .

3. Nommez le fichier texte exporté dans la nouvelle boîte de dialogue d'ouverture, puis cliquez sur le bouton Ok .
nommer le fichier texte exporté

Ensuite, la sélection (colonne A sélectionnée) a été exportée sous forme de fichier texte et enregistrée dans le dossier spécifié.

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant


Exporter plusieurs feuilles vers des fichiers texte séparés dans Excel

Parfois, vous devrez peut-être exporter plusieurs feuilles de calcul vers plusieurs fichiers texte dans Excel. La fonctionnalité Enregistrer sous peut être un peu fastidieuse ! Ne t'inquiète pas! Kutools pour Excel Classeur fractionné L'utilitaire fournit aux utilisateurs d'Excel une solution de contournement simple pour exporter plusieurs feuilles de calcul vers de nombreux fichiers texte séparés en plusieurs clics. 

Kutools for Excel - Emballé avec plus de 300 outils essentiels pour Excel. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Télécharger maintenant!

1. Cliquez Kutools Plus > ClasseurClasseur fractionné. Voir la capture d'écran:
Complément Excel: exporter plusieurs feuilles vers des fichiers texte

2. Dans la boîte de dialogue d'ouverture du classeur fractionné, procédez comme suit:
Complément Excel: exporter plusieurs feuilles vers des fichiers texte
(1) Vérifiez les feuilles de calcul que vous allez exporter vers des fichiers texte séparés dans le Nom du classeur section;
(2) Vérifiez le Spécifiez le format d'enregistrement option, puis sélectionnez Texte Unicode (* .txt) dans la liste déroulante ci-dessous, voir capture d'écran à gauche:
(3) Cliquez sur le Diviser .

3. Et puis dans la boîte de dialogue contextuelle Rechercher un dossier, sélectionnez le dossier de destination dans lequel vous allez enregistrer les fichiers texte exportés, puis cliquez sur le bouton OK .

Jusqu'à présent, chaque feuille de calcul spécifiée a été exportée en tant que fichier texte séparé et enregistrée dans le dossier spécifié.

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant

Enregistrez facilement en masse chaque feuille en tant que fichier PDF / texte / csv séparé ou classeur dans Excel

Normalement, nous pouvons enregistrer la feuille de calcul active sous forme de fichier .pdf, de fichier .txt ou de fichier .csv distinct avec la fonction Enregistrer sous. Mais Kutools pour Excel Classeur fractionné L'utilitaire peut vous aider à enregistrer facilement chaque classeur en tant que fichier PDF / TEXT / CSV séparé ou classeur dans Excel.


ad split classeur pdf 1

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant


Démo: exporter des données Excel (sélection ou feuilles) vers des fichiers texte dans Excel


Kutools for Excel: Plus de 300 outils pratiques à portée de main ! Commencez dès aujourd’hui votre essai gratuit de 30 jours sans limitation de fonctionnalités. Télécharger maintenant!

Articles connexes:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations