Kako uvoziti več besedilnih datotek iz mape na en delovni list?

Tu imate na primer mapo z več besedilnimi datotekami, ki jih želite uvoziti v en delovni list, kot je prikazano spodaj. Namesto kopiranja besedilnih datotek eno za drugo, obstajajo kakšni triki za hiter uvoz besedilnih datotek iz ene mape na en list?

Uvozite več besedilnih datotek iz ene mape v en list z VBA

Uvozite besedilno datoteko v aktivno celico s programom Kutools za Excel

Uvozite več besedilnih datotek iz ene mape v en list z VBA

Tukaj je koda VBA, ki vam lahko pomaga uvoziti vse besedilne datoteke iz ene določene mape na nov list.

1. Omogočite delovni zvezek, v katerega želite uvoziti besedilne datoteke, in pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, kopirajte in prilepite spodnjo kodo VBA v Moduli okno.

VBA: Uvozi več besedilnih datotek iz ene mape na en list

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. Pritisnite F5 , da prikažete pogovorno okno in izberite mapo, ki vsebuje besedilne datoteke, ki jih želite uvoziti. Oglejte si posnetek zaslona:

4. klik OK. Nato so bile besedilne datoteke ločeno uvožene v aktivni delovni zvezek kot nov list.

Uvozite besedilno datoteko v aktivno celico s programom Kutools za Excel

Če želite uvoziti eno besedilno datoteko v določeno celico ali obseg, se lahko prijavite Kutools za ExcelJe Vstavite datoteko v kazalec uporabnost.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite celico, v katero želite uvoziti besedilno datoteko, in kliknite Kutools Plus > Uvozno-izvoznih > Vstavite datoteko v kazalec. Oglejte si posnetek zaslona:

2. Nato se odpre pogovorno okno, kliknite Brskanje za prikaz Izberite datoteko za vstavitev v pogovorno okno položaja kurzorja celice, nato izberite Besedilne datoteke s spustnega seznama in nato izberite besedilno datoteko, ki jo želite uvoziti. Oglejte si posnetek zaslona:

3. klik Odprto > Ok, in podana besedilna datoteka je bila vstavljena na položaj kazalca, glejte posnetek zaslona: