Note: The other languages of the website are Google-translated. Back to English

Πώς να εισαγάγετε γρήγορα πολλά αρχεία csv / text / xml στο Excel;

Στο Excel, ίσως έχετε δεσμευτεί για να αποθηκεύσετε ένα βιβλίο εργασίας ως αρχείο csv, αρχείο κειμένου ή αρχείο xml, αλλά έχετε προσπαθήσει ποτέ να εισαγάγετε πολλά αρχεία csv / text / xml από ένα φάκελο σε ένα βιβλίο εργασίας ή ένα φύλλο εργασίας; Σε αυτό το άρθρο, εισάγω μερικές μεθόδους για γρήγορη εισαγωγή τους.

Εισαγάγετε πολλά αρχεία κειμένου από ένα φάκελο σε κάθε φύλλο εργασίας ενός βιβλίου εργασίας με VBA

Εισαγάγετε πολλά αρχεία csv από ένα φάκελο σε ένα μόνο φύλλο με VBA

Εισαγάγετε πολλά αρχεία xml από ένα φάκελο σε ένα μόνο φύλλο με VBA

Εισαγάγετε ή συνδυάστε πολλά αρχεία xml / csv σε ένα φύλλο ή ένα βιβλίο εργασίας με το Kutools για Excel καλή ιδέα3

Εξαγάγετε κάθε φύλλο ως csv / text / pdf σε ένα φάκελο με το Kutools για Excelκαλή ιδέα3


Για να εισαγάγετε αρχεία κειμένου από ένα φάκελο σε ένα βιβλίο εργασίας, μπορείτε να χρησιμοποιήσετε το παρακάτω VBA για να το χειριστείτε γρήγορα.

1. Ενεργοποιήστε ένα κενό βιβλίο εργασίας και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: Εισαγάγετε όλα τα αρχεία κειμένου από ένα φάκελο σε ένα βιβλίο εργασίας

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. Τύπος F5 κλειδί ή τρέξιμο για να εκτελέσετε το VBA και επιλέξτε ένα φάκελο από τον οποίο θέλετε να εισαγάγετε τα αρχεία κειμένου στο αναδυόμενο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 1

4. Και κάντε κλικ OKκαι κάθε αρχείο κειμένου στον επιλεγμένο φάκελο έχει εισαχθεί σε ένα φύλλο εργασίας του ενεργού βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 2doc εισαγωγή πολλαπλού κειμένου csv xml 3

Συνδυάστε εύκολα πολλά φύλλα / βιβλίο εργασίας σε ένα φύλλο ή βιβλίο εργασίας

Ο συνδυασμός πολλαπλών φύλλων ή βιβλίων εργασίας σε ένα φύλλο ή βιβλίο εργασίας μπορεί να είναι περίεργος στο Excel, αλλά με το Συνδυασμός Λειτουργεί στο Kutools για Excel, μπορείτε να συνδυάσετε δεκάδες φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας, επίσης, μπορείτε να ενοποιήσετε τα φύλλα σε ένα με πολλά κλικ μόνο.  Κάντε κλικ για πλήρεις δυνατότητες 30 ημέρες δωρεάν δοκιμή!
συνδυάστε φύλλα
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό στο 30 ημέρα.

Για να εισαγάγετε όλα τα αρχεία csv από ένα φάκελο σε ένα φύλλο, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα VBA.

1. Ενεργοποιήστε ένα κενό φύλλο εργασίας και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: Εισαγωγή αρχείων csv από ένα φάκελο σε ένα φύλλο εργασίας

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο για να εκτελέσετε το VBA και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα φάκελο από τον οποίο θέλετε να εισαγάγετε όλα τα αρχεία csv. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 4

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

doc εισαγωγή πολλαπλού κειμένου csv xml 5

