| Pregunta: | 17651 - ABRIR Y CERRAR EXCEL AUTOMATICAMENTE |
| Autor: | luis martinez |
| Hola amigos,
necesito leer una planilla excel, grabarla como texto y cerrarla, todo esto en forma automatica con un comando .bat. he podifdo abrirla pero no se como agrgarle parametros para salvar como archivo y salir. sera posible hacerlo o solo se puede hacer con una macro que se ejecute al cargar planilla ? por su ayuda , de antemano gracias | |
| Respuesta: | aandy aa |
| aca hay algo que te puede servir
<%@ Language=VBScript %> <HTML> <HEAD><TITLE> Leer de una hoja de datos Excel </TITLE></HEAD> <BODY> <% 'Las variables del archivo adovbs.inc Const adOpenStatic = 3 Const adLockPessimistic = 2 'Nos conectamos a la hoja de datos del Excel Set db = Server.CreateObject("ADODB.Connection") Dim DB_CONNECTIONSTRING DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("Libro1.xls") & ";" db.open DB_CONNECTIONSTRING 'Recordset correspondiente a un rango de datos set rs = Server.CreateObject("ADODB.Recordset") SQLStr = "SELECT * FROM alumnos" rs.open SQLStr,DB_CONNECTIONSTRING, adOpenStatic ,adLockPessimistic, adCmdText 'Número de columnas de la tabla columnas = rs.Fields.Count Response.Write("<table width='20%' border='1'><tr>") 'Mostramos el tiulo de la tabla. For I = 0 To columnas - 1 Response.Write "<td align='center'><b>" & rs.Fields.Item(I).Name & "</b></td>" Next Response.Write("</tr>") 'Nos ponemos en el primer registro rs.MoveFirst 'Mostramos los datos Do While Not rs.EOF Response.Write("<tr>") For I = 0 To columnas - 1 Response.Write ("<td>" & rs.Fields.Item(I).Value & "</td>") Next Response.Write "</tr>" rs.MoveNext Loop Response.Write("</table>") 'Eliminamos el recordset rs.Close Set rs = Nothing 'Eliminamos la bd db.Close Set db = Nothing %> </BODY></HTML> | |
| Respuesta: | Walter Magliano |
| La solucion para tu problema esta en Windows Script Host, es un lenguaje de script que te permite manipular a Windows y sus aplicaciones.
Para ver un ejemplo, anda a C:\WINDOWS\SAMPLE\WSH alli encontraras un par de ejemplos de lo que puede hacer este tipo de script, ademas hay un ejemplo para Excel. Espero que te halla sido util.... saludos desde Paraguay.. | |