** 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. Importa XML a Excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Access - Excel. Importa XML 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. Importa XML a Excel
    Enviado: 21/Agosto/2013 a las 09:49
Este Sub importa un archivo XML a Excel desde Access por automatización.


'---------------------------------------------------------------------------------------------------------------------------------------
' Nombre:      XmlToXls
' Propósito:   Importa un archivo XML a Excel usando xlXmlLoadImportToList (LoadOption:=2).
' Autor:       Diego F.Pereira-Perdomo
' Fecha:       Jul-03-2012
' Descripción:
'              xmlPath: La ruta del archivo XML.
'              xlsPath: La ruta en la que se va a guardar el archivo Excel.
'---------------------------------------------------------------------------------------------------------------------------------------
Public Sub XmlToXls(xmlPath As String, _
                    xlsPath As String)

On Error GoTo ErrorHandler

    Dim xlApp  As Object
    Dim xlWb   As Object

    Set xlApp = CreateObject("Excel.Application")
    
    With xlApp
    
        .DisplayAlerts = False
        Set xlWb = .Workbooks.OpenXML(FileName:=xmlPath, LoadOption:=2)
        .DisplayAlerts = True
        xlWb.SaveAs (xlsPath)
    
    End With
   
    Set xlWb = Nothing
    Set xlApp = Nothing
    
ExitSub:

    If Not xlApp Is Nothing Then
        Set xlApp = Nothing
        xlApp.Quit
    End If
   
    Exit Sub

ErrorHandler:

    Select Case Err.Number
       Case 0
       Case Else
           MsgBox Err.Number & ": " & Err.Description
           Resume ExitSub
    End Select
    
End Sub
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable