To raskt importere flere csv-filer til en arbeidsbok, kan følgende VBA-kode gjør deg en tjeneste, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene i Excel for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Import flere tekstfiler for å skille regneark:
Sub CombineCsvFiles () 'updateby Extendoffice 20151015 Dim xFilesToOpen As Variant Dim Jeg As Integer Dim XWB Som arbeidsbok Dim xTempWb Som arbeidsbok Dim xDelimiter As String Dim xScreen Som boolsk On Error GoTo ErrHandler xScreen = Application.ScreenUpdating Application.ScreenUpdating = False xDelimiter = "|" xFilesToOpen = Application.GetOpenFilename ("tekstfiler (* .csv), * .csv", "Kutools for Excel", eller sann) Hvis Typename (xFilesToOpen) = "boolsk" Så MsgBox "Ingen filer ble valgt", " 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 gjøre mens jeg < UBound (xFilesToOpen) I = I + 1 Set xTempWb = Workbooks.Open (xFilesToOpen (I)) xTempWb.Sheets (1) .Kjør, xWb.Sheets (xWb.Sheets.Count) LoopExitHandler: Application.ScreenUpdating = xScreen Set XWB = Ingenting Set xTempWb = ingenting Exit SubErrHandler: MsgBox Err.Description,, "Kutools for Excel" Resume ExitHandlerEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og et vindu vil poppet ut, gå til den spesifikke mappen og velg CSV-filer som du ønsker å importere til Excel, se skjermbilde:
4. Og klikk deretter på Åpne-knappen, har de valgte csv-filer blitt importert som egne regneark i en ny arbeidsbok.
5. Til slutt kan du lagre den nye arbeidsboken som du trenger. Anmeldelser