Imprimir página | Cerrar ventana

VBA: Access - Excel. Exporta Array a Excel

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77387
Fecha de impresión: 29/Febrero/2020 a las 05:03


Tema: VBA: Access - Excel. Exporta Array a Excel
Publicado por: genoma111
Asunto: VBA: Access - Excel. Exporta Array a Excel
Fecha de publicación: 21/Agosto/2013 a las 09:32
Esta función exporta una matriz 2D a Excel.


'---------------------------------------------------------------------------------------------------------------------------------------
' Nombre:      ArrayToExcel
' Propósito:   Exporta una matriz 2D a Excel.
' Descripción: w:            El nombre del array.
'              strPath:      Ruta.
'              strFile:      Nombre del archivo.
'
' Author:      Diego F.Pereira-Perdomo
'
' Date:        Jul-11-2012
'---------------------------------------------------------------------------------------------------------------------------------------
Private Function ArrayToExcel(w() As Variant, _
                          strPath As String, _
                          strFile As String)

On Error GoTo ErrorHandler

   Dim xlApp   As Object
   Dim xlWb    As Object
   Dim xlWs    As Object

   Set xlApp = CreateObject("Excel.Application")
   Set xlWb = xlApp.Workbooks.Add
   Set xlWs = xlWb.Worksheets("Sheet1")

   With xlWb
       xlWs.cells(1, 1).Resize(UBound(w, 1) + 1, UBound(w, 2) + 1).Value = w
   End With

   DoEvents
   xlWb.SaveAs (strPath & strFile)
   
ExitFunction:

    If Not xlApp Is Nothing Then
      xlApp.Quit
    End If
    
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    Exit Function

ErrorHandler:
    Select Case Err.Number
      Case 0
      Case Else
          MsgBox Err.Number & ": " & Err.Description
          Resume ExitFunction
    End Select
End Function


-------------
"To VBA or not to VBA... that's the question" DFP



Imprimir página | Cerrar ventana