Cerrar Archivo con macros

Saludos,
Resulta que tengo una macro que copia el contenido de un archivo plano (.txt) y lo pega al Excel, este archivo plano lo abro desde una ventana tipo árbol donde puedo navegar por las carpetas para buscarlo. ¿Mi pregunta es como puedo cerrar este archivo plano? ¿Con la ruta del archivo se puede cerrar?

1 Respuesta

Respuesta
1
No entiendo muy bien la pregunta, me queda la duda de si te lo abre tipo XML en un notepad o navegador o si bien hay un formulario con un TreeView que lo muestra en árbol.
Si me pudieras dar más información..
No mira, la macro me abre el archivo plano pero es tipo .txt, copia el contenido del txt y lo pega a un archivo excel, lo que quiero hacer ahora es poder cerrar el archivo txt.
Pégame la macro para que pueda ver el código a ver como lo hacemos.
Esta es la macro:
Sub ImportarArchoPlano()
    Dim ArchEx As String
    Dim ArchIm As String
     Application.ScreenUpdating = False
    Arch = Application.GetOpenFilename("Archivos de texto (*.txt), *.txt")
            If Arch <> False Then Workbooks.OpenText Arch, Origin:=xlMSDOS, StartRow:=1, _
        DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(25, 1), Array(100, 1 _
        ), Array(125, 1), Array(126, 1), Array(136, 1), Array(139, 1), Array(140, 1), Array(165, 1) _
        , Array(240, 1), Array(265, 1), Array(266, 1), Array(276, 1), Array(279, 1), Array(280, 1), _
        Array(290, 1), Array(298, 1), Array(301, 1), Array(304, 1)), TrailingMinusNumbers:= _
        True
    ArchEx = Application.ThisWorkbook.Name
    Application.ScreenUpdating = True
    Range("A1:S20000").Select
    Selection.Copy
    Windows(ArchEx).Activate
    Range("A9").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A9").Select
    Application.CutCopyMode = False
    'Windows(Arch).Close
End Sub
al final comente la funcion: Windows(Arch).Close, ya que primeramente tenia el nombre de el archivo, pero al seleccionar otro archivo con diferente nombre se cae la marcro. Por eso es que quiero saber como cerrar el archivo plano
Prueba con esto a ver si va bien:
'Estas dos lineas despues justo de abrir el archivo
Dim Wrbk
    Wrbk = Workbooks.Count
    ArchEx = Application.ThisWorkbook.Name ' esta ya la tienes la pongo comorefrencia
    Workbooks(Wrbk). Close ' esta cuando quieras cerrar el arrchivo de texto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Como cerrar un libro de excel por VBA

Tengo una macro que me abre varios archivos txt y les hace texto en columnas y los unifica para que queden todos en una sola base los txt tiene los nombres de 1 (1) y asi van en incremento según la cantidad que tenga he hecho un ciclo para que los...
1 respuesta

Cambio de ventanas macro

He realizado una macro en la cual cojo datos de diferentes excels, y los copio en el excel principal. Mi problema es que nose como cambiar de ventana para que me lo copie en el excel que quiero. Y una vez copiado vuelva al anterior. Una vez que...
2 respuestas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro para automatizar proceso de carga TXT en Excel

Tengo 0 experiencia en Macros y necesito de sus conocimientos para lograr automatizar un proceso. Resulta que en el trabajo de vez en cuando nos piden auditoria de todas las PCs (alrededor de 400). Con especificaciónes de hardware, sistema operativo,...
1 respuesta

Macro que compare valores de sos libros

Macro Tengo un libro llamado "libro1" de ahí quiero tener el botón para correr la macro quiero que al correrla me abra la ventana para yo seleccionar que archivo abrir de excel que este varia el nombre al momento de abrirlo me filtre por dos...
1 respuesta

Macro para buscar archivos txt en múltiples carpetas desde archivo excel

Tengo una buena consulta, resulta que ocupo un macro que me permita buscar desde una lista en excel, todos los archivos en .txt que coincidan y me los copie a otra carpeta destino, buscando y buscando logré conseguir el siguiente macro: Sub ejemplo()...
1 respuesta

Crear una macro en excel para crear un txt

Que tal tengo un problema m gustaría que m ayudaran a resolverlo la verdad noc de macros pero la necesito que hacer así que recurro a ustedes explico el problema crear una macro que pase todo lo que esta en la columna A a un txt dl bloc de notas pero...
1 respuesta

¿Cómo hacer una macros consecutiva?

Espero me puedan ayudar Yo manualmente hago lo siguiente: Selecionno los valores que tengo en la celdas D162:Z162 los copio y los pego conpegado especial en la celdas D8:Z8 y borro el valor que tengo en la celda C8 para que la celda C162 me jale con...
1 respuesta

Macro para exportar de excel a txt

Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt, estoy usando este código: ub generar_texto() Application.ScreenUpdating = False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select...
1 respuesta