Crea nuova cartella di lavoro in Excel VBA

Descrizione:

A volte potremmo voler aprire o creare una nuova cartella di lavoro usando VBA.È possibile impostare la cartella di lavoro appena creata su un oggetto, in modo che sia facile fare riferimento alla cartella di lavoro per eseguire ulteriori attività.

Soluzione:

Le seguenti macro consentiranno di aprire o creare una nuova cartella di lavoro utilizzando il metodo Add.

Crea nuova cartella di lavoro in Excel VBA-Casi di esempio:

  • Crea nuova cartella di lavoro
  • Crea un oggetto per la cartella di lavoro appena creata
Crea nuova cartella di lavoro

È possibile utilizzare il seguente codice per creare nuova cartella di lavoro e salvare nell’unità C utilizzando il metodo Add.

Codice:
Sub AddNewWorkbook1()'Adding New WorkbookWorkbooks.Add'Saving the WorkbookActiveWorkbook.SaveAs "C:\WorkbookName.xls"'ORActiveWorkbook.SaveAs Filename:="C:\WorkbookName1.xls"End Sub
Spiegazione:
  1. Cartelle di lavoro.Il metodo Add aggiungerà una nuova cartella di lavoro
  2. ActiveWorkbook.Il metodo SaveAs salverà la cartella di lavoro attiva in una posizione specifica con il nome del file specificato
Output:

Dovresti vedere la cartella di lavoro appena aperta insieme alla cartella di lavoro esistente.
Crea nuova Cartella di lavoro

Istruzioni:
  1. Aprire una cartella di lavoro di excel
  2. Premere Alt+F11 per aprire l’Editor di VBA
  3. Inserire un nuovo modulo dal menu Inserisci
  4. Copia il codice qui sopra e Incollare nella finestra del codice
  5. Premere F5 per vedere l’output
  6. Si dovrebbe vedere di recente apertura della cartella di lavoro come sopra indicato;
  7. Salvare il file come macro attivata cartella di lavoro
Creare un oggetto appena creato cartella di lavoro

È possibile impostare la nuova cartella di lavoro creata per un oggetto, in modo che sia facile per fare riferimento a una cartella di lavoro di fare ulteriori compiti.

Codice:
sub AddNewWorkbook2()Dim wkb as Workbook'Adding New WorkbookSet wkb = Workbooks.Add'Saving the Workbookwkb.SaveAs "C:\WorkbookName.xls"'ORwkb.SaveAs Filename:="C:\WorkbookName1.xls"</span></code>End Sub
Output:

Dovresti vedere la cartella di lavoro appena aperta insieme alla cartella di lavoro esistente.

Istruzioni:
  1. Aprire una cartella di lavoro di excel
  2. Premere Alt+F11 per aprire l’Editor di VBA
  3. Inserire un nuovo modulo dal menu Inserisci
  4. Copia il codice qui sopra e Incollare nella finestra del codice
  5. Premere F5 per vedere l’output
  6. Si dovrebbe vedere di recente apertura della cartella di lavoro come sopra indicato;
  7. Salvare il file come macro attivata cartella di lavoro

Related Posts

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *