Μετάβαση στο κύριο περιεχόμενο

Πώς να εισαγάγετε γρήγορα πολλά αρχεία 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, τώρα όλα τα επιλεγμένα φύλλα εξάγονται ως νέα μορφή αρχείου στον επιλεγμένο φάκελο.


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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (36)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bagaimana caranya menghilangkan header dari tiap-tiap file csv yang terbuka dalam worksheetnya
terima kasih
This comment was minimized by the moderator on the site
Hi there,this is a great tool, but I want to import the various XMl-Files into separate TAB-sheets. Is this possible as the XML's have different header ?
This comment was minimized by the moderator on the site
HelloThe instructions for importing multiple xmls into one tab of an excel document works but was wondering how to get it to line up the columns. My xmls don't all have the same tags. They are set up such that if the xml had no data for some headers(tags) then the header is missing from that xml. Is there a way to get the xmls to import so the same headers from each xml and associated data fall into the same column of excel?
This comment was minimized by the moderator on the site
Hi Experts

I am using the above code for importing multiple xml files into 1 worksheet using VBA however issue i am facing is when rows count reaches 650000 in a worksheet then this code doesn't process rest of the xml files in the folder. It gives an error "no files.xml". Require your kind support
This comment was minimized by the moderator on the site
Hi Team

I am using the code for importing Multiple XML files into single sheet with VBA however issue i am facing is when rows count reaches approximately 650000, then it doesn't processes rest of the xml files in the folder and gives an error that no xml files. Need your support to increase this count.
This comment was minimized by the moderator on the site
Hi, is there any way to import multiple csv files with semicolon as separator? Thank you!
PS Nice article!
This comment was minimized by the moderator on the site
Hello - I've used your VBA codes to extract data from multiple CSV files to excel file (the code on this page) and convert csv files to excel files ( this one: https://www.extendoffice.com/documents/excel/4615-excel-batch-convert-csv-to-xls-xlsx.html), with great results. They helped me save a lot of time.

However, I notice a common problem with both of these types of codes. To clarify, my system is set up to use the European standards for dates, while some of the CSV files I received for my work contain dates in US standards. The first problem is, when I extract or convert data from a CSV file that contains dates in US format, all of those dates are reversed (matching the EU standards used by my system). This is great but it also caused me troubles since I didn't know the codes would reverse the dates for me, so I went on ahead and did the same thing again. The second problem is, for the CSV files that contain dates already in the same format as the one used by my system (EU standards), only the ambiguous dates are reversed (i.e 04/05/2019 - 05/04/2019), while the ones that are too obvious, remain unchanged (i.e 30/04/2019).

What I would like the codes to do, is the exact same thing as they are shown here, only that they should copy and paste the data (especially dates) in the exact formats used in the original files. This would help prevent any possible confusions and mistakes. I would like to learn VBA so I can one day write my own codes, but for now, I'm not even able to modify parts of the existing codes to suit my needs. So if you can help, please tell me where I should put the modified codes (that you come up with) to the existing codes. I appreciate all feedback & support I can get. Thank you all!
This comment was minimized by the moderator on the site
Hi Marshall, in the Workbooks.Open method, add in the option Local:=True.

i.e.
Set xWb = Workbooks.Open(xStrPath & "\" & xFile, Local:=True)
This comment was minimized by the moderator on the site
Hi Robert,
It's me again. It took me a while to actually have the time to figure out which part of the code the "Local:True" part should be added to. The result turned out great as the dates are no longer reversed. Thank you!
For anyone having the same problem, just change this line:
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)

To this:
Set xWb = Workbooks.Open(xStrPath & "\" & xFile, Local:=True)
This comment was minimized by the moderator on the site
Thank you very much Robert. Sorry I couldn't reply to you any earlier. I didn't get any notification until now. I will try this out and come back to you later to let you know if this works.
This comment was minimized by the moderator on the site
Hi - I'm using the import all csv files into one file listed above "Import Multiple Csv Files From A Folder Into A Single Sheet With VBA"- i'd like to define the folder it collects the data from without having to manually choose it. Can this be done? thanks - SW.
This comment was minimized by the moderator on the site
Hi, Scott W, I found a VBA code may can help you.
Option Explicit

Sub ImportCSVsWithReference()
'Author: Jerry Beaucaire
'Date: 10/16/2010
'Summary: Import all CSV files from a folder into a single sheet
' adding a field in column A listing the CSV filenames

Dim wbCSV As Workbook
Dim wsMstr As Worksheet: Set wsMstr = ThisWorkbook.Sheets("Sheet1")
Dim fPath As String: fPath = " C:\Users\DT168\Desktop\New folder\" 'path to CSV files, include the final \
Dim fCSV As String

If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Clear?") _
= vbYes Then wsMstr.UsedRange.Clear

Application.ScreenUpdating = False 'speed up macro

fCSV = Dir(fPath & "*.csv") 'start the CSV file listing

Do While Len(fCSV) > 0
'open a CSV file
Set wbCSV = Workbooks.Open(fPath & fCSV)
'insert col A and add CSV name
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
'copy date into master sheet and close source file
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1)
wbCSV.Close False
'ready next CSV
fCSV = Dir
Loop

Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
How to eliminate duplicate header and CSV file name column. Please do help....I have gone through several articles, but unfortunately all give same result.
This comment was minimized by the moderator on the site
Thank you. This site has been a big help. I have one issue I cannot figure out. I am trying to import multiple csv files into an excel separate sheets in excel and have each sheet renamed after the file name of the csv file. I know this was covered below for a txt file but I am working with csv files. Thanks in advance.
This comment was minimized by the moderator on the site
Hi! I used the code to merge multiple XML files into one, but unfortunately the columns got messed up. The 5 files being merged all had the same format. Is there anyway to fix this? I also was wondering if there was a way to get rid of the headers that are duplicated when the files are merged. Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations