Objeto Worksheet (Excel)

  • Artículo

Representa una hoja de cálculo.

Comentarios

El objeto Worksheet es miembro de la colección Worksheets . La colección Worksheets contiene todos los objetos Worksheet de un libro.

El objeto Worksheet también es miembro de la colección Sheets . La colección Sheets contiene todas las hojas del libro (hojas de gráficos y hojas de cálculo).

Ejemplo:

Use Worksheets (index), donde index es el nombre o número de índice de la hoja de cálculo, para devolver un único objeto Worksheet . En el ejemplo siguiente, se oculta la primera hoja de cálculo en el libro activo.

Worksheets(1).Visible = False

El número de índice de la hoja de cálculo indica la posición de la hoja de cálculo en la barra de pestañas del libro. Worksheets(1) es la primera hoja de cálculo (izquierda) en el libro, y Worksheets(Worksheets.Count) es la última. Todas las hojas de cálculo se incluyen en el recuento de índices, incluso si están ocultas.

El nombre de la hoja de cálculo se muestra en la pestaña de la hoja de cálculo. Use la propiedad Name para establecer o devolver el nombre de la hoja de cálculo. El ejemplo siguiente protege los escenarios de Sheet1.

 
Dim strPassword As String 
strPassword = InputBox ("Enter the password for the worksheet") 
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True

Cuando una hoja de cálculo es la hoja activa, puede usar la propiedad ActiveSheet para hacer referencia a ella. En el ejemplo siguiente se usa el método Activate para activar Sheet1, se establece la orientación de la página en modo horizontal y, a continuación, se imprime la hoja de cálculo.

Worksheets("Sheet1").Activate 
ActiveSheet.PageSetup.Orientation = xlLandscape 
ActiveSheet.PrintOut

En este ejemplo se usa el evento BeforeDoubleClick para abrir un conjunto especificado de archivos en el Bloc de notas. Para usar este ejemplo, la hoja de cálculo debe contener los datos siguientes:

  • La celda A1 debe contener los nombres de los archivos que se deben abrir separados por una coma y un espacio.
  • La celda D1 debe contener la ruta de acceso a la ubicación de los archivos del Bloc de Notas.
  • La celda D2 debe contener la ruta de acceso a la ubicación del programa Bloc de Notas.
  • La celda D3 debe contener la extensión de archivo, sin el punto final, de los archivos de Bloc de Notas (txt).

Al hacer doble clic en la celda A1, los archivos especificados en ella se abren en Bloc de Notas.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Define your variables.
   Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
   
   'If you did not double-click on A1, then exit the function.
   If Target.Address <> "$A$1" Then Exit Sub
   
   'If you did double-click on A1, then override the default double-click behavior with this function.
   Cancel = True
   
   'Set the path to the files, the path to Notepad, the file extension of the files, and the names of the files,
   'based on the information on the worksheet.
   sPath = Range("D1").Value
   sExe = Range("D2").Value
   sSfx = Range("D3").Value
   sFile = Range("A1").Value
   
   'Remove the spaces between the file names.
   sFile = WorksheetFunction.Substitute(sFile, " ", "")
   
   'Go through each file in the list (separated by commas) and
   'create the path, call the executable, and move on to the next comma.
   Do While InStr(sFile, ",")
      sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
      If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
      sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
   Loop
   
   'Finish off the last file name in the list
   sTxt = sPath & "\" & sFile & "." & sSfx
   If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub

Eventos

Métodos

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.