Πώς να εισαγάγετε το αρχείο csv στο φύλλο εργασίας;

Μπορεί να είναι εύκολο για εμάς να εισαγάγουμε ή να αποθηκεύσουμε φύλλο εργασίας ως αρχείο CSV, αλλά, έχετε δοκιμάσει ποτέ την εισαγωγή αρχείου CSV στο φύλλο εργασίας; Σε αυτό το άρθρο, θα μιλήσω για μερικές ενδιαφέρουσες μεθόδους για να αντιμετωπίσετε αυτό το έργο.

Εισαγωγή αρχείου CSV σε φύλλο εργασίας με τον Οδηγό εισαγωγής κειμένου

Εισαγωγή αρχείου CSV στο φύλλο εργασίας με το Kutools για Excel

Εισαγωγή αρχείου CSV στο φύλλο εργασίας με κώδικα VBA

Εισαγωγή αρχείου CSV σε φύλλο εργασίας με τον Οδηγό εισαγωγής κειμένου

Κανονικά, στο Excel, μπορείτε να εφαρμόσετε τη λειτουργία "Οδηγός εισαγωγής κειμένου" για να εισαγάγετε το αρχείο CSV σε ένα φύλλο εργασίας, κάντε τα εξής:

1. Ενεργοποιήστε το φύλλο εργασίας που θέλετε να εισαγάγετε το αρχείο CSV και, στη συνέχεια, κάντε κλικ στο ημερομηνία > Από το κείμενο, δείτε το στιγμιότυπο οθόνης:

2. Στην Εισαγωγή αρχείου κειμένου παράθυρο, προσδιορίστε το αρχείο CSV που θέλετε να εισαγάγετε, δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια κάντε κλικ στο κουμπί εισαγωγή κουμπί, στο Βήμα 1 του Οδηγός εισαγωγής κειμένου, Επιλέξτε Οριοθετημένη επιλογή, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια κάντε κλικ στο κουμπί Επόμενο > κουμπί, στο Βήμα 2 του οδηγού, επιλέξτε Κόμμα σύμφωνα με το Διαχωριστές επιλογή, δείτε το στιγμιότυπο οθόνης:

5. Στη συνέχεια, κάντε κλικ Επόμενο> κουμπί, στο Βήμα 3 του οδηγού, επιλέξτε Κείμενο επιλογή στην ενότητα Μορφή δεδομένων στήλης, και μπορείτε να δείτε την πρώτη στήλη θα επισημανθεί. Στη συνέχεια, κρατήστε το αλλαγή κλειδί για να επισημάνετε όλες τις στήλες. Δείτε το στιγμιότυπο οθόνης:

6. Στη συνέχεια κάντε κλικ στο κουμπί φινίρισμα κουμπί, στο αναδυόμενο Εισαγωγή δεδομένων πλαίσιο διαλόγου, επιλέξτε τη θέση στην οποία θέλετε να βάλετε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:

7. Κλίκ OK κουμπί, το αρχείο CSV έχει εισαχθεί στο φύλλο εργασίας ταυτόχρονα.

Εισαγωγή αρχείου CSV στο φύλλο εργασίας με το Kutools για Excel

Εάν έχετε Kutools για Excel, Με τους Εισαγωγή αρχείου στο δρομέα βοηθητικό πρόγραμμα, μπορείτε να εισαγάγετε γρήγορα το αρχείο CSV, το αρχείο κειμένου, το αρχείο Excel ή το αρχείο PRN στο τρέχον φύλλο εργασίας.

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Ενεργοποιήστε ένα φύλλο εργασίας όπου θέλετε να εισαγάγετε τα δεδομένα αρχείου CSV.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools Plus > Εισαγωγή εξαγωγή > Εισαγωγή αρχείου στο δρομέα, δείτε το στιγμιότυπο οθόνης:

3. Στο Εισαγωγή αρχείου στο δρομέα πλαίσιο διαλόγου, κάντε τις ακόλουθες επιλογές:

(1.) Κάντε κλικ κουμπί για να επιλέξετε ένα κελί όπου θέλετε να εξάγετε τα δεδομένα.

(2.) Στη συνέχεια κάντε κλικ Αναζήτηση κουμπί για να ανοίξετε το Επιλογή αρχείου που θα εισαχθεί στο παράθυρο θέσης του δρομέα κελιού.

(3.) Στο αναδυόμενο παράθυρο, επιλέξτε Αρχεία CSV από την κάτω αναπτυσσόμενη λίστα δεξιά και, στη συνέχεια, επιλέξτε το αρχείο CSV που θέλετε να εισαγάγετε.

4. Αφού καθορίσετε το αρχείο CSV, κάντε κλικ στο Ανοικτό για να επιστρέψετε το προηγούμενο παράθυρο διαλόγου και, στη συνέχεια, κάντε κλικ στο OK για εισαγωγή του αρχείου CSV. Και το αρχείο CSV θα εισαχθεί στη συγκεκριμένη τοποθεσία που χρειάζεστε.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

Εισαγωγή αρχείου CSV στο φύλλο εργασίας με κώδικα VBA

Εάν είστε κουρασμένοι από την παραπάνω μέθοδο βήμα προς βήμα, ο παρακάτω κώδικας VBA μπορεί επίσης να λύσει αυτό το πρόβλημα.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Εισαγωγή αρχείου CSV στο φύλλο εργασίας:

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και επιλέξτε το αρχείο CSV που θέλετε να εισαγάγετε στο αναδυόμενο παράθυρο Kutools για Excel διάλογος, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια κάντε κλικ στο κουμπί Ανοικτό κουμπί και κάντε κλικ σε ένα κελί όπου θέλετε να βάλετε τα εισαγόμενα δεδομένα, δείτε το στιγμιότυπο οθόνης:

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK, το συγκεκριμένο αρχείο CSV έχει εισαχθεί στο φύλλο εργασίας.