Hogyan importálhat több szövegfájlt több lapra?
Tegyük fel, hogy a számítógép mappájában több szövegfájl található, most ezeket a szöveges fájlokat importálni szeretné egy Excel munkafüzetbe, és mindegyik szövegfájlt külön munkalapokra kell helyezni. Az egyes szöveges fájlok egyesével történő másolása és beillesztése a munkalapra sok időt pazarol, itt néhány trükköt tudok mondani Önnek a probléma megoldására.
Több szöveges fájlt importálhat a VBA kóddal ellátott munkalapokra
Több szöveges fájlt importálhat a VBA kóddal ellátott munkalapokra
A következő VBA-kód segíthet az egyes szövegfájlok külön lapokba történő importálásában egy új munkafüzetben egyszerre, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 kulcsokat az Excel programban a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA-kód: Több szövegfájl importálása külön munkalapokra:
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. A fenti kód beillesztése után nyomja meg a gombot F5 gombot a kód futtatásához, és a felbukkanó ablakban adja meg a szöveges fájlokat tartalmazó mappát, és lépjen a mappába, hogy kiválassza a munkalapokra importálni kívánt szöveges fájlokat, lásd a képernyőképet:
4. Ezután kattintson Nyisd ki gombra kattintva az összes kijelölt szövegfájlt importálta egy új munkafüzetbe, és mindegyik fájl külön-külön egy munkalapon található.
5. Végül szükség szerint mentheti az új munkafüzetet.
Osszon fel egy munkafüzetet több különálló szöveges / pdf / csv / xlsx fájlra a Kutools for Excel segítségével
Előfordulhat, hogy a fenti feladattal ellentétes műveleteket kell végrehajtania, vagyis fel kell osztania egy munkafüzetet a szövegfájlok elválasztására. Kutools az Excel számára'S Felosztott munkafüzet segédprogram segítségével gyorsan és egyszerűen megoldhatja ezt a munkát.
| Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket :( Ingyenesen töltse le a Kutools for Excel programot most! )
1. Aktiválja a több szövegfájlra bontani kívánt munkafüzetet.
2. Kattints Vállalkozás > Munkafüzet > Felosztott munkafüzet, lásd a képernyőképet:
3. Az Felosztott munkafüzet párbeszédablak:
(1.) Jelölje be a felosztani kívánt munkalapokat.
(2.) Ellenőrizze Adja meg a mentési formátumot, majd válassza ki a menteni kívánt fájlformátumot, például kiválaszthatja txt, csv, pdf, xlsx or xls fájlformátum, amire szüksége van.
(3.) Ezután kattintson Hasított gombra, a következő prompt mezőben adjon meg egy mappát a külön fájlok kiadásához.
 |
 |
 |
4. Ezután kattintson OK gombot, és a kiválasztott munkalapok fel lesznek osztva, és a kívánt mappába kerülnek a kívánt formátumban.
Ingyenesen töltse le a Kutools for Excel programot most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
