Astuces Excel
  1. Astuces Excel
  3. vba – lire le file text, conserver les virgules
Intereting Posts
procédure externe non valide lors de l'utilisation de Dim Fonction VBA récursive Automatisation Excel VBA Internet Explorer pour créer un événement Google Calendar Disposer des colonnes de pivotement à l'aide de la macro d'logging Fusionner des cellules en double et combiner des valeurs dans d'autres colonnes Le classur varie en fonction de la string Comment append un contrôle de formulaire Checkbox dans excel en C # en utilisant openxml Importer csv en python et additionner la rangée de nombres Envoyer des keys au plugin Adobe Report-Builder lors de la sauvegarde du classur Excel MonthView multiselect Start et End date dans les cellules Sélectionner et passer à la feuille très précise ne fonctionne pas correctement Je reçois l'erreur de time d'exécution '13': Type de non-concordance login de Python à Excel 2016 (365) et exécution de tâches Série automatique dans Excel en utilisant la textbox dans VB.Net Excel: déclaration IF nestede si toutes les conditions sont vraies renvoyent toutes les valeurs réelles

vba – lire le file text, conserver les virgules

Comment lire un file text avec les virgules incluses? Par exemple:

Contenu du file Test.txt: 

item 1, item 2, item 3

VBA pour lire le file: 

 Sub readFile() Dim sFile As Ssortingng Dim sPath As Ssortingng sFile = "test.txt" sPath = ThisWorkbook.Path & "\" & sFile Dim s As Ssortingng Dim sFullStr As Ssortingng sFullStr = "" Open sPath For Input As #1 Do Until EOF(1) Input #1, s sFullStr = sFullStr + " " + s Loop Close #1 Debug.Print sFullStr End Sub

Sortie: 

 item 1 item 2 item 3

La sortie que je désire est le contenu du file text original avec des virgules inclus

Utilisez l' Line Input plutôt que simplement l' Input .

Cela lira une ligne à la fois; conservant ainsi les virgules.

En outre, vous devez utiliser la fonction FreeFile plutôt que hardcoding 1 comme la poignée de file.