Forums Últimos mensajes - Powered by IBM
 

preguntar por archivo a exportar desde macro

05/08/2008 - 21:14 por Paolita | Informe spam
Tengo una macro de donde llamo un txt para abrirlo en el excel, el
cual me resulta bien, le pido al usuario que le ponga el mismo nombre
del archivo excel y la macro lo busca en el mismo directorio del
excel, necesito exportar 2 archivo txt al excel y necesito que el
usuario los llame de forma libre, como puedo preguntar desde una macro
por los txt que deseo abrir en el excel
 

Leer las respuestas

#1 MikyVC
05/08/2008 - 23:12 | Informe spam
Te paso el siguiente codigo para que llames a los archivbos no importando la
ubicación de los mismos

' SOLICITA EL ARCHIVO DE TEXTO A PROCESAR
With Texto
If .Show = -1 Then
For Each Ruta In .SelectedItems
Destino = Ruta
Next Ruta
Else
Exit Sub
End If
End With
' PROCESA EL ARCHIVO SELECCIONADO PARA COLOCARLO EN COLUMNAS
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Destino, Destination:=Range("A15"))
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(7, 2, 11, 16, 19)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With


"Paolita" wrote:

Tengo una macro de donde llamo un txt para abrirlo en el excel, el
cual me resulta bien, le pido al usuario que le ponga el mismo nombre
del archivo excel y la macro lo busca en el mismo directorio del
excel, necesito exportar 2 archivo txt al excel y necesito que el
usuario los llame de forma libre, como puedo preguntar desde una macro
por los txt que deseo abrir en el excel

Preguntas similares