Μετά το κλικ Ναι, όλα τα αρχεία csv στον επιλεγμένο φάκελο εισάγονται στο τρέχον φύλλο και τοποθετούν δεδομένα από τη στήλη Α προς τα δεξιά. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 6doc εισαγωγή πολλαπλού κειμένου csv xml 7

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

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub 

doc εισαγωγή πολλαπλού κειμένου csv xml 8


Εάν θέλετε να εισαγάγετε όλα τα αρχεία XML από ένα φάκελο σε ένα φύλλο, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα VBA.

1. Επιλέξτε ένα κενό φύλλο που θέλετε να τοποθετήσετε τα εισαγόμενα δεδομένα και πατήστε Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: Εισαγωγή αρχείων XML από ένα φάκελο σε ένα φύλλο εργασίας.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3. κλικ τρέξιμο κουμπί ή F5 για να εκτελέσετε το VBA και επιλέξτε έναν φάκελο στο αναδυόμενο παράθυρο διαλόγου, δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 9

4. κλικ OKκαι όλα τα αρχεία XML στον επιλεγμένο φάκελο εισάγονται στο ενεργό φύλλο.


Εάν δεν είστε εξοικειωμένοι με το VBA, μην ανησυχείτε, εδώ παρουσιάζω ένα εύχρηστο εργαλείο - Kutools για Excel για σενα. Με ισχυρό Συνδυασμός βοηθητικό πρόγραμμα, μπορείτε να συνδυάσετε γρήγορα πολλά αρχεία xml ή αρχεία csv σε ένα βιβλίο εργασίας ή σε ένα φύλλο Excel.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)

1. Ενεργό Excel και κάντε κλικ στο Kutools Plus > Συνδυασμός. Δείτε το στιγμιότυπο οθόνης:
doc συνδυάστε 1

2. Και στο βήμα 1 του Combine διαλόγου, επιλέξτε μία επιλογή διαχωρισμού όπως χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
doc συνδυάστε 2

3. κλικ Επόμενο να παω σε βήμα 2 του συνδυασμού, Κλίκ Προσθέτω για να προσθέσετε αρχεία από διάφορους φακέλους ή αρχεία από έναν φάκελο σε Βιβλίο εργασίας λίστα, και επίσης μπορείτε να καθορίσετε τα φύλλα από τα οποία θέλετε να συνδυάσετε Φύλλο εργασίας λίστα με το σωστό τμήμα. Δείτε το στιγμιότυπο οθόνης:
doc kutools συνδυάζει φύλλα 3

4. κλικ Επόμενο στο τελευταίο βήμα του Συνδυασμόςκαι μπορείτε να καθορίσετε τις επιλογές συνδυασμού.
doc kutools συνδυάζει φύλλα 4

5. κλικ φινίρισμα, εμφανίζεται ένας διάλογος για να σας υπενθυμίσει ότι επιλέγετε μια θέση για να αποθηκεύσετε το νέο συνδυασμένο αποτέλεσμα. Δείτε το στιγμιότυπο οθόνης:
doc συνδυάστε 5

6. κλικ Αποθήκευση. Όλα τα φύλλα προσθήκης έχουν συνδυαστεί σε ένα νέο φύλλο.
doc συνδυάστε 6

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


Εάν θέλετε να εξάγετε κάθε φύλλο ως αρχείο csv / text / pdf σε ένα φάκελο, Kutools για Excel'S Διαχωρισμός βιβλίου εργασίας βοηθητικό πρόγραμμα μπορεί να κάνει μια χάρη για εσάς.

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να εξαγάγετε τα φύλλα εργασίας του και κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή πολλαπλού κειμένου csv xml 10

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

doc εισαγωγή πολλαπλού κειμένου csv xml 11

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

doc εισαγωγή πολλαπλού κειμένου csv xml 12

4. κλικ OK, τώρα όλα τα επιλεγμένα φύλλα εξάγονται ως νέα μορφή αρχείου στον επιλεγμένο φάκελο.


