C/Visual C - Importar archivo de texto con asistente de excel

 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 47 puestos en C/Visual C (en relación al último mes)
Gráfica de C/Visual C

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder