| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
software  
  • Adobe Illustrator

  • Software di animazione

  • Antivirus Software

  • Software Audio

  • Backup dei dati

  • masterizzare CD

  • masterizzare DVD

  • Compressione dei dati

  • Software Database

  • Desktop Publishing

  • Desktop Video

  • Digital Video Software

  • Drupal

  • Software didattico

  • ingegneria del Software

  • Tipi di estensione di file

  • Financial Software

  • Freeware, Shareware & Abandonware

  • GIMP

  • Graphics Software

  • Software Home Recording

  • Microsoft Access

  • Microsoft Excel

  • Microsoft Publisher

  • Microsoft Word

  • Aprire Source Code

  • Altro Software per computer

  • Giochi per PC

  • Photoshop

  • Portable Document Format

  • PowerPoint

  • presentazione Software

  • produttività Software

  • Quicktime

  • Gestione Desktop remoto

  • SQL Server

  • Skype

  • Software versioni Beta

  • Consulenti Software

  • Società di sviluppo software

  • Software Licensing

  • Fogli di calcolo

  • Software Preparazione Tax

  • Software Utility

  • Web Clip Art

  • Windows Media Player

  • Word Processing Software
  •  
    Conoscenza Informatica >> software >> Microsoft Access >> Content
    Come estrarre file di Excel da più cartelle Con VBA
    Sapendo come estrarre i file di Excel da più cartelle utilizzando Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo quando hai bisogno di cercare il computer per i file di Excel per memorizzarli in una cartella. VBA può essere utilizzato in applicazioni di Microsoft Office come Excel per automatizzare le attività di routine , come la ricerca di file in cartelle . Il modo migliore per la ricerca di file in più cartelle è quello di utilizzare la programmazione ricorsiva . Programmazione ricorsiva è usata quando si ha bisogno di una funzione di chiamare se stesso dall'interno della funzione . Cose che ti serviranno
    Microsoft Office
    Mostra più istruzioni
    1

    lancio di Microsoft Office Excel , fare clic su " Developer ", e fare clic su " Visual Basic " per avviare l' Editor VB . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice
    2

    Digitare quanto segue per creare una nuova sotto- procedura : .

    Dim colFiles As New Collection
    3

    Copia e incolla il seguente per creare le variabili :

    Dim extractPath As String

    Dim fileName As String Dim

    Ruolo As Integer
    4

    Definire il percorso in cui si desidera copiare i file di Excel trovati :

    extractPath = " C : \\ Temp \\ "
    5 < p > Aggiungere il seguente codice per chiamare la funzione che trova i file di Excel per l'estrazione :

    colFiles RecursiveDir , "F : \\ moreExcelFiles \\ ", " . * xlsx ", True
    6 < p > Aggiungere il seguente codice per copiare i file trovati per il percorso definito nel Punto 3 :

    Dim vFile As Variant

    Ogni vFile in colFiles
    Ruolo

    InStrRev = ( vFile , " \\ " , , vbTextCompare ) per

    nomefile = Right ( vFile , Len ( vFile ) - Ruolo ) per

    FileCopy vFile , extractPath & fileName

    Successivo vFile < br >

    End Sub
    7

    definire la funzione " RecursiveDir " per cercare le cartelle e sotto- cartelle per i file di Excel :

    Public Function RecursiveDir ( colFiles Come Collection , _ < br

    strFolder > String, _

    strFileSpec As String , _

    bIncludeSubfolders As Boolean ) per

    Dim strTemp As String Dim

    colFolders Come nuova Collezione

    Dim vFolderName As Variant

    strFolder = TrailingSlash ( strFolder ) per

    strTemp = Dir ( strFolder & strFileSpec ) per

    Do While strTemp < > ; vbNullString

    colFiles.Add strFolder & strTemp

    strTemp = Dir

    loop

    bIncludeSubfolders Poi

    strTemp = Dir ( strFolder , vbDirectory ) per

    Do While strTemp < > vbNullString

    ( strTemp < > " . ") e ( strTemp < > ".." ) Poi

    ( GetAttr ( strFolder & strTemp ) e vbDirectory ) < > 0 Then

    colFolders.Add strTemp

    End If End If


    < p > strTemp = Dir

    loop

    Ogni vFolderName In colFolders

    Chiama RecursiveDir ( colFiles , strFolder & vFolderName , strFileSpec , True)

    Successivo vFolderName

    End If End Function


    8

    Creare la seguente funzione per aggiungere o rimuovere il "\\" dai percorsi delle cartelle :

    pubblico TrailingSlash funzione ( strFolder As String ) As String

    If Len ( strFolder ) > 0 Then

    Destra ( strFolder , 1 ) = " \\ " Allora

    TrailingSlash = strFolder

    Else

    TrailingSlash = strFolder & " \\ "

    End If

    End If End Function


    < br > 9

    Fare clic all'interno del sub- procedimento " extractExcelFiles " e fare clic su "F5" per eseguire il programma .

    Previous :

    next :
      Articoli Correlati
    ·Come copiare e incollare celle in Microsoft Excel 
    ·Come utilizzare il riempimento automatico in Excel 
    ·Come fare grafici di funzioni logaritmiche in Excel 
    ·Quali sono le caratteristiche principali di Microsoft A…
    ·Come ottenere barre raggruppati insieme in Excel Charts…
    ·Come importare un foglio di Excel in Visual Basic 
    ·Come scrivere Contenuto del set di dati di file di Exce…
    ·Come fare query SQL in una tabella pivot di Excel 
    ·Come ottenere la pendenza di una retta in Excel 
    ·Come inserire una casella a discesa in Excel 
      Articoli in evidenza
    ·Come utilizzare Web Easy Professional 7 
    ·Rapporto Date DISPLAY ACCESS come date seriali in Excel…
    ·Come dividere un file AVI Video 
    ·Come testare un database 
    ·Come fare un Numero riga in Excel 
    ·Come inserire un simbolo di Laurea in Excel 
    ·Quali tipi di file sono supportati dal lettore multimed…
    ·Come a districare un filtro web che non funziona 
    ·Come per allineare il testo al Circolo in Photoshop 
    ·Come fare un film muto effetto vignetta in Photoshop 
    Copyright © Conoscenza Informatica http://it.wingwit.com