Σχετικά άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (36)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, σας ευχαριστώ πολύ για αυτά τα δείγματα κώδικα! Το πρώτο (VBA: Εισαγωγή όλων των αρχείων κειμένου από έναν φάκελο σε ένα βιβλίο εργασίας) είναι σχεδόν αυτό που χρειάζομαι. Θα ήθελα, ωστόσο, να επιλέξω ποια αρχεία θα εισάγω και να μην εισάγω αυτόματα όλα τα αρχεία κειμένου σε οποιονδήποτε δεδομένο φάκελο. Θα ήθελα επίσης τα περιεχόμενα εξόδου των φύλλων-στόχων μου να αντικαθίστανται από τα περιεχόμενα των αρχείων κειμένου. (Με τον παραπάνω κώδικα, το υπάρχον περιεχόμενο μετατοπίζεται προς τα δεξιά αντί να αντικατασταθεί.) Πώς μπορώ να το κάνω αυτό; Ευχαριστώ εκ των προτέρων!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, θα ήθελα να καταλάβω σχετικά με τον κώδικα VBA για την "Εισαγωγή πολλαπλών αρχείων Xml από έναν φάκελο σε ένα μόνο φύλλο με VBA". 1. Γιατί χρειάζονται 2 βιβλία εργασίας αντί για 1; 2. Χρειάζεται λίγος χρόνος για να φορτωθούν πολλά αρχεία xml στο excel, οπότε υπάρχει πιο αποτελεσματικός κώδικας; Επειδή συνειδητοποιώ ότι όταν εκτελέστηκε ο κώδικάς σας, δημιουργούνται πολλά βιβλία εργασίας VBA που προκάλεσαν την επιβράδυνση. Θα το εκτιμούσα πολύ αν μπορείτε να με βοηθήσετε να καταλάβω!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη, δεν κατάλαβα την πρώτη ερώτηση, και για τη δεύτερη, τον πιο αποτελεσματικό κωδικό, δεν τον βρήκα, αν γνωρίζετε, αφήστε μου μια σημείωση, ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, θα ήθελα να καταλάβω τον κώδικα VBA για την "Εισαγωγή πολλαπλών αρχείων .txt από έναν φάκελο σε ένα μεμονωμένο φύλλο με VBA" από την επόμενη διαθέσιμη σειρά (όχι οριζόντια). Παρακαλώ βοηθήστε, επείγουσα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, εάν θέλετε να εισαγάγετε όλα τα αρχεία txt από έναν φάκελο σε ένα μόνο φύλλο, μπορείτε να χρησιμοποιήσετε τον παραπάνω κώδικα vba για να εισαγάγετε αρχεία txt σε ένα βιβλίο εργασίας πρώτα και, στη συνέχεια, να εφαρμόσετε τη λειτουργία Combine Worksheets του Kutools για το Excel για να συνδυάσετε όλα τα φύλλα ενός βιβλίου εργασίας ένα φύλλο και μετά τα αρχεία txt σε ένα φύλλο. Ελπίζω να σας βοηθήσει.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το πρόβλημα με αυτό είναι ότι η εντολή VBA ούτε το Kutools επιτρέπουν την εισαγωγή των αρχείων csv με μορφοποίηση κώδικα χαρακτήρων. Η προφόρτιση είναι δυτική. Πρέπει να εισάγω όλα τα αρχεία csv ως unicode-8
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ο κώδικας για τη μετατροπή από αρχεία txt δεν μου λειτούργησε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λυπούμαστε, αυτό το άρθρο δεν λειτουργεί για εσάς. Θα μπορούσατε να περιγράψετε το πρόβλημά σας; Τι συμβαίνει κατά την εκτέλεση του κώδικα; Και τι σύστημα δουλεύεις;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Ο κωδικός "Import csv files from a folder into one worksheet", λειτουργεί για μένα! Αλλά αυτός ο κώδικας δεν λειτουργεί για ένα κενό αρχείο .txt. Υπάρχει κάποιος τρόπος να κρατήσω και τα άδεια αρχεία;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λυπούμαστε, δεν ξέρω γιατί πρέπει να εισαγάγετε ένα κενό txt.file~Απλώς εισαγάγετε κενές σειρές για να διαχωρίσετε τα περιεχόμενα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Mike: "ο κώδικας για τη μετατροπή από αρχεία txt δεν λειτούργησε για μένα."

