Jump to content

muyayito

Members
  • Posts

    78
  • Joined

  • Last visited

  • Country

    Spain

Community Answers

  1. muyayito's post in Adjuntar archivos a un correo con condicion. was marked as the answer   
    Solucionado. Gracias Antoni como siempre por la ayuda.
    Sub LISTAR_ARCHIVOS() Hoja4.Activate Dim Ruta As String Set fso = CreateObject("Scripting.FileSystemObject") Ruta = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\" Set CARPETA = fso.GetFolder(Ruta) Set ficheros = CARPETA.Files [A1].Value = Ruta Range("A2").Select For Each Archivo In ficheros If Left(Archivo.Name, 2) = "CS" Then ActiveCell = Archivo.Name ActiveCell.Offset(1, 0).Select End If Next Archivo ActiveCell.EntireColumn.AutoFit Set fso = Nothing Set CARPETA = Nothing Set ficheros = Nothing Application.ScreenUpdating = True End Sub   Esta parte es tuya
    'Assign Attachment(s) For Each Archivo In Hoja4.Range("A2:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row) .Attachments.Add Hoja4.[A1] & Archivo Next  
×
×
  • Create New...

Important Information

Privacy Policy