El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
HOME Els meus cursos Finalitzats
◄ Anterior
◄

Treballar amb llibres i fulls de càlcul

Següent ►
►

En aquest tema, aprendrem a treballar amb llibres (workbooks) i fulls de càlcul (worksheets) utilitzant VBA. Aquestes són les unitats fonamentals en Excel, i saber com manipular-les és essencial per automatitzar tasques i crear solucions eficients.

Objectius del tema

  • Comprendre com accedir i manipular llibres i fulls de càlcul.
  • Aprendre a crear, obrir, tancar i guardar llibres.
  • Saber com afegir, eliminar i seleccionar fulls de càlcul.

  1. Accedir a llibres i fulls de càlcul

1.1. Accedir al llibre actiu

El llibre actiu és el llibre que està actualment obert i visible a Excel.

Dim wb As Workbook
Set wb = ThisWorkbook ' Fa referència al llibre on s'està executant el codi
' o
Set wb = ActiveWorkbook ' Fa referència al llibre que està actualment actiu

1.2. Accedir a un full de càlcul específic

Podem accedir a un full de càlcul específic dins d'un llibre utilitzant el seu nom o índex.

Dim ws As Worksheet
Set ws = wb.Sheets("NomDelFull") ' Accedir per nom
' o
Set ws = wb.Sheets(1) ' Accedir per índex (el primer full)

  1. Crear, obrir i tancar llibres

2.1. Crear un nou llibre

Podem crear un nou llibre utilitzant el mètode Add de l'objecte Workbooks.

Dim nouLlibre As Workbook
Set nouLlibre = Workbooks.Add

2.2. Obrir un llibre existent

Per obrir un llibre existent, utilitzem el mètode Open de l'objecte Workbooks.

Dim llibreExistent As Workbook
Set llibreExistent = Workbooks.Open("C:\Ruta\Al\Llibre.xlsx")

2.3. Tancar un llibre

Podem tancar un llibre utilitzant el mètode Close.

llibreExistent.Close SaveChanges:=True ' Guarda els canvis abans de tancar

  1. Guardar llibres

3.1. Guardar un llibre

Per guardar un llibre, utilitzem el mètode Save o SaveAs.

nouLlibre.Save ' Guarda el llibre amb el nom actual
' o
nouLlibre.SaveAs "C:\Ruta\Al\NouLlibre.xlsx" ' Guarda el llibre amb un nou nom

  1. Manipular fulls de càlcul

4.1. Afegir un nou full de càlcul

Podem afegir un nou full de càlcul utilitzant el mètode Add.

Dim nouFull As Worksheet
Set nouFull = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) ' Afegeix un nou full al final

4.2. Eliminar un full de càlcul

Per eliminar un full de càlcul, utilitzem el mètode Delete.

wb.Sheets("NomDelFull").Delete

4.3. Seleccionar un full de càlcul

Podem seleccionar un full de càlcul utilitzant el mètode Select.

wb.Sheets("NomDelFull").Select

Exercicis pràctics

Exercici 1: Crear i guardar un nou llibre

  1. Crea un nou llibre.
  2. Afegeix un nou full de càlcul al llibre.
  3. Guarda el llibre amb el nom "NouLlibre.xlsx" a l'escriptori.

Solució

Sub CrearIGuardarNouLlibre()
    Dim nouLlibre As Workbook
    Dim nouFull As Worksheet
    
    ' Crear un nou llibre
    Set nouLlibre = Workbooks.Add
    
    ' Afegir un nou full de càlcul
    Set nouFull = nouLlibre.Sheets.Add(After:=nouLlibre.Sheets(nouLlibre.Sheets.Count))
    
    ' Guardar el llibre
    nouLlibre.SaveAs "C:\Users\ElTeuUsuari\Desktop\NouLlibre.xlsx"
End Sub

Exercici 2: Obrir un llibre existent i eliminar un full de càlcul

  1. Obre el llibre "Existent.xlsx" des de l'escriptori.
  2. Elimina el full de càlcul anomenat "Eliminar".

Solució

Sub ObrirIEliminarFull()
    Dim llibreExistent As Workbook
    
    ' Obrir el llibre existent
    Set llibreExistent = Workbooks.Open("C:\Users\ElTeuUsuari\Desktop\Existent.xlsx")
    
    ' Eliminar el full de càlcul
    llibreExistent.Sheets("Eliminar").Delete
    
    ' Guardar i tancar el llibre
    llibreExistent.Close SaveChanges:=True
End Sub

Conclusió

En aquesta secció, hem après a treballar amb llibres i fulls de càlcul en VBA. Hem vist com accedir, crear, obrir, tancar i guardar llibres, així com afegir, eliminar i seleccionar fulls de càlcul. Aquests coneixements són fonamentals per automatitzar tasques en Excel i crear solucions eficients. En el proper tema, explorarem com manipular cel·les i rangs dins dels fulls de càlcul.

◄ Anterior
◄
Següent ►
►
El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
© Copyright 2024. Tots els drets reservats