Jak zaimportować wiele plików tekstowych z folderu do jednego arkusza?
Na przykład tutaj masz folder z wieloma plikami tekstowymi, co chcesz zrobić, to zaimportować te pliki tekstowe do jednego arkusza roboczego, jak pokazano poniżej. Czy zamiast kopiować pliki tekstowe jeden po drugim, są jakieś sztuczki, aby szybko importować pliki tekstowe z jednego folderu do jednego arkusza?
Importuj wiele plików tekstowych z jednego folderu do jednego arkusza za pomocą VBA
Importuj plik tekstowy do aktywnej komórki za pomocą Kutools for Excel
Importuj wiele plików tekstowych z jednego folderu do jednego arkusza za pomocą VBA
Oto kod VBA, który pomoże Ci zaimportować wszystkie pliki tekstowe z jednego określonego folderu do nowego arkusza.
1. Włącz skoroszyt, do którego chcesz importować pliki tekstowe, i naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, skopiuj i wklej poniższy kod VBA do pliku Moduł okno.
VBA: Importuj wiele plików tekstowych z jednego folderu do jednego arkusza
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. naciśnij F5 aby wyświetlić okno dialogowe i wybierz folder zawierający pliki tekstowe, które chcesz zaimportować. Zobacz zrzut ekranu:
4. kliknij OK. Następnie pliki tekstowe zostały zaimportowane do aktywnego skoroszytu oddzielnie jako nowy arkusz.
Importuj plik tekstowy do aktywnej komórki za pomocą Kutools for Excel
Jeśli chcesz zaimportować jeden plik tekstowy do określonej komórki lub zakresu, możesz zastosować Kutools dla programu Excel'S Wstaw plik do kursora użyteczność.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. | ||
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz komórkę, do której chcesz zaimportować plik tekstowy, i kliknij Kutools Plus > Import Eksport > Wstaw plik do kursora. Zobacz zrzut ekranu:
2. Następnie pojawi się okno dialogowe, kliknij Przeglądaj wyświetlić Wybierz plik do wstawienia w oknie dialogowym pozycji kursora komórki, następnie wybierz Pliki tekstowe z listy rozwijanej, a następnie wybierz plik tekstowy, który chcesz zaimportować. Zobacz zrzut ekranu:
3. kliknij Otwarte > Ok, a określony plik tekstowy został wstawiony w pozycji kursora, patrz zrzut ekranu:
Importuj / wstaw plik tekstowy pod kursorem
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!