Як імпортувати кілька текстових файлів на кілька аркушів?
Припустимо, що в папці вашого комп’ютера є кілька текстових файлів, тепер ви хочете імпортувати ці текстові файли до книги Excel і розмістити кожен текстовий файл на окремих робочих аркушах. Копіювання та вставлення кожного текстового файлу на робочий аркуш по черзі витратить багато часу. Тут я можу поговорити про деякі трюки для вирішення цієї проблеми.
Імпортуйте кілька текстових файлів на окремі аркуші з кодом VBA
Імпортуйте кілька текстових файлів на окремі аркуші з кодом VBA
Наступний код VBA може допомогти вам імпортувати кожен текстовий файл одночасно на окремі аркуші нової книги, будь-ласка, виконайте такі дії:
1. Утримуйте клавішу ALT + F11 клавіші в Excel, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Імпортуйте кілька текстових файлів на окремі аркуші:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Після вставки вищевказаного коду натисніть F5 клавішу для запуску цього коду, і у спливаючому вікні вкажіть папку, яка містить текстові файли, перейдіть до папки, щоб вибрати текстові файли, які потрібно імпортувати на робочі аркуші, див. знімок екрана:
4. Потім натисніть відкритий , усі вибрані текстові файли були імпортовані до нової книги, і кожен файл, розташований на одному аркуші, окремо.
5. Нарешті, ви можете зберегти нову книгу, як вам потрібно.
Розділіть робочу книгу на кілька окремих текстових / pdf / csv / xlsx файлів за допомогою Kutools для Excel
Іноді вам може знадобитися виконати кілька протилежних операцій із вищезазначеного завдання, тобто вам потрібно розділити книгу на окремі текстові файли. Kutools для ExcelАвтора Роздільна робоча книга утиліта допоможе вам швидко та легко вирішити цю роботу.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз! )
1. Активуйте книгу, яку потрібно розділити, на кілька текстових файлів.
2. Клацання підприємство > робочий зошит > Роздільна робоча книга, див. скріншот:
3, в Роздільна робоча книга діалогове вікно:
(1.) Перевірте робочі аркуші, які потрібно розділити.
(2.) Перевірте Вкажіть формат збереження, потім виберіть формат файлу, який потрібно зберегти, наприклад, ви можете вибрати TXT, CSV, PDF, XLSX or XLS формат файлу, як вам потрібно.
(3.) Потім натисніть розщеплений , у наступному вікні запиту вкажіть папку для виведення окремих файлів.
4. Потім натисніть OK , і вибрані вами робочі аркуші будуть розділені та збережені у потрібній папці із необхідним форматом.
Безкоштовно завантажте Kutools для Excel зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!