Acceso a Excel desde Visual Basic

Gracias por adelantado.Al leer la pregunta te darás cuenta del poco tiempo que llevo con esto.
Veamos, mi programa almacena en un array n valores. N es variable(dinámico). Mi pregunta es como puedo hacer para abrir 1 solo Excel y dentro del excel habilitar/activar tantas hojas como elementos tenga el array (n).
Muchas gracias de antemano. Saludos
1

1 respuesta

Respuesta
1
Sub prueba()
    Dim appExcel As New Excel.Application
    Dim varArray(1 To 10) As Variant '<--- array de ejemplo con 10 elementos
    Dim lngNúmeroDeHojasActual As Long
    Dim wkbNuevoLibro As Workbook
    'Almacenar el número de hojas en nuevos libros actual
    lngNúmeroDeHojasActual = appExcel.Application.SheetsInNewWorkbook
    'Cambiarlo por el del número de elementos de la matriz
    appExcel.Application.SheetsInNewWorkbook = UBound(varArray)
    'Crear el nuevo libro
    Set wkbNuevoLibro = appExcel.Workbooks.Add
    'Restablecer el número de hojas anterior
    appExcel.Application.SheetsInNewWorkbook = lngNúmeroDeHojasActual
    MsgBox prompt:="El objeto wkbNuevoLibro tiene " & wkbNuevoLibro.Worksheets.Count & " hojas."
    Set wkbNuevoLibro = Nothing
    Set appExcel = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas