Astuces Excel
  1. Astuces Excel
  3. Trouver du text dans Fichier, copyr et coller dans des cellules Excel VBA
Intereting Posts
Lire et travailler avec des strings de plus de 255 avec ADODB Excel 2010 VBA Copier datetime value de csv en excel en utilisant macro Puis-je conserver le formatting d'un model Excel VBA Excel: déplacement d'erreur de macro de données sur les feuilles protégées Affectation d'une list de strings à des valeurs spécifiques en fonction de leurs sous-strings Microsoft Office Excel ne peut pas accéder au file sur IIS Réinitialisation de la cellule dans Microsoft Excell Excel combinant les numbers et la fonction gauche Copier une variable Échelle d'un simple à un autre dans VBA J'ai une gamme Alphanumérique. et j'ai un nombre qui finda dans cette gamme Envoyer un courrier électronique Outlook à l'aide de text dans une textbox Excel – Erreur 424: object requirejs Obtenir une reference (lien url) à partir d'une autre cellule? Comment extraire des valeurs de cellules Excel délimitées par des filters? Comment écrire un script VB pour find plusieurs mots-keys dans toutes les cellules et mettre en surbrillance chaque mot-key? Mettre à jour le tableau SSMS à partir de la source Excel sans supprimer et reimporter

Trouver du text dans Fichier, copyr et coller dans des cellules Excel VBA

Je suis en train d'écrire un code dans VBA pour examiner un file pour les caractères que les inputs insert dans la macro, après que la macro trouve les caractères fournis par l'user, je souhaite qu'il extraie cette ligne entière et la dépasse dans une feuille en excel par en prenant les premiers caractères et en les plaçant dans la cellule 1a, puis en prenant le prochain set de caractères qui sont séparés par un espace dans le text et en les plaçant dans une autre cellule, voici ce que j'ai jusqu'ici et je veux replace la ligne 17 par l'extraction de Les données; 

Dim oFSO As Object Dim arrData() As Ssortingng Sub test() Dim f As Integer Dim IngLine As Long Dim strLine As Ssortingng Dim bInFound As Boolean f = FreeFile Tfile = "C:\TAXETI.TXT" staffdat = InputBox(Prompt:=" Please enter the staff number", Title:="Load Staff Data") Open Tfile For Input As #f Do While Not EOF(f) IngLine = IngLine + 1 Line Input #f, strLine If InStr(1, strLine, staffdat, vbBinaryCompare) > 0 Then MsgBox "Search ssortingng found in line" & IngLine, vbInformation bInFound = True Exit Do End If Loop Close #f If Not bInFound Then MsgBox "Search ssortingng not found", vbInformation End If End Sub

Je vous suggère de regarder la fonction Split ().

Référence MSDN

Un autre exemple

Je pense que votre code se terminerait comme suit dans le n ° 17 (Vous devriez soit couper / déterminer où "tokeniser" votre ligne, selon ce que ressemble votre file d'input): 

 If InStr(1, strLine, staffdat, vbBinaryCompare) > 0 Then foundArr = Split(strLine, " ")'change " " to whatever fits your needs For i = LBound(foundArr) to UBound(foundArr) 'enter each ssortingng into a cell, etc Next i