VBA Excel copie de texte fichier de feuille de calcul

Je suis en train de tirer des statistiques d'une colonne spécifique dans un fichier texte et j'ai pensé que la meilleure façon de le faire pourrait être de copier tout le contenu du fichier texte dans une feuille de calcul excel et de compter à partir de là (sinon je serais besoin d'essayer de lire seulement une ligne directement à partir du fichier excel). Voici le code de ce que j'ai à ce jour:

Dim filePath As String
Dim currentValue As String
Dim iRow As Long
Dim iCol As Long
Dim badAddress As Long
Dim coverageNoListing As Long
Dim activeListing As Long
Dim noCoverageNoListing As Long
Dim inactiveListing As Long
Dim fso As Object
Dim f As Object

'' filePath would include entire file name (picked from a browser button)
filePath = ActiveSheet.Range("B2").Text

'' Makes sure there isn't a sheet named "Temp_Text_File"
For Each testSheet In ActiveWorkbook.Worksheets
    If testSheet.Name Like "Temp_Text_File" Then flag = True: Exit For
Next

'' If there is a sheet named "Temp_Text_File" it will be deleted
If flag = True Then
    Application.DisplayAlerts = False
    ActiveWorkbook.Sheets("Temp_Text_File").Delete
    Application.DisplayAlerts = True
End If

'' Recreate sheet
Sheets.Add.Name = "Temp_Text_File"
'' Here I would want to copy everything (similar to manually doing "Ctrl+A" then "Ctrl+C") from the text file

'' Then paste into worksheet (similar to manually doing "Ctrl+V") within this created worksheet range("A1")

'' Delete at the end (user has no need for it)
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Temp_Text_File").Delete
Application.DisplayAlerts = True

Merci,

Jesse Smothermon

OriginalL'auteur Jesse Smothermon | 2011-04-29

  1. 3

    Je suis en train de faire quelque chose de similaire, voici mes sous pour cela:

    - Je ouvrir un fichier txt avec | comme séparateur. Puis copier le contenu de la feuille de mon classeur de destination (variable globale). Puis-je fermer le premier classeur qui contient le fichier txt sans enregistrer.

    Le code pour les Classeurs.OpenText est essentiellement à partir de l'enregistrement d'une macro et de l'adapter à mes besoins.

    Sub ImportTextFile(path As String)
    Dim SheetName As String
    Dim TMPWorkBook As Workbook
    Dim FilePath As String
    Dim TxtFilePath As String
    Dim TxtFileName As String

    Set WB = ThisWorkbook

    SheetName = "Test_Result"
    TxtFileName = path & "file.txt"

    Workbooks.OpenText FileName:= _
        TxtFileName _
        , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), DecimalSeparator:=".", ThousandsSeparator:=",", _
        TrailingMinusNumbers:=True

    Set TMPWorkBook = ActiveWorkbook
    TMPWorkBook.Sheets("file").Select
    Cells.Select
    Selection.Copy

    ResultWB.Activate

    ResultWB.Sheets(SheetName).Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveSheet.Range("A1").Select
    TMPWorkBook.Close savechanges:=False

End Sub
    Bien totalement, je vois à la fois le copier et le coller que j'ai fait et votre code est probablement mieux c'est, car d'autres personnes à l'aide de ceux-ci peuvent modifier le code légèrement pour répondre à leurs besoins mieux que ce qu'ils pourraient le faire avec la mienne. Merci pour la réponse

    OriginalL'auteur stema

  2. 1

    J'ai trouvé un bout de code qui fait la copie et il semble être correct (testé uniquement une fois, désolé)

    Désolé pour l'affichage de cette question, il était juste que le code que j'ai trouver ne fonctionnait pas correctement, mais j'ai été en mesure de le comprendre.

    '' The sheet is added here
Sheets.Add.Name = "Temp_Text_File"
'' Going through the code I think when you add a sheet it's automatically targetted, but this is a precaution -- makes "Temp_Text_File" the active sheet
ActiveWorkbook.Sheets("Temp_Text_File").Activate
'' Next three lines open and copy text file (not physically opened.... just opened to read)
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFile(filePath)
f.Copy (filePath)
'' This paste method will start at range "A1"
ActiveSheet.Paste

    Merci,

    Jesse Smothermon

    Si le contenu de votre fichier txt est séparé par un certain personnage (virgule, point-virgule, ...), alors vous devriez utiliser la Workbooks.OpenText méthode que les valeurs à entrer dans les bonnes colonnes. (voir ma solution)
    Ouais, c'est la raison pour laquelle j'ai choisi votre réponse au mien, votre réponse est plus souple dans la fin

    OriginalL'auteur Jesse Smothermon