Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արագ Excel- ում ներմուծել բազմաթիվ csv / text / xml ֆայլեր:

Excel- ում դուք գուցե կապվել եք աշխատանքային գիրքը որպես csv ֆայլ, տեքստային ֆայլ կամ xml ֆայլ պահելու համար, բայց երբևէ փորձե՞լ եք թղթապանակից բազմաթիվ csv / text / xml ֆայլեր ներմուծել աշխատանքային գրքույկ կամ աշխատանքային թերթ: Այս հոդվածում ես ներկայացնում եմ որոշ մեթոդներ դրանք արագորեն խմբաքանակով ներմուծելու համար:

Ներմուծեք բազմաթիվ տեքստային ֆայլեր թղթապանակից VBA- ի հետ աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթի մեջ

Ներմուծեք բազմաթիվ csv ֆայլեր թղթապանակից VBA- ով մեկ թերթի մեջ

Ներմուծեք բազմաթիվ xml ֆայլեր թղթապանակից VBA- ով մեկ թերթի մեջ

Excel- ի համար Kutools- ի հետ ներմուծեք կամ միացրեք բազմաթիվ xml / csv ֆայլեր թերթիկի կամ աշխատանքային գրքի մեջ լավ գաղափար 3

Արտահանեք յուրաքանչյուր թերթ որպես csv / text / pdf որպես Excel- ի համար նախատեսված Kutools- ի պանակլավ գաղափար 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 գործարկման կոճակը և ելնող երկխոսության մեջ ընտրեք այն թղթապանակը, որը ցանկանում եք ներմուծել տեքստային ֆայլերը: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 1

4. Եվ կտտացրեք OK, և ընտրված թղթապանակի յուրաքանչյուր տեքստային ֆայլ ներմուծվել է ակտիվ աշխատանքային գրքի մեկ աշխատանքային թերթ: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 2փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 3

Հեշտությամբ միացրեք մի քանի թերթ / աշխատանքային գրքույկ մեկ եզակի թերթի կամ աշխատանքային գրքի մեջ

Բազմապատկերի թերթերը կամ աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ միավորելը Excel- ում կարող է համառ լինել, բայց հետևյալով Միավորել գործառույթ Kutools- ում Excel- ի համար, դուք կարող եք միավորել տասնյակ թերթեր / աշխատանքային գրքեր մեկ թերթիկի կամ աշխատանքային գրքի մեջ, ինչպես նաև կարող եք միավորել թերթերը միայն մեկ կտտոցով:  Կտտացրեք լիարժեք 30 օր անվճար փորձաշրջանի համար:
համատեղել սավանները
 
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 ֆայլերը: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 4

4: սեղմեք OK, և դուրս կգա երկխոսություն ՝ հիշեցնելու համար, եթե ակտիվ ներմուծումից առաջ մաքրեք ակտիվ աշխատանքային թերթի բովանդակությունը, այստեղ ես կտտացնում եմ այո, Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 5

Սեղմելուց հետո այո, ընտրված թղթապանակի բոլոր csv ֆայլերը ներմուծվում են ընթացիկ թերթի մեջ և տեղադրում են տվյալները A սյունակից աջ: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 6փաստաթուղթ ներմուծել բազմաթիվ 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 

փաստաթուղթ ներմուծել բազմաթիվ 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 գործարկելու ստեղնը և դուրս գացող երկխոսության մեջ պանակ ընտրելու համար տե՛ս նկարը.

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 9

4: սեղմեք OK, և ընտրված թղթապանակի բոլոր XML ֆայլերը ներմուծվում են ակտիվ թերթի մեջ:


Եթե ​​դուք ծանոթ չեք VBA- ին, անհանգստացեք, այստեղ ես ներկայացնում եմ հարմար գործիք - Excel- ի համար նախատեսված գործիքներ քեզ համար. Իր հզորով Միավորել օգտակար, դուք կարող եք արագորեն համատեղել բազմաթիվ xml ֆայլեր կամ csv ֆայլեր մեկ աշխատանքային գրքի կամ մեկ Excel թերթի մեջ:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ակտիվ Excel և կտտացրեք Kutools Plus > Միավորել, Տեսեք սքրինշոթը
փաստաթուղթ միավորել 1

2. Եվ միավորել 1-ը քայլը երկխոսություն, ընտրեք մեկ տարանջատման տարբերակ, որքան անհրաժեշտ է: Տեսեք,
փաստաթուղթ միավորել 2

3: սեղմեք հաջորդ գնալ կոմբինատի 2-րդ քայլըՀամար Ավելացնել տարբեր պանակներից ֆայլեր կամ մեկ թղթապանակից ֆայլեր ավելացնելու համար Աշխատանքային տետր ցուցակը, և նաև կարող եք նշել այն թերթերը, որոնցից ցանկանում եք համատեղել Աշխատանքային թերթիկ աջ բաժնի ցուցակ: Տեսեք,
doc kutools- ը համատեղում է թերթերը 3

4: սեղմեք հաջորդ դեպի վերջին մեկ քայլը Միավորել, և կարող եք նշել կոմբինատի ընտրանքները:
doc kutools- ը համատեղում է թերթերը 4

5: սեղմեք Ավարտել, բացվում է երկխոսություն ՝ հիշեցնելու համար, որ դուք ընտրեք տեղ ՝ նոր համակցված արդյունքը փրկելու համար: Տեսեք,
փաստաթուղթ միավորել 5

6: սեղմեք Փրկել, Բոլոր ավելացնող թերթերը միավորվել են նոր մեկ թերթի մեջ:
փաստաթուղթ միավորել 6

Ձեր պատասխանը ուղարկված չէ: հետ Միավորել, Դուք նաև կարող եք համատեղել բազմակի CSV ֆայլեր մի քանի թղթապանակ կամ մեկ թղթապանակ կազմեք մեկ թերթիկի կամ աշխատանքային գրքի:


Եթե ​​ցանկանում եք յուրաքանչյուր թերթ որպես csv / text / pdf ֆայլ արտահանել թղթապանակ, Excel- ի համար նախատեսված գործիքներ'S Պառակտում աշխատանքային գրքույկ օգտակարությունը կարող է լավություն անել ձեզ համար:

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Միացրեք այն աշխատանքային գիրքը, որը ցանկանում եք արտահանել դրա աշխատանքային թերթերը և կտտացնել Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 10

2. Մեջ Պառակտում աշխատանքային գրքույկ երկխոսություն, կարող եք ստուգել թերթի անունները, որոնք ձեզ հարկավոր է արտահանել, լռելյայնորեն բոլոր թերթերը ստուգված են և ստուգել Նշեք պահպանման ձևաչափը և ներքևի բացվող ցուցակից ընտրեք ֆայլի ձևաչափը, որը ցանկանում եք պահպանել: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 11

3: սեղմեք պառակտում և ընտրեք պանակ, որը պառակտված ֆայլերը պահելու համար Թերթիր Թղթապանակում երկխոսություն, տես նկարի նկարը.

փաստաթուղթ ներմուծել բազմաթիվ csv տեքստ xml 12

4: սեղմեք OK, այժմ բոլոր ստուգված թերթերն արտահանվում են որպես ընտրված պանակում ֆայլի նոր ձևաչափ:


Հարաբերական հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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