Borrar Archivo desde Macro

Usa la instruccion Kill, pero asegurate que el archivo no este abierto

"Marvin" escribió en el mensaje
news:

Que tal Grupo, una pregunta, sé que existen formas para abrir y crear
archivos desde una macro, pero existe alguna forma de poder ELIMINAR un
archivo desde una macro me podrían apoyar gracias.

Gracias Manuel, pero, conoces la instrucción completa???

"Manuel Romero" escribió:

Usa la instruccion Kill, pero asegurate que el archivo no este abierto

"Marvin" escribió en el mensaje
news:
> Que tal Grupo, una pregunta, sé que existen formas para abrir y crear
> archivos desde una macro, pero existe alguna forma de poder ELIMINAR un
> archivo desde una macro me podrían apoyar gracias.

Kill "nombre del archivo"

Busca en la ayuda de VBA

"Marvin" escribió en el mensaje
news:

Gracias Manuel, pero, conoces la instrucción completa???

"Manuel Romero" escribió:

Usa la instruccion Kill, pero asegurate que el archivo no este abierto

"Marvin" escribió en el mensaje
news:
> Que tal Grupo, una pregunta, sé que existen formas para abrir y crear
> archivos desde una macro, pero existe alguna forma de poder ELIMINAR un
> archivo desde una macro me podrían apoyar gracias.

Hola Marvin,

Prueba esto:

Sub test()
Dim Ruta As String, wb As Workbook
Ruta = "E:\Prueba.xls"
If Dir(Ruta) = "" Then
MsgBox "Archivo no encontrado.": Exit Sub
End If
On Error Resume Next
Set wb = Workbooks(Dir(Ruta))
If Not wb Is Nothing Then
MsgBox "No se puede borrar archivo abierto"
Else
Kill Ruta
End If
End Sub

Saludos,
KL


"Marvin" wrote in message
news:

Gracias Manuel, pero, conoces la instruccion completa???

"Manuel Romero" escribio:

Usa la instruccion Kill, pero asegurate que el archivo no este abierto

"Marvin" escribio en el mensaje
news:
> Que tal Grupo, una pregunta, se que existen formas para abrir y crear
> archivos desde una macro, pero existe alguna forma de poder ELIMINAR un
> archivo desde una macro me podrian apoyar gracias.

hola, chicos !

Sub test()
[... ... ...]
On Error Resume Next
[... ... ...]

[pecata minuta]... si ya estas usando la instruccion 'On Error Resume Next'...
[creo que]... no tiene sentido 'pasar' el procedimiento por otros 'filtros' -?- [p.e.]
Sub EliminarArchivo()
On Error Resume Next
Kill "E:\Prueba.xls"
If Dir("E:\Prueba.xls") = "" Then MsgBox "Mision cumplida !!!" _
Else MsgBox "No se puede eliminar el archivo :("
End Sub

saludos,
hector.