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

Ինչպե՞ս արագ 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 օր անվճար փորձարկում!
համատեղել սավանները
 
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 ֆայլերը: Տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ 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, այժմ բոլոր ստուգված թերթերն արտահանվում են որպես ընտրված պանակում ֆայլի նոր ձևաչափ:


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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (36)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, շատ շնորհակալ եմ կոդի նմուշների համար: Առաջինը (VBA. Ներմուծել բոլոր տեքստային ֆայլերը թղթապանակից աշխատանքային գրքույկ) գրեթե հենց այն է, ինչ ինձ անհրաժեշտ է: Այնուամենայնիվ, ես կցանկանայի ընտրել, թե որ ֆայլերը ներմուծել և ավտոմատ կերպով չներմուծել բոլոր տեքստային ֆայլերը որևէ տվյալ թղթապանակում: Ես նաև կցանկանայի, որ իմ թիրախային թերթերի ելքային բովանդակությունը վերագրվի տեքստային ֆայլերի բովանդակությամբ: (Վերևի կոդով առկա բովանդակությունը փոխարինվելու փոխարեն տեղափոխվում է աջ:) Ինչպե՞ս կարող եմ դա անել: Նախապես շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես կցանկանայի հասկանալ VBA կոդը «Ներմուծել բազմաթիվ Xml ֆայլեր մի թղթապանակից մեկ թերթիկ VBA-ով»: 1. Ինչու՞ է անհրաժեշտ 2 աշխատանքային գրքույկ 1-ի փոխարեն: 2. Շատ xml ֆայլեր excel-ում բեռնելու համար որոշ ժամանակ է պահանջվում, ուրեմն կա՞ ավելի արդյունավետ կոդ: Քանի որ ես հասկանում եմ, երբ ձեր կոդը գործարկվել է, շատ VBA աշխատանքային գրքույկներ են ստեղծվել, որոնք առաջացրել են դանդաղեցում: Ես իսկապես երախտապարտ կլինեմ, եթե օգնեք ինձ հասկանալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես չհասկացա ձեր առաջին հարցը, իսկ երկրորդի մասին՝ ավելի արդյունավետ ծածկագիրը, ես այն չեմ գտել, եթե գիտեք, խնդրում եմ ինձ համար գրություն թողեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես կցանկանայի հասկանալ VBA կոդի մասին «Բազմաթիվ .txt ֆայլերի ներմուծում VBA-ով թղթապանակից մեկ թերթ» ըստ հաջորդ հասանելի տողի (ոչ հորիզոնական): Խնդրում եմ օգնեք, շտապ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, եթե ցանկանում եք ներմուծել բոլոր txt ֆայլերը մեկ թղթապանակից մեկ թերթ, կարող եք օգտագործել վերը նշված vba կոդը՝ txt ֆայլերը նախ աշխատանքային գրքույկ ներմուծելու համար, այնուհետև կիրառեք Kutools for Excel-ի Combine Worksheets ֆունկցիան՝ աշխատանքային գրքի բոլոր թերթերը միավորելու համար: մեկ թերթ, ապա txt ֆայլերը թերթիկի մեջ: Հուսով եմ, որ դա օգնում է ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սրա խնդիրն այն է, որ VBA հրամանը կամ Kutools-ը թույլ են տալիս ներմուծել csv ֆայլերը նիշերի կոդի ձևաչափով: Նախաբեռնումը արևմտյան է։ Ես պետք է ներմուծեմ բոլոր csv ֆայլերը որպես unicode-8
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
txt ֆայլերից փոխարկելու կոդը ինձ մոտ չաշխատեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ներողություն, այս հոդվածը ձեզ համար չի աշխատում: Կարո՞ղ եք նկարագրել ձեր խնդիրը: Ի՞նչ է տեղի ունենում ծածկագիրը գործարկելիս: Իսկ ի՞նչ համակարգով եք աշխատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! «Ներմուծել csv ֆայլերը թղթապանակից մեկ աշխատանքային թերթիկի մեջ» կոդը, աշխատում է ինձ համար: Բայց այս կոդը չի աշխատում դատարկ .txt ֆայլի համար: Կա՞ որևէ միջոց դատարկ ֆայլերը պահելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ներեցեք, ես չգիտեմ, թե ինչու պետք է ներմուծել դատարկ txt.file~Պարզապես տեղադրեք դատարկ տողեր՝ բովանդակությունն առանձնացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մայք. «txt ֆայլերից փոխարկելու կոդը ինձ մոտ չաշխատեց»:

