Sut i swp-fewnforio ffeiliau csv / text / xml lluosog yn Excel yn gyflym?
Yn Excel, efallai eich bod wedi clymu i gadw llyfr gwaith fel ffeil csv, ffeil testun neu ffeil xml, ond a ydych erioed wedi ceisio mewnforio sawl ffeil csv / text / xml o ffolder i mewn i lyfr gwaith neu daflen waith? Yn yr erthygl hon, rwy'n cyflwyno rhai dulliau i'w swpio'n gyflym i'w mewnforio.
Mewnforio ffeiliau testun lluosog o ffolder i bob taflen waith llyfr gwaith gyda VBA
Mewnforio ffeiliau csv lluosog o ffolder i mewn i un ddalen gyda VBA
Mewngludo ffeiliau xml lluosog o ffolder i mewn i un ddalen gyda VBA
Mewnforio neu gyfuno ffeiliau xml / csv lluosog i mewn i daflen neu lyfr gwaith gyda Kutools ar gyfer Excel
Allforiwch bob dalen fel csv / text / pdf i ffolder gyda Kutools ar gyfer Excel
Mewnforio ffeiliau testun lluosog o ffolder i bob taflen waith llyfr gwaith gyda VBA
I fewnforio ffeiliau testun o ffolder i lyfr gwaith, gallwch ddefnyddio isod VBA i'w drin yn gyflym.
1. Galluogi llyfr gwaith gwag, a gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y VBA i'r Modiwlau ffenestr.
VBA: Mewnforio pob ffeil testun o ffolder i mewn i lyfr gwaith
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub
3. Gwasgwch F5 allweddol neu Run botwm i redeg y VBA, a dewis ffolder rydych chi am fewnforio'r ffeiliau testun ohono yn y dialog popping. Gweler y screenshot:
4. A chlicio OK, ac mae pob ffeil testun yn y ffolder a ddewiswyd wedi'i fewnforio i un daflen waith o'r llyfr gwaith gweithredol. Gweler y screenshot:
Cyfuno sawl taflen / llyfr gwaith yn hawdd mewn un ddalen sengl neu lyfr gwaith
|
Er mwyn cyfuno lluosrifau neu lyfrau gwaith yn un ddalen neu lyfr gwaith, gall fod yn ddifyr yn Excel, ond gyda'r Cyfunwch swyddogaeth yn Kutools ar gyfer Excel, gallwch gyfuno uno dwsinau o daflenni / llyfrau gwaith i mewn i un ddalen neu lyfr gwaith, hefyd, gallwch chi gyfuno'r taflenni yn un trwy sawl clic yn unig. Cliciwch ar gyfer treial llawn sylw 30 diwrnod am ddim! |
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Mewnforio ffeiliau csv lluosog o ffolder i mewn i un ddalen gyda VBA
I fewnforio'r holl ffeiliau csv i ffurfio ffolder i mewn i un ddalen, gallwch ei defnyddio o dan god VBA.
1. Galluogi taflen waith wag, a gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan VBA i'r newydd Modiwlau ffenestr.
VBA: Mewnforio ffeiliau csv o ffolder i mewn i un daflen waith
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
3. Gwasgwch F5 allwedd neu cliciwch Run botwm i weithredu'r VBA, ac mae deialog yn galw allan i ddewis ffolder rydych chi am fewnforio pob ffeil csv ohono. Gweler y screenshot:
4. Cliciwch OK, ac mae deialog yn galw allan i'ch atgoffa os yw'n glir cynnwys taflen waith weithredol cyn ei mewnforio, dyma fi'n clicio Ydy. Gweler y screenshot:
Ar ôl clicio Ydy, mae'r holl ffeiliau csv yn y ffolder a ddewiswyd yn cael eu mewnforio i'r ddalen gyfredol, ac yn gosod data o Golofn A i'r dde. Gweler y screenshot:
Tip: Os ydych chi am osod ffeiliau csv yn llorweddol mewn taflen waith, gallwch eu defnyddio isod VBA.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
Mewngludo ffeiliau xml lluosog o ffolder i mewn i un ddalen gyda VBA
Os ydych chi am fewnforio pob ffeil XML o ffolder i mewn i un ddalen, gallwch ddefnyddio isod cod VBA.
1. Dewiswch ddalen wag rydych chi am osod y data a fewnforiwyd, a gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, pastiwch god VBA i'r Modiwlau ffenestr.
VBA: Mewnforio ffeiliau XML o ffolder i mewn i daflen waith.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub
3. Cliciwch Run botwm neu F5 allwedd i redeg y VBA, a dewis ffolder yn y dialog popping, gweler y screenshot:
4. Cliciwch OK, ac mae'r holl ffeiliau XML yn y ffolder a ddewiswyd yn cael eu mewnforio i'r ddalen weithredol.
Mewnforio neu gyfuno ffeiliau xml / csv lluosog i mewn i daflen neu lyfr gwaith gyda Kutools ar gyfer Excel
Os nad ydych chi'n gyfarwydd â VBA, peidiwch â phoeni, dyma fi'n cyflwyno teclyn defnyddiol - Kutools ar gyfer Excel i chi. Gyda'i bwerus Cyfunwch cyfleustodau, gallwch gyfuno ffeiliau xml lluosog neu ffeiliau csv yn gyflym i mewn i un llyfr gwaith neu un ddalen Excel.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. | ||
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)
1. Excel Gweithredol, a chlicio Kutools Byd Gwaith > Cyfunwch. Gweler y screenshot :
2. Ac yn y cam 1 o Cyfuno deialog, dewiswch un opsiwn gwahanu yn ôl yr angen. Gweler y screenshot:
3. Cliciwch Digwyddiadau i fynd i'r cam 2 y Cyfuniad, Cliciwch Ychwanegu i ychwanegu ffeiliau o amrywiol ffolderau neu ffeiliau o un ffolder i Llyfr Gwaith rhestr, a hefyd gallwch chi nodi'r taflenni rydych chi am gyfuno ohonyn nhw Taflen Waith rhestr o'r adran dde. Gweler y screenshot:
4. Cliciwch Digwyddiadau i'r un cam olaf o Cyfunwch, a gallwch chi nodi'r opsiynau cyfuno.
5. Cliciwch Gorffen, mae deialog yn galw allan i'ch atgoffa i ddewis lleoliad i achub y canlyniad cyfun newydd. Gweler y screenshot:
6. Cliciwch Save. Mae'r holl daflenni ychwanegu wedi'u cyfuno'n ddalen sengl newydd.
Tip: Gyda Cyfunwch, gallwch hefyd gyfuno lluosog Ffeiliau CSV ffurfio ffolderi lluosog neu un ffolder i mewn i un ddalen neu lyfr gwaith.
Cyfuno Ffeiliau Lluosog XML / CVS yn Un Daflen / Llyfr Gwaith
Allforiwch bob dalen fel csv / text / pdf i ffolder gyda Kutools ar gyfer Excel
Os ydych chi am allforio pob dalen fel ffeil csv / text / pdf i ffolder, Kutools ar gyfer Excel'S Llyfr Gwaith Hollti gall cyfleustodau wneud ffafr i chi.
Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:
1. Galluogi'r llyfr gwaith rydych chi am allforio ei daflenni gwaith, a chlicio Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti. Gweler y screenshot:
2. Yn y Llyfr Gwaith Hollti deialog, gallwch wirio'r enwau dalennau y mae angen i chi eu hallforio, yn ddiofyn mae'r holl daflenni'n cael eu gwirio, a'u gwirio Nodwch fformat arbed a dewiswch y fformat ffeil rydych chi am ei gadw fel o'r rhestr ostwng isod. Gweler y screenshot:
3. Cliciwch Hollti a dewis ffolder sydd i gadw'r ffeiliau hollt yn y Porwch am Ffolder deialog, gweler y screenshot:
4. Cliciwch OK, nawr mae'r holl daflenni wedi'u gwirio yn cael eu hallforio fel fformat ffeil newydd yn y ffolder a ddewiswyd.
Allforio pob Dalen fel Ffeil Sengl XML / CSV / TXT / PDF
Erthyglau Perthynas:
- Sut i drosi hyperddolen i destun plaen yn Excel?
- Sut i drosi rhif degol i rif deuaidd / octal / hecs neu i'r gwrthwyneb yn Excel?
- Sut i fewnosod cyfradd cyfnewid byw yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!