Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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 le (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 Economisez .


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

The Enregistrer sous La commande peut exporter toutes les données de la feuille de calcul active sous forme de texte. Que faire 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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Essai gratuit 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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! EN DIRECT


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 fonction Enregistrer sous peut être un peu fastidieuse! Ne t'en fais 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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Essai gratuit 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 Divisé .

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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! EN DIRECT

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 en tant que fichier .pdf, .txt ou .csv séparé 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. Essai gratuit complet de 30 jours!
ad split classeur pdf 1

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! EN DIRECT


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


Kutools pour Excel comprend plus de 300 outils pratiques pour Excel, gratuits à essayer sans limitation en 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    matrix26uk · 7 months ago
    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
  • To post as a guest, your comment is unpublished.
    Alan · 7 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Ali Cebeci · 1 years ago
    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?
  • To post as a guest, your comment is unpublished.
    luizfeijo · 2 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Christian · 1 years ago
      Has anyone been able to figure this out? I am having the same issue.
  • To post as a guest, your comment is unpublished.
    GILLOU · 3 years ago
    HELLO
    THANK YOU FOR YOUR VBA CODE
    SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
    THANK YOU FOR WHY
  • To post as a guest, your comment is unpublished.
    harish.kaundinya@gmail.com · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 4 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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.)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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 :)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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)
  • To post as a guest, your comment is unpublished.
    Vaishak · 5 years ago
    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...:-)
  • To post as a guest, your comment is unpublished.
    RAVAN · 5 years ago
    One of the best site where I find my queries.
  • To post as a guest, your comment is unpublished.
    Santiago · 5 years ago
    Someone knows how to do it for excel 2016 MAC?? ty
  • To post as a guest, your comment is unpublished.
    anne1993 · 6 years ago
    Hi!
    The cells I want to export as a text-file refer to other cells and contain if-codes. This means that when I export I don't get the number-values, but "N/A". Do you know how i can fix this?
    Thank you.
  • To post as a guest, your comment is unpublished.
    rick · 6 years ago
    i have problem after saving my .xls to .txt, size of the file getting bigger, from 500kb to 1,523kb how i fix it?
    thanks
  • To post as a guest, your comment is unpublished.
    Rodney · 7 years ago
    need to past data from excel to a notepad and then seperate data using a comma. how do i do this
    • To post as a guest, your comment is unpublished.
      Oscar Jacquez · 4 years ago
      you need to select "save as .csv file" (comma separated values)
  • To post as a guest, your comment is unpublished.
    amsarajan · 7 years ago
    really is it very usefull,thanku :D