Είχα το ίδιο πρόβλημα. Τα σφάλματα μακροεντολής παρουσιάζονται αν έχετε περισσότερα αρχεία txt προς άνοιγμα από φύλλα εργασίας στο βιβλίο εργασίας σας (η προεπιλογή είναι 3).
Το διόρθωσα προσθέτοντας τα ακόλουθα ακριβώς πριν από την έξοδο του βρόχου, ώστε η μακροεντολή να δημιουργήσει ένα νέο φύλλο μετά τα υπόλοιπα
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τσαντ, αυτό λειτούργησε τέλεια για την εισαγωγή πολλών αρχείων κειμένου. Σας ευχαριστώ.

Ξέρετε αν υπάρχει τρόπος να τραβήξετε τα ονόματα των αρχείων; Θέλω τα ονόματα των αρχείων κειμένου να αντιγράφονται σε κάθε καρτέλα φύλλου excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εντελώς εκπληκτικό! Δοκίμασα το άνοιγμα όλων των αρχείων csv σε ένα φύλλο εργασίας και λειτούργησε υπέροχα. Ευχαριστώ πολύ, πραγματικά!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, προσπάθησα να εκτελέσω τον κώδικα για .xml και δεν φάνηκε να λειτουργεί καθώς έλαβα το μήνυμα "no files xml". Πώς να το διορθώσετε αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα εμφανιστεί ένα μήνυμα "no files xml" ενώ ο επιλεγμένος φάκελος δεν περιέχει τα αρχεία xml. Μπορείτε να επιλέξετε τον σωστό φάκελο που περιέχει αρχεία xml στο αναδυόμενο παράθυρο διαλόγου αφού εκτελέσετε τον κώδικα για την εισαγωγή τους στο ενεργό φύλλο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δούλεψε! Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σου, saya mau tanya kalo impor txt αρχείο ke satu sheet gimana ya?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, rendy, θα θέλατε να εισάγετε όλα τα txt σε ένα φύλλο ή κάθε txt σε κάθε φύλλο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
έχω κώδικα για εισαγωγή txts σε φύλλα κάθε txt σε κάθε φύλλο, αλλά θέλω κάθε txt να εισάγεται με το όνομά του σε φύλλο, εννοώ να μετονομάσω κάθε εισαγόμενο φύλλο με το όνομα του txt το αρχείο κώδικα που επισυνάπτεται .. θέλω να το επεξεργαστώ αρχείο για προσθήκη κώδικα για μετονομασία φύλλων με όνομα txts ... ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω κώδικα για εισαγωγή txts σε φύλλα κάθε txt σε κάθε φύλλο, αλλά θέλω κάθε txt να εισάγεται με το όνομά του σε φύλλο, εννοώ να μετονομάσω κάθε εισαγόμενο φύλλο με το όνομα του txt το αρχείο κώδικα που επισυνάπτεται .. ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Ramy, zahran, μπορείς να δοκιμάσεις τον παρακάτω κώδικα που μπορεί να εισαγάγει τα αρχεία κειμένου και να μετονομάσει το όνομα του φύλλου στο όνομα του αρχείου κειμένου.
Sub LoadPipeDelimitedFiles()
'ΕνημέρωσηExtendoffice20180925
Dim xStrPath ως συμβολοσειρά
Dim xFileDialog ως FileDialog
Dim xFile ως συμβολοσειρά
Dim xCount As Long
Dim xWS ως φύλλο εργασίας

