saltarse asistente en una macro

04/07/2007 - 20:48 por Tony | Informe spam
Hola a todos.

Tengo unos archivos que son de tipo texto delimitado y quería hacer una
macro para que no tuviese que pasar por el asistente cada vez que quiero
convertir dicho archivo en Excell... ¿Hay alguna forma?

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
04/07/2007 - 23:47 | Informe spam
hola, Tony !

Tengo unos archivos que son de tipo texto delimitado y queria hacer una macro
para que no tuviese que pasar por el asistente cada vez que quiero convertir dicho archivo en Excell.
Hay alguna forma?



usando el metodo 'opentext' aplicado a un objeto workbook ? [consulta el uso en la ayuda en linea de vba] p.e.
Workbooks.OpenText(
los argumentos pueden variar de acuerdo a la version de excel, pero incluyen:
Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo

saludos,
hector.
Respuesta Responder a este mensaje
#2 Tony
05/07/2007 - 11:50 | Informe spam
Pues muchas gracias Hector, lo que pasa es que nunca he utilizado el Vba y no
tengo ni idea de cómo ponerlo en la macro, ¿podrías ponerme cómo lo tengo que
poner en la macro?...

Gracias por anticipado.



"Héctor Miguel" wrote:

hola, Tony !

> Tengo unos archivos que son de tipo texto delimitado y queria hacer una macro
> para que no tuviese que pasar por el asistente cada vez que quiero convertir dicho archivo en Excell.
> Hay alguna forma?

usando el metodo 'opentext' aplicado a un objeto workbook ? [consulta el uso en la ayuda en linea de vba] p.e.
Workbooks.OpenText(
los argumentos pueden variar de acuerdo a la version de excel, pero incluyen:
Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo

saludos,
hector.



Respuesta Responder a este mensaje
#3 Héctor Miguel
06/07/2007 - 00:17 | Informe spam
hola, Tony !

... lo que pasa es que nunca he utilizado el Vba y no tengo ni idea de como ponerlo en la macro [...]



si nunca has usado vba y macros... [te sugiero]:
-> usa/activa la grabadora de macros
abre el archivo de texto, siguiendo los pasos del asistente [marca y desmarca las opciones pertinentes]
deten la grabadora de macros
abre el editor de vba -> atajo: {Alt}+{F11}
revisa el codigo que se ha generado y...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ las consultas anteriores __
> Tengo unos archivos que son de tipo texto delimitado y queria hacer una macro
> para que no tuviese que pasar por el asistente cada vez que quiero convertir dicho archivo en Excell.
> Hay alguna forma?

usando el metodo 'opentext' aplicado a un objeto workbook ? [consulta el uso en la ayuda en linea de vba] p.e.
Workbooks.OpenText(
los argumentos pueden variar de acuerdo a la version de excel, pero incluyen:
Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo
Respuesta Responder a este mensaje
#4 Tony
06/07/2007 - 08:54 | Informe spam
Hola Héctor:

Ante todo muuchas gracias por tu comentario puesto que me ha ayudado. He
conseguido hacerlo tal y como me has dicho: realicé la macro y funcionó a la
perfección; además pude ver el código en VBA.

Ahora pregunto otra cosa que tiene que ver con esto. Con el "grabador de
macros" hago todo lo del asistente y después de que me captura en excel el
archivo, quiero quitar unas cuantas filas del principio. Para ello, he
continuado con el "grabador de macros". Pero al pulsar la combinación de
teclas, la macro sólo ejecuta la primera parte (la del asistente para
conversión de texto a excel). Este es el código que me ha quedado:

Workbooks.OpenText Filename:= _
"C:\Menú Inicio\Mis documentos\UTSS-24HORAS\Nuevo proyecto de
reclamaciones\RECLAMACIONES.*" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="#", _
FieldInfo:=Array(Array(1, 1), Array(2, 1))
Rows("1:7").Select
Selection.Delete Shift:=xlUp

Mi pregunta: ¿por qué sólo funciona la primera parte y no continúa con la
eliminación de las filas? ¿Qué falta?

Muchas gracias.
Respuesta Responder a este mensaje
#5 Héctor Miguel
06/07/2007 - 22:12 | Informe spam
hola, Tony !

no me queda muy claro que signifique eso de: "he continuado con el grabador de macros" -???-
[pero] ma da la impresion de que has duplicado/copiado/... el codigo generado por la grabadora
[p.e.] en una macro nueva [quiza en un modulo nuevo tambien] que ya no es la misma que genero la grabadora -???-
es probable que la macro a la que la grabadora le asigno el atajo de teclado y la que modificaste no sean la misma -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
Ahora pregunto otra cosa que tiene que ver con esto. Con el "grabador de macros"
hago todo lo del asistente y despues de que me captura en excel el archivo
quiero quitar unas cuantas filas del principio. Para ello, he continuado con el "grabador de macros".
Pero al pulsar la combinacion de teclas, la macro solo ejecuta la primera parte
(la del asistente para conversion de texto a excel). Este es el codigo que me ha quedado:

Workbooks.OpenText Filename:= _
"C:\MenຠInicio\Mis documentos\UTSS-24HORAS\Nuevo proyecto de reclamaciones\RECLAMACIONES.*" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="#", _
FieldInfo:=Array(Array(1, 1), Array(2, 1))
Rows("1:7").Select
Selection.Delete Shift:=xlUp

Mi pregunta: por que solo funciona la primera parte y no continua con la eliminacion de las filas? Que falta?
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida