300 Exemples

Lire les données d'un fichier texte

Read Data From Text File

Ci-dessous, nous examinerons un programme en Excel VBA cette lit les données d'un fichier texte . Ce fichier contient des coordonnées géographiques que nous souhaitons importer dans Excel.





Situation:

Lire les données d'un fichier texte à l'aide d'Excel VBA





1. Tout d'abord, téléchargez le fichier texte et ajoutez-le à 'C: est'

Placer un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :



2. Nous déclarons quatre variables. myFile de type String, text de type String, textline de type String, posLat de type Integer et posLong de type Integer.

comment copier des cellules dans Excel
Rienmon fichierComme Chaîne de caractères, texteComme Chaîne de caractères, ligne de texteComme Chaîne de caractères, posLatComme Entier, posLongComme Entier

3. Nous devons initialiser la variable myFile avec le chemin complet et le nom du fichier.

monFichier = 'C: estcoordonnées-géographiques.txt'

ou

utilisez la méthode GetOpenFilename de l'objet Application pour afficher la boîte de dialogue Ouvrir standard et sélectionnez le fichier (sans réellement ouvrir le fichier).

monFichier = Application.GetOpenFilename()

Remarque : la partie vide entre les crochets signifie que nous ne donnons rien à Excel VBA en entrée. Placez votre curseur sur GetOpenFilename dans Visual Basic Editor et cliquez sur F1 pour obtenir de l'aide sur les arguments.

4. Ajoutez la ligne de code suivante :

Ouvertmon fichierPour Saisir Comme#1

Remarque : cette instruction permet la lecture du fichier. Nous pouvons faire référence au fichier en tant que #1 pendant le reste de notre code.

5. Ajoutez les lignes de code suivantes :

Faire Jusqu'àFEO(1)
Ligne Saisir#1, ligne de texte
texte = texte et ligne de texte
Boucle

Remarque : jusqu'à la fin du fichier (EOF), Excel VBA lit une seule ligne du fichier et l'affecte à textline. Nous utilisons l'opérateur & pour concaténer (joindre) toutes les lignes simples et les stocker dans le texte variable.

6. Fermez le fichier.

proche#1

7. Ensuite, nous recherchons la position des mots latitude et longitude dans le texte variable. Nous utilisons le Instr fonction .

posLat = InStr (texte, 'latitude')
posLong = InStr(texte, 'longitude')

8. Nous utilisons ces positions et les Fonction intermédiaire pour extraire les coordonnées du texte variable et écrire les coordonnées dans les cellules A1 et A2.

Plage('A1').Valeur = Milieu(texte, posLat + 10, 5)
Range('A2').Valeur = Mid(text, posLong + 11, 5)

9. Testez le programme.

Résultat:

Lire les données du fichier texte Résultat

3/4 terminé ! En savoir plus sur l'objet application >
Aller au chapitre suivant : Contrôles ActiveX



^