Importar archivo de texto con asistente de excel
Publicado por Laura (1 intervención) el 01/12/2018 02:10:15
Buenas noches ante todo gracias a la comunidad , quisiera consultar lo siguiente tengo la siguiente rutina que me funciona muy bien pero mis usuarios hacen que me den error, la rutina lo que hace es evaluar una hoja2 su primer espacio en blanco y luego activa el asistente de excel de importar archivos TXT, y luego agregarlo en la base de datos, quisiera colocar por medio de macro que las opciones que debo sellecionar en el asistente de excel ya esten predetarminadas y mis usuarios tenga que dar solo siguiente siguiente y finalizar culaes opciones serian:
1- elegir el tipo de archivo que describe los datos con mayor precisión , seria delimitados luego siguiente.
2 el tipo de separador es la opcion otros y seria con este " | " separador , luego siguiente
3- formato de los datos en columna la opcion seria general , luego finalizar.
me gustaria por medio de macro dejar esas opciones como predetarminadas para evitar errores
les dejo AQUI EL CODIGO
Dim LibroDestino As Workbook, LibroOrigen As Workbook
Dim CeldaDestino As Range
Dim RetVal As Boolean
For fila = 3 To 10000
If Hoja2.Cells(fila, 2) = "" Then
final = fila
Exit For
End If
Next
Application.ScreenUpdating = False
Set LibroDestino = ActiveWorkbook
Set CeldaDestino = Hoja2.Cells(final, 2)
RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")
If RetVal = False Then Exit Sub
Set LibroOrigen = ActiveWorkbook
Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy
LibroDestino.Activate
CeldaDestino.PasteSpecial Paste:=xlValues
LibroOrigen.Close False
GRACIAS A TODOS MI EXCEL ES 2007
1- elegir el tipo de archivo que describe los datos con mayor precisión , seria delimitados luego siguiente.
2 el tipo de separador es la opcion otros y seria con este " | " separador , luego siguiente
3- formato de los datos en columna la opcion seria general , luego finalizar.
me gustaria por medio de macro dejar esas opciones como predetarminadas para evitar errores
les dejo AQUI EL CODIGO
Dim LibroDestino As Workbook, LibroOrigen As Workbook
Dim CeldaDestino As Range
Dim RetVal As Boolean
For fila = 3 To 10000
If Hoja2.Cells(fila, 2) = "" Then
final = fila
Exit For
End If
Next
Application.ScreenUpdating = False
Set LibroDestino = ActiveWorkbook
Set CeldaDestino = Hoja2.Cells(final, 2)
RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")
If RetVal = False Then Exit Sub
Set LibroOrigen = ActiveWorkbook
Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy
LibroDestino.Activate
CeldaDestino.PasteSpecial Paste:=xlValues
LibroOrigen.Close False
GRACIAS A TODOS MI EXCEL ES 2007
Valora esta pregunta
0