Kako uvoziti več besedilnih datotek na več listov?
Recimo, da je v mapi vašega računalnika več besedilnih datotek, zdaj pa želite te besedilne datoteke uvoziti v Excelov delovni zvezek in vsako besedilno datoteko postaviti na ločene delovne liste. Kopiranje in lepljenje posamezne besedilne datoteke na delovni list bo zapravilo veliko časa. Tu lahko govorim o nekaj trikih, s katerimi boste rešili to težavo.
Uvozite več besedilnih datotek v ločene delovne liste s kodo VBA
Delovni zvezek razdelite na več ločenih datotek text / pdf / csv / xlsx s programom Kutools za Excel
Uvozite več besedilnih datotek v ločene delovne liste s kodo VBA
Naslednja koda VBA vam lahko pomaga uvoziti vsako besedilno datoteko na ločene liste v novi delovni zvezek naenkrat, naredite naslednje:
1. Držite tipko ALT + F11 tipke v Excelu, da odprete Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Uvozi več besedilnih datotek na ločene delovne liste:
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. Ko prilepite zgornjo kodo, pritisnite F5 tipko za zagon te kode in v pojavnem oknu določite mapo, ki vsebuje besedilne datoteke, pojdite v mapo in izberite besedilne datoteke, ki jih želite uvoziti na delovne liste, glejte posnetek zaslona:
4. Nato kliknite Odprto , so bile vse izbrane besedilne datoteke uvožene v nov delovni zvezek in vsaka datoteka na enem delovnem listu posebej.
5. Končno lahko novi delovni zvezek shranite po potrebi.
Delovni zvezek razdelite na več ločenih datotek text / pdf / csv / xlsx s programom Kutools za Excel
Včasih boste morda morali opraviti nekaj nasprotnih operacij zgoraj navedene naloge, to pomeni, da boste morali razdeliti delovni zvezek, da ločite besedilne datoteke. Kutools za ExcelJe Razdeljeni delovni zvezek pripomoček vam lahko pomaga hitro in enostavno rešiti to nalogo.
Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj! )
1. Aktivirajte delovni zvezek, ki ga želite razdeliti na več besedilnih datotek.
2. Kliknite Podjetje > Delovni zvezek > Razdeljeni delovni zvezek, glej posnetek zaslona:
3. v Razdeljeni delovni zvezek pogovorno okno:
(1.) Označite delovne liste, ki jih želite razdeliti.
(2.) Preverite Določite obliko shranjevanja, nato izberite obliko datoteke, ki jo želite shraniti, na primer lahko izberete txt, csv, pdf, xlsx or xls datoteke, kot jo potrebujete.
(3.) Nato kliknite Split gumb, v naslednjem pozivnem polju določite mapo za izpis ločenih datotek.
4. Nato kliknite OK in izbrani delovni listi se bodo razdelili in shranili v želeno mapo v obliki, kot jo potrebujete.
Brezplačno prenesite Kutools za Excel zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!