** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Access - Excel. Exporta Array a Excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Access - Excel. Exporta Array a Excel

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: VBA: Access - Excel. Exporta Array a Excel
    Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable