isidrod

si funciona le dejo el archivo ejemplo.xlsm

checa este ejemplo saludos

aver si te sirve este link

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

@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

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

sube un archivo de muestra de como es csv y txt y como debería quedar por favor gracias

@Maria_80 checa esto a ver si te funciona saludos isidro

buen dia @benbafel a ver si te funciona este saludos isidro importartxt.xlsm

los link que puse son para xml mexicanos

es todo lo que puedo hacer por ti

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

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

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.

checa esto @JUANJG LINKhttps://facturando.mx/productos/descargar-xml-sat/ a ver si te funciona saludos

que bueno que le di al clavo@martincosme saludos

a ver si este te funciona @martincosme saludos isidro Pasar a TXT con ancho fijo.xlsm

ahí esta la formula que uso y lo tome de aquí en esta foro que lo publico @Gerson Pineda espero que te sirva @Excel_Táctico saludos isidro Buscar palabra de una lista en un texto.xlsx

Que bueno que se soluciono saludos

aver si este es lo que quieres dorgelis saludos COMISION.xlsx

yo lo aria así de esta forma merlyn333 espero que te funcione Sub copiar() With Sheets("Hoja1").Range("A1").Copy '0.Copy With Sheets("Hoja1").Range("B1").Select 'ActiveSheet.Paste 'ActiveSheet.PasteSpecial xlPasteValues 'Application.CutCopyMode = False: SendKeys "{esc}" Range("B1").PasteSpecial xlPasteValues Application.CutCopyMode = False End With End With End Sub saludos

buen día @zelarra821 te dejo esto este es espero que te funcione saludos isidro