Comment enregistrer un fichier Excel au format CSV, de sorte que pas de guillemets sont contenues dans le fichier exporté?

Ok, donc je veux avoir une macro dans Excel 2003, qui vous permet d'enregistrer la feuille de calcul .fichier txt. J'ai déjà eu ça avec le code suivant:

Dim filename As String
Dim path As String
filename = InputBox("Please enter file name", "Save as CSV", "CSV_" & Format(Now, "DD_MM_yyyy"))
path = "C:\Temp" & filename & ".txt"

ActiveWorkbook.SaveAs filename:=path, FileFormat:=xlTextMSDOS, CreateBackup:=False

Mais maintenant le problème: Dans ma feuille il y a quelques cellules qui contiennent une virgule. Si j'utilise la macro ci-dessus, le fichier est enregistré au format CSV, mais les cellules contenant une virgule ont des guillemets autour d'eux. Je ne veux pas que.
Si j'ai enregistrer le fichier manuellement via Fichier -> Enregistrer sous -> format CSV/TXT, le fichier résultant ne contient pas ces guillemets.

Personne ne sait comment résoudre ce problème?

Merci beaucoup!

Edit: j'ai oublié de dire que, lors de l'enregistrement manuellement, je sélectionne l'onglet Texte séparées, et non pas séparées des virgules.

  • Je doute fortement qu'une sauvegarde manuelle ne contient pas de guillemets. Comment voyez-vous le fichier qui en résulte?
  • Je consulte le fichier dans le bloc-notes Windows. Veuillez aussi voir mon edit au dessus; je veux les fichiers à onglet séparées, pas séparées des virgules. Peut-être xlTextMSDOS est le problème ici?
InformationsquelleAutor Alex | 2012-08-21
  1. 0

    C'est impossible (en quelque sorte).

    Un champ qui contient le séparateur doit être placé entre guillemets. Sinon, ce domaine ne peut être "déchiré en deux" par le séparateur.

    La seule solution est d'utiliser un autre séparateur, par exemple, les onglets (en réalité, une modification à un fichier TSV), ce qui bien sûr ne fonctionne que si ce nouveau délimiteur ne se produit pas dans les données.

    • Je suis désolé, que j'ai oublié un fait important lors de la première de poser ma question; s'il vous plaît voir mon montage ci-dessus. Je ne veux pas utiliser la virgule comme séparateur, mais à la place des onglets.
    InformationsquelleAutor Tim Pietzcker
  2. 0

    Si aucun des SaveAs formats de travailler pour vous, écrivez votre analyseur, par exemple,

    Sub SaveFile()
    Dim rng As Range
    Dim rw As Range
    Dim ln As Variant

    ' Set rng to yout data range, eg
    Set rng = ActiveSheet.UsedRange

    Open "C:\Temp\TESTFILE.txt" For Output As #1    ' Open file for output.
    For Each rw In rng.Rows
        ln = Join(Application.Transpose(Application.Transpose(rw)), vbTab)
        Print #1, ln; vbNewLine;
    Next
    Close #1
End Sub
    InformationsquelleAutor chris neilsen