[Γενικά] Import txt στο excel

[TManolis99]

Καλημέρα σε όλους στο forum και ευχαριστούμε για την πολύτιμη βοήθεια σας

Έχω ένα ερώτημα σχετικά με ένα excel που θα πρέπει να διορθώσω. Σε αυτό, στην στήλη Α υπάρχουν hyperlinks, που η κάθε μία οδηγεί σε ένα φάκελο που περιέχει ένα μοναδικό txt με διάφορα στοιχεία (με κενές γραμμές ανάμεσα τους) όπως επώνυμο, όνομα, τηλέφωνο , email κλπ

Για να μην ανοίγω ένα ένα τα txt αρχεία και να κάνω αντιγραφή-επικόλληση , υπάρχει τρόπος μέσω vba να διαβάζει αυτόματα το path του αρχείου και να εισάγει στις επόμενες στήλες B, C, D κλπ τα στοιχεία που ανέφερα παραπάνω ;

Κάθε βοήθεια δεκτή...
Ευχαριστώ

Μανώλης

[Tasos]

Καλημέρα σε όλους!
Μανώλη, έστω ότι διαδρομές των αρχείων κειμένου ξεκινούν από το Α2 και το κωδικό όνομα του φύλλου όπως φαίνεται στον VBE είναι "Sheet1".

Δοκίμασε τον παρακάτω κώδικα:

Sub ImportContentFromTextFile()
    Dim fso As Object
    Dim oStream As Object
    Dim c As Range
    Dim rng As Range
    Dim i As Integer

    ' Sheet1 = το κωδικό όνομα του φύλλου με τις διαδρομές των αρχείων
    Set rng = Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)

    'Απαλοίφει τυχόν περιεχόμενα στις επόμενες 100 στήλες
    'rng.Offset(, 1).Resize(, 100).ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each c In rng
        i = 0
        If fso.FileExists(c.Value) Then
            Set oStream = fso.OpenTextFile(c.Value, 1)
            While Not oStream.AtEndOfStream
                i = i + 1
                c.Offset(, i).Value = oStream.ReadLine
            Wend
            oStream.Close
        End If
    Next
End Sub

Καλή συνέχεια!

Τάσος

[TManolis99]

Τάσο σε ευχαριστώ για την απάντηση σου και τον χρόνο που αφιέρωσες,
αλλά το πρόβλημα είναι ότι δεν μπορώ να το κάνω να δουλέψει..

Από ότι βλέπω το φύλο που δουλεύω είναι το ίδιο με το όνομα που χρησιμοποιείς και εσύ (sheet1).

Αν μπορείς εξήγησε μου τι πρέπει να κάνω..

Σου επισυνάπτω και το excel στο οποίο το δοκίμασα

Ευχαριστώ και πάλι..

[Tasos]

Καλησπέρα!
Μανώλη δεν είχα καταλάβει σωστά το ζητούμενο σου οπότε άκυρη η απάντηση μου.

Μπορείς να δοκιμάσεις το επισυναπτόμενο.

Πάτησε το κουμπί "1. Εισαγωγή ονομάτων αρχείων" για να επιλέξεις τον φάκελο που περιέχει τους υποφακέλους με τα αρχεία κειμένου.


Κατόπιν πάτησε το κουμπί "2. Εισαγωγή περιεχομένων" για να εισαχθούν τα περιεχόμενα των αρχείων.

Καλή συνέχεια!

Τάσος