Chaîne?

Code du meilleur score ! Comment utiliser vba pour récupérer tous les fichiers txt dans un dossier contenant

Sous t()

Dim fso, f, f1, fc, s, r

Const ForReading = 1, ForWriting = 2

Définir fso = CreateObject(＂Scripting.FileSystemObject＂)

'Set fc = fso.GetFile(WScript.ScriptFullName).ParentFolder.Files

Définissez fc = fso.GetFolder("c:windows").Files 'Remplacez c:windows par le dossier réel lorsque vous l'utilisez

L = 1

Pour chaque f1 en fc

EXTName = UCase(fso.GetExtensionName(f1.Name))

Si EXTName = "TXT" Alors

Définissez fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

Si InStr(1, fb, "apple") > 0 Alors

Cellules(L, 1) = f1.Nom

Cellules(L, 2) = f1.Path

L = L + 1

Fin si

Fin si

Suivant

Fin du sous-marin

Excel VBA lit le fichier txt et remplace 13 10 dans le txt par des nouvelles lignes

Étape 1 : Pour définir des macros, définissez d'abord la sécurité du complément sur moyenne ou faible

Étape 2 Insérez le module alt+f11 pour ouvrir l'éditeur VBA

Ouvrez le module "Insérer" de la barre de menu et ajoutez le code suivant

Sous DaoChu()

Dim I comme entier, J aussi long, RW aussi long

Pour I = 1 à ActiveSheet.UsedRange.Columns.Count

Ouvrez ThisWorkbook.Path & ＂＂ & Cells(1, I) & ＂.txt＂ pour une sortie en 1

Pour J = 2 To Cells(65536, I).End(3).Row

Imprimer #1, Cellules (J, I).Valeur

Suivant J

Fermer 1

Suivant I

MsgBox "Exportation des données terminée!", vbOKOnly, "Exportation réussie"

Fin du sous-marin

Étape 3. Après avoir enregistré, fermez EXCEL. Étape 4. Testez et rouvrez Excel. Appuyez sur ctrl+shift+P pour terminer l'exportation. Le fichier se trouve dans le répertoire racine du lecteur D

.

Si vous souhaitez le placer dans un autre répertoire, vous pouvez changer le D: dans Open "D:" & vers le répertoire souhaité, mais le répertoire ne peut pas contenir de caractères chinois.

VBA permet d'importer et de trier les données TXT en fonction des caractères spécifiés

Option 'Déclaration de variable obligatoire' explicite

Option Base 1 'Le tableau commence par 1

Sous-Formulaire Privé_Load()

Dim a(3, 5) As String, tmp As String 'Définir un tableau 3x5 et des variables temporaires

Dim i As Integer, j As Integer 'Définir des variables temporaires

Ouvrir＂C:Documents and SettingsAdministratorDesktopTest.txt＂Pour la saisie en tant que #1 'Ouvrez le fichier txt

Do While Not EOF(1) 'Lire ligne par ligne

Entrée de ligne n°1, tmp 'Enregistre la ligne actuelle dans tmp

i = i + 1 'i représente la ligne du tableau

Pour j = 1 To 5' j représente la colonne du tableau

a(i, j) = Split(tmp, "|")(j - 1) 'Coupez tmp en 5 segments à l'aide du symbole "|" et enregistrez-les dans les 5 colonnes de la i-ème ligne du tableau à mon tour

Suivant

Boucle

Fermer #1

MsgBox a(3, 5) 'Affiche les caractères de la ligne 3 et de la colonne 5

Fin du sous-marin

Comment ouvrir un fichier txt dans vba Excel et l'afficher dans une zone de texte ou le contenu de la zone de texte

Créez un nouveau classeur Excel, ouvrez l'éditeur VBA, insérez un formulaire utilisateur, placez une zone de texte et deux boutons de commande dans le formulaire, puis ouvrez la fenêtre de code du formulaire et collez le code suivant

Sous-CommandButton1_Click() privé

'Lisez un fichier texte codé ANSI et affichez-le dans la zone de texte

Avec Application.FileDialog(msoFileDialogOpen)

Si .Show Alors ipath = .SelectedItems(1)

Fin avec

Si ipath ＂＂ Alors

Ouvrez ipath pour la saisie en tant que #1

TextBox1.MultiLine = Vrai

TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)

Fermer #1

Fin si

Fin du sous-marin

Sous-CommandButton2_Click() privé

'Écrivez le contenu de la zone de texte dans un fichier texte et enregistrez le répertoire où se trouve le classeur actuel

arr = Split(TextBox1.Value, vbCrLf)

ipath = ThisWorkbook.Path & "＂" & Left(arr(0), 8) & ".txt＂

Ouvrez ipath pour la sortie en tant que #1

Pour i = 0 To UBound(arr)

Imprimer #1, arr(i)

Suivant

Fermer #1

MsgBox "Le contenu de la zone de texte a été enregistré !, Enregistrer le chemin :" & ipath

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!