İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də birdən çox csv / text / xml faylları toplu idxal etmək necədir?

Excel-də csv faylı, mətn faylı və ya xml faylı kimi iş kitabını saxlamaq üçün bağlı ola bilərsiniz, amma bir csv / text / xml faylları bir qovluqdan bir iş kitabına və ya bir iş formasına idxal etməyə çalışdın? Bu yazıda, tez bir zamanda onları idxal etmək üçün bəzi üsulları təqdim edirəm.

VBA ilə iş kitabının hər bir iş kitabçasına bir qovluqdakı birdən çox mətn faylını idxal edin

Bir qovluqdan birdən çox csv faylını VBA ilə birləşdirilmiş bir hesabata daxil et

Birdən çox xml faylları bir qovluqdan VBA ilə bir sətrə daxil edin

Birdən çox xml / csv faylını bir qutuda və ya Excel üçün Kutools ilə iş kitabına daxil edin və ya birləşdirin yaxşı fikir3

Hər bir hesabatı csv / text / pdf olaraq Excel üçün Kutools olan qovluğa ixrac edinyaxşı fikir3


Asanlıqla birdən çox təbəqəni / iş kitabını vahid hesabatı və ya iş dəftərinə birləşdirin

Bir neçə hesabat və ya iş kitabını bir hesabat və ya iş kitabına birləşdirmək üçün Excel-də mükəmməl ola bilər, ancaq Combine Excel üçün Kutools funksiyasında bir çox hesabatı və ya iş kitabını düzəldərək düzəldə bilərsiniz ki, bir neçə klik ilə birləşdirə bilərsiniz. Tam xüsusiyyətli 60 gün pulsuz sınaq üçün tıklayın!
çarxlar birləşdirir
Excel üçün Kutools: 300 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.


Bir qovluqdan bir iş kitabına mətn faylları idxal etmək üçün, onu tez idarə etmək üçün VBA-nın altından istifadə edə bilərsiniz.

1. Boş bir iş kitabını aktivləşdirin və basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, və VBA üçün yapışdırıb Modules pəncərə.

VBA: Bütün mətn fayllarını bir qovluqdan iş kitabına daxil edin

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. Basın F5 açar və ya qaçış VBA'yı çalıştırmak üçün düyməsini basın və açılan informasiya qutusunda mətn fayllarını idxal etmək istədiyiniz qovluğu seçin. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 1

4. Və basın OK, seçilmiş qovluqdakı hər bir mətn faylı aktiv iş kitabının bir iş səhifəsinə daxil edilmişdir. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 2doc idxal çox csv mətn xml 3

Bütün csv faylları bir qovluğu bir vahid halına gətirmək üçün VBA kodu aşağıda istifadə edə bilərsiniz.

1. Boş bir iş səhifəsini aktivləşdirin və basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modulesvə VBA-nın altına yeni daxil olun Modules pəncərə.

VBA: Csv fayllarını qovluqdan bir iş səhifəsinə daxil edin

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. Basın F5 düyməsini basın və ya basın qaçış VBA'yı yerinə yetirmək üçün düyməsini basın və bütün csv fayllarını idxal etmək istədiyiniz qovluğu seçmək üçün bir dialoq çıxır. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 4

4. klik OKvə işə salmadan əvvəl aktiv işin məzmununu təmizləməyinizi xatırlatmaq üçün bir dialoq açılır, bura basın bəli. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 5

Kliklədikdən sonra bəli, seçilmiş qovluqdakı bütün csv faylları cari səhifəyə daxil edilir və məlumatları Sütun A'dan sağa yerləşdirin. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 6doc idxal çox csv mətn xml 7

Ip ucu: Csv fayllarını bir iş yerində yatay olaraq yerləşdirmək istəyirsinizsə, VBA-dan aşağıda istifadə edə bilərsiniz.

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 idxal çox csv mətn xml 8


Bütün XML fayllarını bir qovluqdan bir sənədə daxil etmək istəyirsinizsə, VBA kodunun altından istifadə edə bilərsiniz.

1. İthal olunmuş məlumatları yerləşdirmək istədiyiniz boş bir hesabatı seçin və basın Alt + F11 düymələri aktivləşdirmək Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, VBA kodunu yapışdırıb Modules pəncərə.

VBA: XML fayllarını qovluqdan iş səhifəsinə daxil edin.

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. klik qaçış düyməsinə və ya F5 VBA'yı idarə etmək üçün açar düyməsini basın və açılan informasiya qutusunda bir qovluq seçin, ekran görünüşünə baxın:

doc idxal çox csv mətn xml 9

4. klik OKvə seçilmiş qovluqdakı bütün XML faylları aktiv səhifəyə daxil edilir.


VBA ilə tanış deyilsinizsə, narahat ol, burada mənə lazımlı bir vasitə təqdim etdim - Excel üçün Kutools sənin üçün. Güclü Birləşdirmək kommunal, birdən çox xml faylları və ya csv faylları bir iş kitabçasına və ya bir Excel hesabına tez birləşdirə bilərsiniz.

Excel üçün Kutools, daha çox 300 lazımlı funksiyaları, işinizi daha asanlaşdırır.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakıları edin:(Excel İndi Pulsuz İndir Kutools!)