Ես ունեի նույն խնդիրը: Մակրո սխալները դուրս են գալիս, եթե դուք ունեք ավելի շատ txt ֆայլեր բացելու, քան ձեր աշխատանքային գրքում աշխատաթերթերը (կանխադրվածը 3 է):
Ես ուղղեցի այն՝ ավելացնելով հետևյալը հանգույցից անմիջապես առաջ, որպեսզի մակրոն մնացածից հետո ստեղծի նոր թերթ
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չադ, Սա հիանալի աշխատեց ինձ համար մի քանի տեքստային ֆայլեր ներմուծելու համար: Շնորհակալություն.

Գիտե՞ք, արդյոք կա ֆայլերի անունները քաշելու միջոց: Ես ուզում եմ, որ տեքստային ֆայլերի անունները պատճենվեն excel թերթի յուրաքանչյուր ներդիրում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բոլորովին զարմանալի! Փորձեցի բացել բոլոր csv ֆայլերը մեկ աշխատաթերթում և այն հիանալի աշխատեց: Շատ շնորհակալ եմ, իսկապես:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես փորձեցի գործարկել կոդը .xml-ի համար, և այն չաշխատեց, քանի որ ստացա «no files xml» հաղորդագրությունը: Ինչպե՞ս դա շտկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն կհայտնվի «no files xml» հաղորդագրություն, մինչդեռ ձեր ընտրած թղթապանակը չի պարունակում xml ֆայլեր: Դուք կարող եք ընտրել ճիշտ թղթապանակը, որը պարունակում է xml ֆայլեր բացվող երկխոսության մեջ՝ դրանք ակտիվ թերթիկ ներմուծելու կոդը գործարկելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա աշխատեց! Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, սայա մաու տանյա կալո իմպոր txt ֆայլ, թե սաթու թերթիկ գիմանա յա?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ռենդի, կցանկանա՞ք ներմուծել բոլոր txt-երը մեկ թերթիկ կամ յուրաքանչյուր txt յուրաքանչյուր թերթիկ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կոդ ունեմ txts ներմուծել թերթեր յուրաքանչյուր txt յուրաքանչյուր թերթիկ, բայց ես ուզում եմ, որ յուրաքանչյուր txt ներմուծվի իր անունով թերթիկ, նկատի ունեմ վերանվանել յուրաքանչյուր ներմուծված թերթը txt-ի անունով, կից կոդային ֆայլը: Ես ուզում եմ խմբագրել սա: ֆայլ՝ txts անունով թերթերը վերանվանելու համար կոդ ավելացնելու համար... շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ կոդ txts ներմուծելու համար, յուրաքանչյուր txt յուրաքանչյուր թերթիկ, բայց ես ուզում եմ, որ յուրաքանչյուր txt ներմուծվի իր անունով թերթիկ, նկատի ունեմ վերանվանել յուրաքանչյուր ներմուծված թերթը txt-ի անունով, կից կոդային ֆայլը .. շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ռամի, Զահրան, կարող եք փորձել ստորև բերված կոդը, որը կարող է ներմուծել տեքստային ֆայլերը և վերանվանել թերթի անունը տեքստային ֆայլի անունով:
Sub LoadPipeDelimitedFiles()
― ԹարմացնելովExtendoffice20180925
Dim xStrPath որպես տող
Խոնավեցրեք xFileDialog-ը որպես FileDialog
Խոնավեցրեք xFile-ը որպես տող
Dim xCount As Long
Dim xWS As Worksheet

