guardar un archivo en formato xml

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • guardar un archivo en formato xml

    Hola!
    Estoy exportando datos desde visual basic a un archivo xml.
    Lo que hago es crear un xls y se guarde como un xml.
    En la instrucción de SaveAS me da el error:
    Error '1004' en tiempo de ejecución:
    Fallo en el método SaveAs de la clase Workbook.
    Os pongo el código a ver si me podeis decir algo.
    En xls si se guarda bien, pero necesito en xml

    Dim xlsApp As Variant
    Set xlsApp = CreateObject("Excel.application")
    With xlsApp 'ApExcel
    .Visible = True
    .Workbooks.Add

    If txtFactI.Text = "" Or txtFactF.Text = "" Then

    Else
    AdoE.RecordSource = "SELECT * FROM senyera.amparo.asientos WHERE ejercicio like '" & txtEjer.Text & "' and diario='0001' and tipo_documento=1 and numero_doc>= '" & txtFactI.Text & "' and numero_doc<= '" & txtFactF.Text & "' and asiento>'1455'"
    AdoE.Refresh
    w = 1
    For f = 1 To AdoE.Recordset.RecordCount
    fasiento = AdoE.Recordset.Fields(3)
    docu = AdoE.Recordset.Fields(7)
    asie = AdoE.Recordset.Fields(2)
    adoA.RecordSource = "SELECT * FROM senyera.amparo.apuntes WHERE ejercicio like '" & txtEjer.Text & "' and diario='0001' and asiento like '" & asie & "' and concepto='0001' and asiento>'1455'"
    adoA.Refresh
    For h = 0 To adoA.Recordset.RecordCount - 1
    xlsApp.Cells(w, 1) = adoA.Recordset.Fields(4)
    xlsApp.Cells(w, 2) = fasiento
    xlsApp.Cells(w, 3) = asie
    xlsApp.Cells(w, 4) = docu
    xlsApp.Cells(w, 5) = adoA.Recordset.Fields(6)
    xlsApp.Cells(w, 6) = "0001"
    xlsApp.Cells(w, 7) = 0
    xlsApp.Cells(w, 8) = 0
    xlsApp.Cells(w, 9) = ""
    xlsApp.Cells(w, 10) = adoA.Recordset.Fields(7)
    xlsApp.Cells(w, 11) = adoA.Recordset.Fields(8)
    w = w + 1
    adoA.Recordset.MoveNext
    Next h
    AdoE.Recordset.MoveNext
    Next f
    End If

    xlsApp.ActiveWorkbook.SaveAs FileName:="C:\Libro1.xml", FileFormat:=xlXMLSpreadsheet ', ReadOnlyRecommended:=False, CreateBackup:=False



    Set xlsApp = Nothing
Trabajando...
X