VBA: attivi, apertura e chiusura di Excel cartelle di lavoro

Maggio 3, 2016 Admin Tecnologia 0 442
FONT SIZE:
fontsize_dec
fontsize_inc

Una delle prime sfide che troverete quando si inizia a scrivere VBA si muove tra le lenzuola.

Presto scoprirete che non è necessario.

È possibile selezionare le foglie come segue:




Sheets ("Sheet Name"). Selezionare

Una volta che si avvia l'applicazione VBA per attività reali. Non passerà molto tempo prima di trovare la necessità di lavorare con gli altri libri. Per fare questo userò il Cartelle di lavoro metodo.

Aprire una cartella di lavoro

Workbooks.Open (filepathasstring)

Apri in sola lettura

Workbooks.Open (filepathasstring, sola lettura)


chiudere un libro

Uscire senza salvare le modifiche

Workbooks.close (filepathasstring, false)

Chiudi e Salva modifiche

Workbooks.close (filepathasstring, true)


passare tra i libri

Codice sarà tenuto presso la cartella di lavoro attiva.

Per attivare un libro

Cartelle di lavoro (filenameasstring) .Activate

Per restituire il nome della cartella di lavoro attiva

Activeworkbook.name

E 'utile per memorizzare il nome del file come stringa dopo l'apertura del file se non cambia mai.


Questo metodo libro

Quando si lavora con il libro in cui il codice risiede, è possibile utilizzare il ThisWorkbook metodo.

Per chiudere senza salvare le modifiche

ThisWorkbook.Close falso

Per chiudere e salvare le modifiche

ThisWorkbook.Close verità

Per attivare

Thisworkbook.activate


una macro di esempio

Testmynewskills Sub () 'Definire variabili stringa Dim filepath As String Nome Dim As String 'Archive Ultimo file individuare nella cella A1 nelle variabili percorso del file filepath = Range ("A1"). Valore 'Aprire il percorso del file nella cella A1 Workbooks.Open (filepath) 'Salvare il nome del file del libro, recentemente aperto al nome del file variabili filename = ActiveWorkbook.Name Attivare il libro in cui è memorizzato il codice ThisWorkbook.Activate 'Eliminare il contenuto del libro, in cui è memorizzato il codice Range ("A2: A10") Cells.ClearContents. 'Passa a Prenota Cartelle di lavoro (filename) .Activate 'Il backup dei dati via cellulare A2 A10 Intervallo. ("A2: A10") Copia "Incolla i dati nel libro in cui il codice risiede ThisWorkbook.Activate Range ("A2: A10"). PasteSpecial (xlPasteAll) 'Chiudere la cartella di lavoro senza salvare le modifiche Cartelle di lavoro (filename) .close False End Sub

Due note importanti sulla copia e incolla tra le cartelle di lavoro

  • Incollare sempre i dati prima di chiudere il libro su cui si trova. Quando un libro è vicino al Appunti vengono eliminati. Questo mi fa ogni volta.
  • Incolla Valori sempre quando si incolla un foglio protetto. Se si incolla il tutto da un foglio protetto in nuove cellule foglia sarà protetto.

(0)
(0)

Commenti - 0

Non ci sono commenti

Aggiungi un commento

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Caratteri rimanenti: 3000
captcha