1. Aktif Excel və basın Müəssisə > Birləşdirmək. Ekran görüntüsünə baxın:
doc 1 birləşdirir

2. Və də 1 addım birləşməsindən dialoq, lazım olduğunuzda bir ayırma seçimi seçin. Ekran görüntüsünə baxın:
doc 2 birləşdirir

3. klik sonrakı getmək Birləşmənin 2 addımıBasın əlavə etmək bir qovluqdan müxtəlif qovluq və ya fayllardan faylları əlavə etmək İş kitabı siyahıdan, həmçinin birləşdirmək istədiyiniz çarxları göstərə bilərsiniz İş sağ hissəsinin siyahısı. Ekran görüntüsünə baxın:
doc 3 birləşdirir

4. klik sonrakı Sonuncu bir addım Birləşdirməkvə variantları göstərə bilərsiniz.

1) Başlıq satırın nömrəsini göstərin

2) Əlavə iş məlumatı məlumatına qərar verin

3) Boş yer silin və ya verməyin

4) Yapıştır seçimini göstərin
doc 4 birləşdirir

5. klik finişyeni birləşmənin nəticəsini saxlamaq üçün bir yer seçdiyinizi xatırlatmaq üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
doc 5 birləşdirir

6. klik Yadda saxla. Bütün əlavə vərəqlər yeni bir səhifədə birləşdirilir.
doc 6 birləşdirir

Ip ucu: ilə Birləşdirmək, birdən çoxu birləşdirə bilərsiniz CSV faylları Bir neçə qovluq və ya bir qovluq bir səhifəyə və ya iş kitabına daxil edin.


Hər bir hesabatı csv / text / pdf faylı kimi qovluğa vermək istəyirsinizsə, Excel üçün Kutools'S Split İş Kitabı yardım sizin üçün bir xeyir verə bilər.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Çalışma kitablarını ixrac etmək istədiyiniz iş kitabını aktivləşdirin və vurun Müəssisə > İş kitabı > Split İş Kitabı. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 10

2. İçində Split İş Kitabı dialoq, ixrac etmək üçün lazım olan hesabat adlarını yoxlaya bilərsiniz, bütün şəkillər yoxlanılır və yoxlayın Saxlama formatını göstərin və aşağıda açılır siyahıdan qeyd etmək istədiyiniz fayl formatını seçin. Ekran görüntüsünə baxın:

doc idxal çox csv mətn xml 11

3. klik Split split faylları saxlamaq üçün bir qovluq seçin Folder üçün gözdən keçirin dialoq, bax ekran görüntüsü:

doc idxal çox csv mətn xml 12

4. klik OK, indi bütün qeyd olunan səhifələr seçilmiş qovluğa yeni fayl formatı kimi ixrac olunur.


birdən çox XLSX çevirmək. XLS və ya PDF faylları. faylları bir dəfə

Bir çox hallarda, XLSX və XLS arasında çevirmək və ya iş kitabını PDF faylına çevirmək istəyə bilərsiniz, ancaq Excel-də bir iş kitabını bir dəfə çevirə bilərsiniz, birdən çox iş kitabını bir dəfəyə çevirmək üçün heç bir şəkildə görüntülüyorsunuz? Ilə Excel üçün Kutools's File Format Convertertez bir zamanda birdən çox iş kitabını birbaşa pdf / 97-2003 iş kitabına / 2007 və ya daha yüksək iş kitabçasına çevirə və bir qovluqda saxlaya, eyni zamanda çevrilən bir hesabat yarada bilər! 60 gün pulsuz sınaq üçün tıklayın!
doc fayl çeviricisi
Excel üçün Kutools: 300 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Əlaqədar məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jake Howard · 1 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Shea · 7 months ago
    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!
  • To post as a guest, your comment is unpublished.
    Ramy Zahran · 7 months ago
    i have code to import txts to sheets each txt to each sheet, but i want every txt be imported with its name to sheet , i mean rename every imported sheet with the name of the txt the code file attatched .. thanks
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Hello, Ramy, zahran, you can try below code which can import the text files and rename the sheet name to the text file name.
      Sub LoadPipeDelimitedFiles()
      'UpdatebyExtendoffice20180925
      Dim xStrPath As String
      Dim xFileDialog As FileDialog
      Dim xFile As String
      Dim xCount As Long
      Dim xWS As Worksheet

      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
      Set xWS = Sheets(xCount)
      xWS.Select
      xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
      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
  • To post as a guest, your comment is unpublished.
    rendy · 8 months ago
    hello, saya mau tanya kalo impor txt file ke satu sheet gimana ya?
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Hello, rendy, would you want to import all txts to one sheet or each txt to each sheet?
      • To post as a guest, your comment is unpublished.
        Ramy Zahran · 7 months ago
        i have code to import txts to sheets each txt to each sheet, but i want every txt be imported with its name to sheet , i mean rename every imported sheet with the name of the txt the code file attatched .. i want to edit this file to add code for renaming sheets with txts name ... thanks.
  • To post as a guest, your comment is unpublished.
    Hey · 8 months ago
    It worked! Thanks