Πώς να εισαγάγετε γρήγορα πολλά αρχεία csv / text / xml στο Excel;
Στο Excel, ίσως έχετε δεσμευτεί για να αποθηκεύσετε ένα βιβλίο εργασίας ως αρχείο csv, αρχείο κειμένου ή αρχείο xml, αλλά έχετε προσπαθήσει ποτέ να εισαγάγετε πολλά αρχεία csv / text / xml από ένα φάκελο σε ένα βιβλίο εργασίας ή ένα φύλλο εργασίας; Σε αυτό το άρθρο, εισάγω μερικές μεθόδους για γρήγορη εισαγωγή τους.
Εισαγάγετε πολλά αρχεία κειμένου από ένα φάκελο σε κάθε φύλλο εργασίας ενός βιβλίου εργασίας με VBA
Εισαγάγετε πολλά αρχεία csv από ένα φάκελο σε ένα μόνο φύλλο με VBA
Εισαγάγετε πολλά αρχεία xml από ένα φάκελο σε ένα μόνο φύλλο με VBA
Εισαγάγετε ή συνδυάστε πολλά αρχεία xml / csv σε ένα φύλλο ή ένα βιβλίο εργασίας με το Kutools για Excel
Εξαγάγετε κάθε φύλλο ως csv / text / pdf σε ένα φάκελο με το Kutools για Excel
Εισαγάγετε πολλά αρχεία κειμένου από ένα φάκελο σε κάθε φύλλο εργασίας ενός βιβλίου εργασίας με VBA
Για να εισαγάγετε αρχεία κειμένου από ένα φάκελο σε ένα βιβλίο εργασίας, μπορείτε να χρησιμοποιήσετε το παρακάτω 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 και επιλέξτε ένα φάκελο από τον οποίο θέλετε να εισαγάγετε τα αρχεία κειμένου στο αναδυόμενο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:
4. Και κάντε κλικ OKκαι κάθε αρχείο κειμένου στον επιλεγμένο φάκελο έχει εισαχθεί σε ένα φύλλο εργασίας του ενεργού βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:
Συνδυάστε εύκολα πολλά φύλλα / βιβλίο εργασίας σε ένα φύλλο ή βιβλίο εργασίας
|
Ο συνδυασμός πολλαπλών φύλλων ή βιβλίων εργασίας σε ένα φύλλο ή βιβλίο εργασίας μπορεί να είναι περίεργος στο Excel, αλλά με το Συνδυασμός Λειτουργεί στο Kutools για Excel, μπορείτε να συνδυάσετε δεκάδες φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας, επίσης, μπορείτε να ενοποιήσετε τα φύλλα σε ένα με πολλά κλικ μόνο. Κάντε κλικ για δωρεάν δοκιμή 30 ημερών με πλήρεις δυνατότητες! |
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Εισαγάγετε πολλά αρχεία csv από ένα φάκελο σε ένα μόνο φύλλο με VBA
Για να εισαγάγετε όλα τα αρχεία 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. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, και εμφανίζεται ένας διάλογος για να σας υπενθυμίσει εάν διαγράψετε τα περιεχόμενα του ενεργού φύλλου εργασίας πριν από την εισαγωγή, εδώ κάνω κλικ Ναι. Δείτε το στιγμιότυπο οθόνης:
Μετά το κλικ Ναι, όλα τα αρχεία csv στον επιλεγμένο φάκελο εισάγονται στο τρέχον φύλλο και τοποθετούν δεδομένα από τη στήλη Α προς τα δεξιά. Δείτε το στιγμιότυπο οθόνης:
Συμβουλή: Εάν θέλετε να τοποθετήσετε αρχεία 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
Εισαγάγετε πολλά αρχεία xml από ένα φάκελο σε ένα μόνο φύλλο με VBA
Εάν θέλετε να εισαγάγετε όλα τα αρχεία 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 και επιλέξτε έναν φάκελο στο αναδυόμενο παράθυρο διαλόγου, δείτε το στιγμιότυπο οθόνης:
4. κλικ OKκαι όλα τα αρχεία XML στον επιλεγμένο φάκελο εισάγονται στο ενεργό φύλλο.
Εισαγάγετε ή συνδυάστε πολλά αρχεία xml / csv σε ένα φύλλο ή ένα βιβλίο εργασίας με το Kutools για Excel
Εάν δεν είστε εξοικειωμένοι με το VBA, μην ανησυχείτε, εδώ παρουσιάζω ένα εύχρηστο εργαλείο - Kutools για Excel για σενα. Με ισχυρό Συνδυασμός βοηθητικό πρόγραμμα, μπορείτε να συνδυάσετε γρήγορα πολλά αρχεία xml ή αρχεία csv σε ένα βιβλίο εργασίας ή σε ένα φύλλο Excel.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. | ||
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)
1. Ενεργό Excel και κάντε κλικ στο Kutools Plus > Συνδυασμός. Δείτε το στιγμιότυπο οθόνης:
2. Και στο βήμα 1 του Combine διαλόγου, επιλέξτε μία επιλογή διαχωρισμού όπως χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Επόμενο να παω σε βήμα 2 του συνδυασμού, Κλίκ Πρόσθεση για να προσθέσετε αρχεία από διάφορους φακέλους ή αρχεία από έναν φάκελο σε Βιβλίο εργασίας λίστα, και επίσης μπορείτε να καθορίσετε τα φύλλα από τα οποία θέλετε να συνδυάσετε Φύλλο εργασίας λίστα με το σωστό τμήμα. Δείτε το στιγμιότυπο οθόνης:
4. κλικ Επόμενο στο τελευταίο βήμα του Συνδυασμόςκαι μπορείτε να καθορίσετε τις επιλογές συνδυασμού.
5. κλικ φινίρισμα, εμφανίζεται ένας διάλογος για να σας υπενθυμίσει ότι επιλέγετε μια θέση για να αποθηκεύσετε το νέο συνδυασμένο αποτέλεσμα. Δείτε το στιγμιότυπο οθόνης:
6. κλικ Αποθήκευση. Όλα τα φύλλα προσθήκης έχουν συνδυαστεί σε ένα νέο φύλλο.
Συμβουλή: Με Συνδυασμός, μπορείτε επίσης να συνδυάσετε πολλαπλάσια Αρχεία CSV σχηματίστε πολλούς φακέλους ή έναν φάκελο σε ένα φύλλο ή βιβλίο εργασίας.
Συνδυάστε πολλά αρχεία XML / CVS σε ένα φύλλο / βιβλίο εργασίας
Εξαγάγετε κάθε φύλλο ως csv / text / pdf σε ένα φάκελο με το Kutools για Excel
Εάν θέλετε να εξάγετε κάθε φύλλο ως αρχείο csv / text / pdf σε ένα φάκελο, Kutools για Excel'S Διαχωρισμός βιβλίου εργασίας βοηθητικό πρόγραμμα μπορεί να κάνει μια χάρη για εσάς.
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να εξαγάγετε τα φύλλα εργασίας του και κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:
2. Στο Διαχωρισμός βιβλίου εργασίας διαλόγου, μπορείτε να ελέγξετε τα ονόματα των φύλλων που χρειάζεστε για εξαγωγή, από προεπιλογή όλα τα φύλλα είναι επιλεγμένα και ελέγξτε Καθορίστε τη μορφή αποθήκευσης και επιλέξτε τη μορφή αρχείου που θέλετε να αποθηκεύσετε από την παρακάτω αναπτυσσόμενη λίστα. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Σπλιτ και επιλέξτε ένα φάκελο για να αποθηκεύσετε τα διαχωρισμένα αρχεία στο Αναζήτηση για φάκελο διάλογος, δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, τώρα όλα τα επιλεγμένα φύλλα εξάγονται ως νέα μορφή αρχείου στον επιλεγμένο φάκελο.
Εξαγωγή κάθε φύλλου ως μονό αρχείο XML / CSV / TXT / PDF
Σχετικά άρθρα:
- Πώς να μετατρέψετε τον υπερσύνδεσμο σε απλό κείμενο στο Excel;
- Πώς να μετατρέψετε τον δεκαδικό αριθμό σε δυαδικό / οκταλικό / δεκαεξαδικό αριθμό ή αντίστροφα στο Excel;
- Πώς να εισαγάγετε ζωντανή συναλλαγματική ισοτιμία στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!