Σφάλμα Μετάβαση στο ErrHandler
Ορισμός xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.title = "Επιλέξτε έναν φάκελο [Kutools for Excel]"
Αν xFileDialog.Show = -1 Τότε
xStrPath = xFileDialog.SelectedItems(1)
End If
Αν xStrPath = "" Τότε βγείτε από το Sub
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do while xFile <> ""
xCount = xCount + 1
Ορισμός xWS = Φύλλα (xCount)
xWS.Επιλέξτε
xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
Με ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Όνομα = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = Αληθές
.AdjustColumnWidth = Αληθές
.Περίοδος ανανέωσης = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlΟριοθετημένο
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = Αληθές
.Refresh BackgroundQuery:=False
xFile = Σκην
Τέλος με
Βρόχος
Application.ScreenUpdating = True
Έξοδος Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Χρησιμοποίησα τον κώδικα για να συγχωνεύσω πολλά αρχεία XML σε ένα, αλλά δυστυχώς οι στήλες μπέρδεψαν. Τα 5 αρχεία που συγχωνεύτηκαν είχαν όλα την ίδια μορφή. Υπάρχει κάποιος τρόπος για να διορθωθεί αυτό? Αναρωτιόμουν επίσης αν υπήρχε τρόπος να απαλλαγώ από τις κεφαλίδες που αντιγράφονται όταν συγχωνεύονται τα αρχεία. Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ. Αυτός ο ιστότοπος βοήθησε πολύ. Έχω ένα θέμα που δεν μπορώ να καταλάβω. Προσπαθώ να εισαγάγω πολλά αρχεία csv σε ξεχωριστά φύλλα excel στο excel και κάθε φύλλο να μετονομαστεί με το όνομα αρχείου του αρχείου csv. Ξέρω ότι αυτό καλύφθηκε παρακάτω για ένα αρχείο txt, αλλά εργάζομαι με αρχεία csv. Ευχαριστώ εκ των προτέρων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια - Χρησιμοποιώ την εισαγωγή όλων των αρχείων csv σε ένα αρχείο που αναφέρεται παραπάνω "Import Multiple Csv Files From A Folder In A Single Sheet With VBA"- θα ήθελα να ορίσω τον φάκελο από τον οποίο συλλέγει τα δεδομένα χωρίς να χρειάζεται να επιλέξω με μη αυτόματο τρόπο το. Μπορεί να γίνει αυτό; ευχαριστώ - SW.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Scott W, βρήκα ότι ένας κωδικός VBA μπορεί να σε βοηθήσει.
Επιλογή ρητή

Sub ImportCSVsWithReference()
Συγγραφέας: Jerry Beaucaire
'Ημερομηνία: 10/16/2010
«Σύνοψη: Εισαγάγετε όλα τα αρχεία CSV από έναν φάκελο σε ένα μόνο φύλλο
Προσθέτοντας ένα πεδίο στη στήλη Α με τα ονόματα αρχείων CSV

Dim wbCSV ως βιβλίο εργασίας
Dim wsMstr ως φύλλο εργασίας: Ορισμός wsMstr = ThisWorkbook.Sheets("Sheet1")
Dim fPath As String: fPath = "C:\Users\DT168\Desktop\New folder\" 'διαδρομή προς τα αρχεία CSV, συμπεριλάβετε το τελικό \
Dim fCSV ως συμβολοσειρά

Αν MsgBox("Διαγραφή του υπάρχοντος φύλλου πριν από την εισαγωγή;", vbYesNo, "Clear?") _
= vbYes Στη συνέχεια wsMstr.UsedRange.Clear

Application.ScreenUpdating = Ψεύτικη μακροεντολή επιτάχυνσης

fCSV = Dir(fPath & "*.csv") 'ξεκινήστε τη λίστα αρχείων CSV

