Descarga excel

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • anonimo123456
    Senior Member
    • ago
    • 126

    #1

    Descarga excel

    Hola,

    Cuando filtro en la fbl1n y me descargo el excel se me descarga todo sin el filtro. Tengo compañeros que si aplican filtro solo se les descarga en el excel lo que se ha filtrado.

    ¿Hay algun punto donde se pueda configurar esto o como puedo hacer para que solo se me descargue lo filtrado?

    Gracias
  • ragisbert
    Junior Member
    • oct
    • 11

    #2
    Re:

    Hola,
    El tema está (o por lo menos lo que me ha sucedido a mí) en las opciones de descarga. Lo que mejor me ha funcionado es descargar como .txt y luego importar datos desde Excel, incluso me hice una macro para simplificar esto, y la verdad que me ha funcionado muy bien. El caracter que separa las columnas en el .txt generado es el que está a la izquierda del 1 y arriba del Tab, es una línea vertical, así: |

    Te comparto el código de la macro, vas a ver una ruta que es donde siempre guardo el archivo generado en SAP.
    Abrís un nuevo Excel, pegas esta macro, seleccionas la celda A1, y ejecutas la macro.

    Sub Importar_Txt()
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Users\Richard\Documents\SAP\SAP gui\a.txt", Destination:=ActiveCell)
    .Name = "a"
    .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
    .TextFileOtherDelimiter = "|"
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 4.43

    End Sub
    __________________
    Ricardo Gisbert
    Consultor SAP CO

    Comentario

    Trabajando...