Forum - Γενικά Import txt στο excel

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Γενικά] Import txt στο excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2998-import-txt-sto-excel.html)

Import txt στο excel

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

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

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

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

Μανώλης

Καλημέρα σε όλους!
Μανώλη, έστω ότι διαδρομές των αρχείων κειμένου ξεκινούν από το Α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

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

Τάσος

Import txt στο excel

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

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

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

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

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

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

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

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

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

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

Τάσος