Borrar hoja excell
 

Hola :-)

Tengo creada una hoja excel con una macro la cual me guarda esa hoja como archivo excel 2007 y a al vez como archivo excell 98. A continuación envía por correo la hoja compatible en excell 98.

Mi pregunta es si esa misma macro podría borrarme el archivo excell 98 una vez enviado.

Muchas gracias de antemano y un saludo a todos

Re: Borrar hoja excell
 

supongo que estara guardada en el disco duro,si es asi prueba con esta macro.se puede poner un boton o bien añadiendolo a la macro que tu tienes para que se ejecute una vez finalizado la anterior.
espero que te sirva

Sub FileExists()
Dim fso
Dim file As String
file = "C:\Test.xls" cambia el nombre y ruta
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox file & " no localizado.", vbInformation, "archivo no encontrado"
Else
MsgBox file & " localizado.", vbInformation, "archivo encontrado"
End If
End Sub

Sub DeleteFile()
Dim fso
Dim file As String
file = "C:\test.xls" cambiar nombre y ruta
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
Else
MsgBox file & " no existe o a sido eliminado!" _
, vbExclamation, "archivo eliminado"
End If
End Sub

Re: Borrar hoja excell
 

Muchísimas gracias, voy a probar a ver que tal :arriba::arriba::arriba::arriba: