Ver Mensaje Individual
  #2  
Viejo 30/11/16, 22:19:36
ragisbert ragisbert is offline
Junior Member
 
Fecha de Ingreso: oct 2016
Mensajes: 11
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
Responder Con Cita