Do while Len(fCSV) > 0
'άνοιξε ένα αρχείο CSV
Ορισμός wbCSV = Workbooks.Open(fPath & fCSV)
Εισαγάγετε την στήλη A και προσθέστε όνομα CSV
Στήλες(1).Εισαγάγετε xlShiftToRight
Στήλες(1).SpecialCells(xlBlanks).Τιμή = ActiveSheet.Name
«αντιγράψτε την ημερομηνία στο κύριο φύλλο και κλείστε το αρχείο προέλευσης
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1)
wbCSV.Κλείσιμο False
έτοιμο το επόμενο CSV
fCSV = Σκην
Βρόχος

Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τρόπος εξάλειψης της διπλής κεφαλίδας και της στήλης ονόματος αρχείου CSV. Παρακαλώ βοηθήστε....Έχω διαβάσει αρκετά άρθρα, αλλά δυστυχώς όλα δίνουν το ίδιο αποτέλεσμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας - Χρησιμοποίησα τους κωδικούς σας VBA για να εξαγάγω δεδομένα από πολλά αρχεία CSV σε αρχείο excel (ο κώδικας σε αυτήν τη σελίδα) και να μετατρέψω αρχεία csv σε αρχεία excel (αυτό: https://www.extendoffice.com/documents/excel/4615-excel-batch-convert-csv-to-xls-xlsx.html), με εξαιρετικά αποτελέσματα. Με βοήθησαν να κερδίσω πολύ χρόνο.

Ωστόσο, παρατηρώ ένα κοινό πρόβλημα και με τους δύο αυτούς τύπους κωδικών. Για να διευκρινίσω, το σύστημά μου έχει ρυθμιστεί ώστε να χρησιμοποιεί τα ευρωπαϊκά πρότυπα για ημερομηνίες, ενώ ορισμένα από τα αρχεία CSV που έλαβα για την εργασία μου περιέχουν ημερομηνίες στα πρότυπα των ΗΠΑ. Το πρώτο πρόβλημα είναι ότι όταν εξάγω ή μετατρέπω δεδομένα από ένα αρχείο CSV που περιέχει ημερομηνίες σε μορφή ΗΠΑ, όλες αυτές οι ημερομηνίες αντιστρέφονται (αντιστοιχούν στα πρότυπα της ΕΕ που χρησιμοποιούνται από το σύστημά μου). Αυτό είναι υπέροχο, αλλά μου προκάλεσε επίσης προβλήματα, καθώς δεν ήξερα ότι οι κωδικοί θα αντιστρέφονταν τις ημερομηνίες για μένα, οπότε συνέχισα και έκανα το ίδιο πράγμα ξανά. Το δεύτερο πρόβλημα είναι ότι για τα αρχεία CSV που περιέχουν ημερομηνίες ήδη στην ίδια μορφή με αυτή που χρησιμοποιείται από το σύστημά μου (πρότυπα ΕΕ), αντιστρέφονται μόνο οι διφορούμενες ημερομηνίες (δηλ. 04/05/2019 - 05/04/2019), ενώ αυτά που είναι πολύ εμφανή παραμένουν αμετάβλητα (δηλαδή 30/04/2019).

Αυτό που θα ήθελα να κάνουν οι κωδικοί είναι ακριβώς το ίδιο με αυτό που εμφανίζονται εδώ, μόνο που πρέπει να αντιγράψουν και να επικολλήσουν τα δεδομένα (ειδικά τις ημερομηνίες) στις ακριβείς μορφές που χρησιμοποιούνται στα αρχικά αρχεία. Αυτό θα βοηθούσε στην αποφυγή πιθανών συγχύσεων και λαθών. Θα ήθελα να μάθω VBA για να μπορέσω μια μέρα να γράψω τους δικούς μου κωδικούς, αλλά προς το παρόν, δεν μπορώ καν να τροποποιήσω τμήματα των υπαρχόντων κωδικών για να ταιριάζουν στις ανάγκες μου. Επομένως, αν μπορείτε να βοηθήσετε, πείτε μου πού πρέπει να βάλω τους τροποποιημένους κωδικούς (που καταλήξατε) στους υπάρχοντες κωδικούς. Εκτιμώ όλα τα σχόλια και την υποστήριξη που μπορώ να έχω. Σας ευχαριστώ όλους!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Marshall, στη μέθοδο Workbooks.Open, προσθέστε την επιλογή Local:=True.

δηλαδή
Ορισμός xWb = Workbooks.Open(xStrPath & "\" & xFile, Local:=True)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ Robert. Λυπάμαι που δεν μπόρεσα να σου απαντήσω νωρίτερα. Δεν έλαβα καμία ειδοποίηση μέχρι τώρα. Θα το δοκιμάσω και θα επανέλθω αργότερα για να σας ενημερώσω εάν λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Robert,
Εγώ είμαι πάλι. Μου πήρε λίγο χρόνο για να έχω πραγματικά χρόνο για να καταλάβω σε ποιο μέρος του κώδικα πρέπει να προστεθεί το τμήμα "Local:True". Το αποτέλεσμα ήταν υπέροχο καθώς οι ημερομηνίες δεν αντιστρέφονται πλέον. Σας ευχαριστώ!
Για όποιον έχει το ίδιο πρόβλημα, απλώς αλλάξτε αυτήν τη γραμμή:
Ορισμός xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)

Σ 'αυτό:
Ορισμός xWb = Workbooks.Open(xStrPath & "\" & xFile, Local:=True)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, υπάρχει κάποιος τρόπος εισαγωγής πολλών αρχείων csv με ερωτηματικό ως διαχωριστικό; Σας ευχαριστώ!
Υ.Γ Ωραίο άρθρο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια ομάδα

Χρησιμοποιώ τον κώδικα για την εισαγωγή πολλών αρχείων XML σε μεμονωμένο φύλλο με VBA, ωστόσο το πρόβλημα που αντιμετωπίζω είναι όταν ο αριθμός σειρών φτάνει περίπου τις 650000, τότε δεν επεξεργάζεται τα υπόλοιπα αρχεία xml στο φάκελο και δίνει ένα σφάλμα ότι δεν υπάρχουν αρχεία xml . Χρειάζομαι την υποστήριξή σας για να αυξήσετε αυτό το πλήθος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια εμπειρογνώμονες

Χρησιμοποιώ τον παραπάνω κώδικα για την εισαγωγή πολλών αρχείων xml σε 1 φύλλο εργασίας χρησιμοποιώντας VBA, ωστόσο το πρόβλημα που αντιμετωπίζω είναι όταν ο αριθμός των σειρών φτάσει τις 650000 σε ένα φύλλο εργασίας, τότε αυτός ο κώδικας δεν επεξεργάζεται τα υπόλοιπα αρχεία xml στο φάκελο. Δίνει ένα σφάλμα "no files.xml". Απαιτήστε την ευγενική σας υποστήριξη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
HelloΟι οδηγίες για την εισαγωγή πολλαπλών xml σε μια καρτέλα ενός εγγράφου excel λειτουργούν, αλλά αναρωτιόμουν πώς να το βάλω να ευθυγραμμίσει τις στήλες. Τα xml μου δεν έχουν όλα τις ίδιες ετικέτες. Είναι ρυθμισμένα έτσι ώστε αν το xml δεν είχε δεδομένα για ορισμένες κεφαλίδες(ετικέτες), τότε η κεφαλίδα λείπει από αυτό το xml. Υπάρχει τρόπος να κάνετε εισαγωγή των xml, ώστε οι ίδιες κεφαλίδες από κάθε xml και τα σχετικά δεδομένα να εμπίπτουν στην ίδια στήλη του excel;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL