Excel 2007 Macro VBA lire un fichier texte ligne par ligne comment puis-je arrêter de délimitation sur une virgule (,)
J'ai un simple Excel 2007 Macro qui est de lire un fichier texte ligne par ligne et affichage de la sortie.
Cette macro est la rupture sur des virgules. Je veux qu'il suffit de lire l'intégralité de coupure de ligne sur un carrage retour.
Ce que je fais mal?
Sub Directory()
Dim strFileName As String
Dim strDirectory As String
Dim intFileKey As Integer
Dim strLine As String
strDirectory = "C:\Documents and Settings\e1009028\My Documents\embosstest"
ChDir (strDirectory)
strFileName = Dir("*.txt")
Do While Len(strFileName) > 0
intFileKey = FreeFile
Open strFileName For Input As intFileKey
Do While Not EOF(intFileKey)
Input #intFileKey, strLine
MsgBox Mid(strLine, 1, 10)
Loop
strFileName = Dir
Loop
End Sub
Voici un exemple de fichier texte:
1 blahblahblabh
2 blah,blahblah
OriginalL'auteur codingguy3000 | 2011-04-18
Vous devez vous connecter pour publier un commentaire.
Pour une solution rapide, essayez d'utiliser Entrée de ligne au lieu de entrée.
Pour une solution plus moderne, jetez un oeil à FileSystemObject, en particulier OpenTextFile.
Merci, j'ai erré dans l'ici et trouvé votre "OpenTextFile" suggestion. J'ai copier/coller le code VBScript partie dans un Excel-Routine et cela a fonctionné comme un charme! L'Entrée de ligne de ne pas lire mes lignes correctement mais OpenTextFile ne...
OriginalL'auteur Anders Lindahl