Enregistrement d'un fichier Excel au format .txt sans guillemets

Question

J'ai une feuille Excel qui contient des données dans la colonne A. Il y a beaucoup de caractères spéciaux dans les cellules. Lorsque j'enregistre la feuille au format .txt, j'obtiens des guillemets inversés au début de chaque ligne. J'ai essayé d'enregistrer le fichier au format .txt à la fois manuellement et par macro. Comment les supprimer ? Je ne suis pas en mesure de supprimer le site citations. Joindre une image

Answer 1

J'ai le même problème : je dois créer un fichier .txt spécifique pour les paiements bancaires à partir d'un fichier Excel. Le fichier .txt ne doit être délimité par aucun caractère, car la norme exige un certain nombre de virgules après chaque champ obligatoire. La façon la plus simple de procéder est de copier le contenu du fichier Excel et de le coller dans le bloc-notes.

Answer 2

J'utilisais Write #1 "Print my Line" à la place j'ai essayé Print #1, "Print my Line" et cela me donne toutes les données sans Quote(") par défaut.

Dim strFile_Path As String
strFile_Path = ThisWorkbook.Path & "\" & "XXXX" & VBA.Format(VBA.Now, "dd-MMM-yyyy hh-mm") & ".txt"
Open strFile_Path For Output As #1

Dim selectedFeature As String

For counter = 7 To maxNumberOfColumn

        selectedFeature = "X"
        Print #1, selectedFeature
        'Write #1, selectedFeature

Next counter
Close #1

Answer 3

La solution PRN ne fonctionne que pour les données simples dans les cellules, pour moi, elle ne coupe que les 6 premiers signes d'une cellule de 200 caractères.

Ce sont les principaux formats de fichiers dans Excel 2007-2016, Note : Dans Excel pour le Mac, les valeurs sont +1.

51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls)

Desde Propriété XlFileFormat FileFormat

Gardez à l'esprit que d'autres FileFormatNumbers de Méthode SaveAs :

FileExtStr = ".csv": FileFormatNum = 6
FileExtStr = ".txt": FileFormatNum = -4158
FileExtStr = ".prn": FileFormatNum = 36