Jump to content

Janlui

Members
  • Posts

    579
  • Joined

  • Last visited

  • Days Won

    58

Community Answers

  1. Janlui's post in Ayuda para abrir Archivo XML desde Excel was marked as the answer   
    Los archivos XML deberán estar en la misma carpeta del archivo Excel.
    Sub EXTRAE() Sheets("READFACT").Select Range("A1:ZZ10000").ClearContents RUTA = "TEXT;" & ActiveWorkbook.Path & "\" Dim ARCH(2) As String ARCH(1) = "D77368930-KD033F0000001548.xml" ARCH(2) = "D77368930-KD033F0000001549.xml" For I = 1 To 2 Cells(1, I) = ARCH(I) ARCHIVO = ARCH(I) With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I)) .Name = ARCHIVO .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Next End Sub Espero te sirva
  2. Janlui's post in Copiar datos de un libro a otro was marked as the answer   
    Cambia esto en la penultima instruccion
     wsHojaOrigen.Range("A2:M" & final_origen).Copy Destination:=wsHojaDestino.Range("A" & final_destino + 1)
×
×
  • Create New...

Important Information

Privacy Policy