Jump to content

isidrod

Members
  • Posts

    276
  • Joined

  • Last visited

  • Days Won

    5

isidrod last won the day on April 21

isidrod had the most liked content!

1 Follower

About isidrod

  • Birthday 04/05/1971

Contact Methods

  • Website URL
    https://www.ayudaexcel.com/foro/profile.php?do=editprofile

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

isidrod's Achievements

  1. si funciona le dejo el archivo ejemplo.xlsm
  2. ya no entiendo ahí, si importo un archivo de bloc de notas se parado por ; lo importo a excel, ese archivo que te pase lo hace, yo trabajo con ese archivo saludos isidro
  3. @Maria_80 te subo el archivo y le picas en el botón consolidar y seleccionas el archivo te importa en el la hoja consolidado, sea txt o csv es todo lo que pude ayudarte a ver si entendí, espero que te funcione saludos isidro consolidar-varios-archivos-csv-o-txt-usando-conexion-de-datos-externos-y-vba.xlsm
  4. Sub IMPORTAR_CSV() 'Definimos Variables Dim Consulta As QueryTable, nArchivos As Variant, j As Long, i As Long Dim uFila As Long, Conexiones As Object 'Seleccionamos archivos vti = VBA.Timer nArchivos = Application.GetOpenFilename(FileFilter:="Text Files (*.txt*;*.csv*),*.txt*;.csv*", _ Title:="Seleccionar archivos a importar", MultiSelect:=True) 'Si no seleccionamos nada, salimos del proceso If IsArray(nArchivos) = False Then Exit Sub 'Dimensionamos datos For j = LBound(nArchivos) To UBound(nArchivos) nArchivos(j) = "TEXT;" & nArchivos(j) Next j For j = LBound(nArchivos) To UBound(nArchivos) 'Comprobamos la última fila con datos de la columna A With Sheets("CONSOLIDADO") If Application.CountA(.Range("A:A")) = 0 Then uFila = 1 Else uFila = Application.CountA(.Range("A:A")) + 1 End If 'Iniciamos la consulta Set Consulta = .QueryTables.Add(Connection:=nArchivos(j), Destination:=.Range("A" & uFila)) 'Indicamos parámetros de la consulta que nos interesan: With Consulta .Name = "Datos" .FieldNames = True .PreserveFormatting = True .RefreshStyle = xlInsertDeleteCells .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileCommaDelimiter = False .TextFileOtherDelimiter = "~" 'gregado .TextFileColumnDataTypes = Array(1, 1) 'gregado .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End With Next j 'Eliminamos todas las conexiónes que hemos iniciado. For Each Conexiones In ActiveWorkbook.Connections Conexiones.Delete Next Conexiones MsgBox "LISTO IMPORTADO", , "IMPORTAR TXT" vtf = VBA.Timer - vti VBA.MsgBox VBA.Format(vtf, "0.0000 Seg"), vbInformation, "TIEMPO" End Sub Sub IMPORTAR_CSV() 'Definimos Variables Dim Consulta As QueryTable, nArchivos As Variant, j As Long, i As Long Dim uFila As Long, Conexiones As Object 'Seleccionamos archivos vti = VBA.Timer nArchivos = Application.GetOpenFilename(FileFilter:="Text Files (*.txt*;*.csv*),*.txt*;.csv*", _ Title:="Seleccionar archivos a importar", MultiSelect:=True) 'Si no seleccionamos nada, salimos del proceso If IsArray(nArchivos) = False Then Exit Sub 'Dimensionamos datos For j = LBound(nArchivos) To UBound(nArchivos) nArchivos(j) = "TEXT;" & nArchivos(j) Next j For j = LBound(nArchivos) To UBound(nArchivos) 'Comprobamos la última fila con datos de la columna A With Sheets("CONSOLIDADO") If Application.CountA(.Range("A:A")) = 0 Then uFila = 1 Else uFila = Application.CountA(.Range("A:A")) + 1 End If 'Iniciamos la consulta Set Consulta = .QueryTables.Add(Connection:=nArchivos(j), Destination:=.Range("A" & uFila)) 'Indicamos parámetros de la consulta que nos interesan: With Consulta .Name = "Datos" .FieldNames = True .PreserveFormatting = True .RefreshStyle = xlInsertDeleteCells .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileCommaDelimiter = False .TextFileOtherDelimiter = ";" 'gregado .TextFileColumnDataTypes = Array(1, 1) 'gregado .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End With Next j 'Eliminamos todas las conexiónes que hemos iniciado. For Each Conexiones In ActiveWorkbook.Connections Conexiones.Delete Next Conexiones MsgBox "LISTO IMPORTADO", , "IMPORTAR TXT" vtf = VBA.Timer - vti VBA.MsgBox VBA.Format(vtf, "0.0000 Seg"), vbInformation, "TIEMPO" End Sub checa ese codigo .TextFileOtherDelimiter = "~" este cambia por punto o coma por lo que deseas separar
  5. sube un archivo de muestra de como es csv y txt y como debería quedar por favor gracias
  6. buen dia @benbafel a ver si te funciona este saludos isidro importartxt.xlsm
  7. este es lo que extraje de tu xml Sub From_XML_To_XL() 'https://www.extendoffice.com/es/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html 'UpdatebyKutoolsforExcel20151214 Dim xWb As Workbook Dim xSWb As Workbook Dim xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String Dim xCount As Long With Application .ScreenUpdating = False .Calculation = xlCalculationManual On Error GoTo ErrHandler With Worksheets("Hoja1").Select Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Select a folder [Kutools for Excel]" If xFileDialog.Show = -1 Then xStrPath = xFileDialog.SelectedItems(1) End If If xStrPath = "" Then Exit Sub Application.ScreenUpdating = False Set xSWb = ThisWorkbook xCount = 1 xFile = Dir(xStrPath & "\*.xml") Do While xFile <> "" Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile) xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1) xWb.Close False xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2 xFile = Dir() Loop End With .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With xSWb.Save Exit Sub ErrHandler: MsgBox "no files xml", , "Kutools for Excel" End Sub ese el código xml a excel.xlsx
  8. nosotros usamos este link descargamos de SAT los xml y guardamos en una ruta y el programa tiene para importar los xml a excel, teda la opción de elegir la ruta, pero ese es de paga tiene de prueba de 10 días, ese que te pase es gratis checalo tambien @DiegoLG. a ver si le funciona saludos
  9. descarga este programa: descargarcfdi.zip y instalalo, ese programa tiene para importar xml a excel checalo, y me dices yo no puedo instalara programa en mi maquina no tengo permiso es maquina de mi trabajo, nosotros a qui en la empresa usamos uno de paga y ese es gratuito y la pagina dice Convertir tus archivos XML a Excel Podrás convertir la información de tus comprobantes fiscales (XML) exportándolos a MS Excel. Tendrás todos los datos de tus XML, incluidos los conceptos. Se genera un archivo de Excel con más de 120 columnas con los datos de los XML. Se desglosan los impuestos retenidos y trasladados por tipo y tasa.
  10. checa esto @JUANJG LINKhttps://facturando.mx/productos/descargar-xml-sat/ a ver si te funciona saludos
×
×
  • Create New...

Important Information

Privacy Policy