01/feb./2019Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes Con idea de que puedan ayudar a responder e ir cerrando mensajes ;-)
01/feb./2019
Dim aplicacion As Excel.Application Dim libro As Excel.Workbook Dim hoja As Excel.Worksheet Set aplicacion = New Excel.Application Set libro = aplicacion.Workbooks.Add Set hoja = libro.Worksheets.Add hoja.Name = "Primera Hoja" hoja.Cells(1, 1) = "FRENOS" ActiveWorkbook.SaveAs ("C:\Documents and Settings\Administrador\Escritorio\123.xls") libro.Close Set libro = Nothing aplicacion.Quit Set aplicacion = Nothing