Սխալի դեպքում GoTo ErrHandler
Սահմանել xFileDialog = Application.FileDialog (msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = Սխալ
xFileDialog.title = "Ընտրեք թղթապանակ [Kutools for Excel]"
Եթե ​​xFileDialog.Show = -1 Ապա
xStrPath = xFileDialog.SelectedItems(1)
Վերջ: Եթե
Եթե ​​xStrPath = "" Ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
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"))
.Name = "a" & xCount
.FieldNames = Ճշմարիտ
.Տողերի համարներ = Սխալ
.FillAdjacentFormulas = Սխալ
.PreserveFormatting = Ճիշտ է
.RefreshOnFileOpen = Սխալ
.RefreshStyle = xlInsertDeleteCells
.SavePassword = Սխալ
.SaveData = Ճիշտ է
.AdjustColumnWidth = Ճիշտ է
.RefreshPeriod = 0
.TextFilePromptOnRefresh = Սխալ
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = Սխալ
.TextFileTabDelimiter = Սխալ
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = Սխալ
.TextFileSpaceDelimiter = Սխալ
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = Ճշմարիտ
.Թարմացնել BackgroundQuery:=False
xFile = Ռեժ
Վերջ
Հանգույց
Դիմում. ScreenUpdating = ueիշտ է
Ելք ենթ
ErrHandler:
MsgBox «ոչ մի ֆայլ txt», , «Kutools for Excel»
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Ես օգտագործեցի կոդը մի քանի XML ֆայլեր մեկի մեջ միացնելու համար, բայց, ցավոք, սյունակները խառնվեցին: Միաձուլվող 5 ֆայլերը բոլորն էլ ունեին նույն ձևաչափը: Ինչևէ կա՞ սա շտկելու համար: Ես նաև մտածում էի, թե արդյոք կա՞ միջոց ազատվելու վերնագրերից, որոնք կրկնօրինակվում են ֆայլերի միաձուլման ժամանակ: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. Այս կայքը մեծ օգնություն է եղել: Ես ունեմ մեկ խնդիր, որը չեմ կարող պարզել. Ես փորձում եմ մի քանի csv ֆայլ ներմուծել excel-ի առանձին թերթիկներ excel-ում և յուրաքանչյուր թերթ վերանվանել csv ֆայլի ֆայլի անունով: Ես գիտեմ, որ սա ծածկված է ստորև txt ֆայլի համար, բայց ես աշխատում եմ csv ֆայլերի հետ: Նախապես շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն. Ես օգտագործում եմ բոլոր csv ֆայլերի ներմուծումը վերևում թվարկված մեկ ֆայլի մեջ «Ներմուծել մի քանի Csv ֆայլեր մի թղթապանակից մեկ թերթիկ VBA-ով» - ես կցանկանայի սահմանել այն թղթապանակը, որտեղից հավաքում է տվյալները՝ առանց ձեռքով ընտրելու: այն. Հնարավո՞ր է դա անել: շնորհակալություն - SW.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Scott W, ես գտա VBA կոդը, որը կարող է օգնել ձեզ:
Option Explicit- ը

Sub ImportCSVsWithReference()
Հեղինակ՝ Ջերի Բոկեր
'Ամսաթիվ՝ 10/16/2010
«Ամփոփում. Ներմուծեք բոլոր CSV ֆայլերը թղթապանակից մեկ թերթիկի մեջ
A սյունակում ավելացնելով CSV ֆայլերի անունները

Dim wbCSV որպես աշխատանքային գրքույկ
Dim wsMstr որպես աշխատանքային թերթ. Սահմանել wsMstr = ThisWorkbook.Sheets («Sheet1»)
Գունավոր fPath որպես տող. fPath = " C:\Users\DT168\Desktop\New folder\" 'ուղի դեպի CSV ֆայլեր, ներառեք վերջնական \
Dim fCSV որպես տող

Եթե ​​MsgBox («Մաքրել առկա թերթիկը ներմուծումից առաջ», vbYesNo, «Clear?») _
= vbYes Այնուհետեւ wsMstr.UsedRange.Clear

Application.ScreenUpdating = False 'արագացնել մակրո

fCSV = Dir(fPath & "*.csv") 'սկսել CSV ֆայլերի ցանկը

Do while Len(fCSV) > 0
«բացեք CSV ֆայլ
Սահմանել wbCSV = Workbooks.Open (fPath & fCSV)
«տեղադրեք col A և ավելացրեք CSV անունը
Սյունակներ (1). Տեղադրեք xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
«պատճենել ամսաթիվը գլխավոր թերթում և փակել սկզբնաղբյուր ֆայլը
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1)
wbCSV.Փակել կեղծ
պատրաստ է հաջորդ CSV-ն
fCSV = Ռեժ
Հանգույց

Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես վերացնել կրկնօրինակ վերնագիրը և 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, որպեսզի կարողանամ մի օր գրել իմ սեփական կոդերը, բայց առայժմ ես նույնիսկ չեմ կարողանում փոփոխել գոյություն ունեցող կոդերի մասերը իմ կարիքներին համապատասխան: Այսպիսով, եթե դուք կարող եք օգնել, խնդրում եմ, ասեք ինձ, թե որտեղ պետք է տեղադրեմ փոփոխված կոդերը (որոնք դուք առաջ եք եկել) գոյություն ունեցող կոդերի վրա: Ես գնահատում եմ բոլոր արձագանքներն ու աջակցությունը, որ կարող եմ ստանալ: Շնորհակալություն բոլորին!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մարշալ, Workbooks.Open մեթոդում ավելացրեք Local:=True տարբերակը:

այսինքն,
Սահմանել xWb = Workbooks.Open (xStrPath & "\" & xFile, Local:=True)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ Ռոբերտ. Կներեք, որ չկարողացա ավելի վաղ պատասխանել ձեզ: Մինչ այժմ ոչ մի ծանուցում չեմ ստացել։ Ես կփորձեմ սա և ավելի ուշ կվերադառնամ ձեզ, որպեսզի իմանամ, թե արդյոք սա աշխատում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ռոբերտ,
Նորից ես եմ: Ինձնից որոշ ժամանակ պահանջվեց, որպեսզի իրականում ժամանակ ունենայի՝ պարզելու, թե կոդի որ մասին պետք է ավելացվի «Local:True» մասը: Արդյունքը հիանալի ստացվեց, քանի որ ժամկետներն այլևս չեն փոխվում: Շնորհակալություն!
Բոլորի համար, ովքեր ունեն նույն խնդիրը, պարզապես փոխեք այս տողը.
Սահմանել xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)

Սրան.
Սահմանել xWb = Workbooks.Open (xStrPath & "\" & xFile, Local:=True)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, կա՞ որևէ տարբերակ ներմուծել բազմաթիվ csv ֆայլեր կետ-ստորակետով որպես բաժանարար: Շնորհակալություն!
Հ.Գ. Հաճելի հոդված:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն թիմ

Ես օգտագործում եմ մի քանի XML ֆայլեր VBA-ով մեկ թերթիկ ներմուծելու կոդը, սակայն խնդիրն այն է, երբ տողերի քանակը հասնում է մոտավորապես 650000-ի, այնուհետև այն չի մշակում մնացած xml ֆայլերը թղթապանակում և տալիս է սխալ, որ xml ֆայլեր չկան: . Այս թիվը մեծացնելու համար ձեր աջակցության կարիքն ունեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև փորձագետներ

Ես օգտագործում եմ վերը նշված կոդը VBA-ի միջոցով մի քանի xml ֆայլեր 1 աշխատաթերթ ներմուծելու համար, սակայն խնդիրն այն է, երբ տողերի քանակը հասնում է 650000 աշխատաթերթում, ապա այս կոդը չի մշակում թղթապանակի մնացած xml ֆայլերը: Այն տալիս է «no files.xml» սխալ: Պահանջեք ձեր բարի աջակցությունը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Excel փաստաթղթի մեկ ներդիրում մի քանի xml ներմուծելու հրահանգներն աշխատում են, բայց մտածում էի, թե ինչպես սյունակները շարել: Իմ xml-ները ոչ բոլորն ունեն նույն պիտակները: Դրանք ստեղծվել են այնպես, որ եթե xml-ը տվյալներ չունի որոշ վերնագրերի (պիտակների) համար, ապա վերնագիրը բացակայում է այդ xml-ից: Արդյո՞ք կա xml-ները ներմուծելու միջոց, որպեսզի յուրաքանչյուր xml-ի և հարակից տվյալների նույն վերնագրերը ընկնեն excel-ի նույն սյունակում:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից