Tags Palabras claves

AYUDA CON ALMACENAMIENTO DE DATOS

13/12/2006 - 21:33 por Deyvi | Informe spam
Hola, espero me puedan ayudar, tengo un código en HTML que me permite
almacenar datos que se ingresan en él. Estos datos se almacenan en un
archivo Excel "captura3.xls" que se encuentra en el directorio "C:\", hasta
ahi todo bien.

Pero ahora lo que trato y no puedo es que estando "captura3.xls" en mi sitio
web "http://usuarios.lycos.es/osopolar/c....xls" y el HTML tambien
"http://usuarios.lycos.es/osopolar/r...html" no hace el llenado de
datos, ya cambié la direccion del código HTML de set wb app.workbooks.open ("C:\captura3.xls") a set wb = app.workbooks.open
("http://usuarios.lycos.es/osopolar/c....xls") pero no lo abre ni
guarda.
La verdad que ya no se que hacer, necesariamente el archivo o la base en la
que se almacena tiene que ser en Excel.

Espero puedan ayudarm.

Saludos

Deyvi



<HTML>
<HEAD>
<TITLE>Captura datos de pagina HTML a Excel</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
sub excel
dim app
set app = createobject("excel.application")
app.visible = true
dim wb
set wb = app.workbooks.open ("C:\captura3.xls")
i=1
do until app.cells(i,1).value = empty
i=i+1
loop
wb.Activesheet.cells(i,1).value = captura.Nombre.value
wb.Activesheet.cells(i,2).value = captura.Apellido.value
wb.Activesheet.cells(i,3).value = captura.Edad.value
wb.Activesheet.cells(i,4).value = captura.Sexo.value
wb.Activesheet.cells(i,5).value = captura.Peso.value
wb.Activesheet.cells(i,6).value = captura.Talla.value
app.activeworkbook.Save
app.quit
end sub
</SCRIPT>
</HEAD>
<body onload="javascript:resizeTo(1200,400)">
<FORM NAME = "Captura">
Nombre: <INPUT TYPE= "text" NAME="Nombre" size="20">
<p>Apellido: <INPUT TYPE = "text" NAME = "Apellido" size="20"> </p>
<p>Edad:
<INPUT TYPE= "text" NAME="Edad" size="20"> </p>
<p>Sexo:
<INPUT TYPE= "text" NAME="Sexo" size="20"> </p>
<p>Peso:
<INPUT TYPE= "text" NAME="Peso" size="20"> </p>
<p>Talla:
<INPUT TYPE= "text" NAME="Talla" size="20"> </p>
<p>
<INPUT TYPE ="BUTTON" NAME = "MIBOTON" VALUE="ACEPTAR" ONCLICK= "excel">
</p>
</FORM>
</HTML>

Ahora
 

Leer las respuestas

#1 Miguel Lima
13/12/2006 - 23:41 | Informe spam
Leelo y no te arrepentiras...
POR FAVOR ANTES DE ELIMINAR ESTE MENSAJE, LEAN PRIMERO
Y TOMEN LA DECISIÓN DESPUÉS.

ESTO TE PUEDE AYUDAR A PAGAR TUS DEUDAS O TUS ESTUDIOS

Hola amigos:

Esto es lo me pasó días atrás, mientras navegaba por estas páginas de
noticias, así como usted lo está haciendo ahora. Se me apareció un artículo
similar a este que decía:

»Usted puede recibir miles de dólares en pocas semanas con una inversión de
US $6.00 dólares (seis dólares)». Enseguida pensé: «¡Oh no, otra estafa
más?» Pero como la mayoría de nosotros, la curiosidad pudo más y seguí
leyendo; seguía diciendo: « Usted enviará US $1.00 (un dólar) a cada uno de
los 6 nombres y direcciones mencionados en este artículo. Después, anote
usted su nombre y dirección al final de la lista reemplazando al numero 6, y
envíe o ponga este artículo en por lo menos 200 NEWSGROUPS o foros (hay
miles de estos en todo el mundo). También valen páginas web.

Nota: Si te encuentras en otro país, debes cambiar tu moneda nacional a
dólares, pues en todos los países cambian dólares y es más fácil para todos.

No existe ningún truco, la diferencia de este sistema y otros, es que usted
tiene una lista de 6 en vez de 5, esto significa que el promedio de ayuda
será aproximadamente ¡¡¡¡¡15 veces mayor!!!!!

Después de pensarlo una y otra vez y de consultarlo con unos amigos, decidí
probarlo.
Siete días después, empecé a recibir DINERO por correo!!!!
Para el final de la segunda semana había recibido un total de US $1,000 (mil
dólares)!!!!!! No lo PODÍA CREER!! En la tercera semana $10,000 (diez mil) y
todavía seguía llegando más!!! En mi cuarta semana tenía un total de $41,000
dólares y aún sigue llegando más ayuda (en mi casa se la pasan abriendo
sobres y yo consiguiendo «NEWSGROUP» o foros para continuar ayudando a más
gente y retribuir la ayuda recibida hasta este momento. ESTO SE PUSO SERIO.

AHORA PERMÍTANME EXPLICARLES COMO FUNCIONA ESTO
Y LO MAS IMPORTANTE. EL POR QUÉ FUNCIONA EXCELENTEMENTE

Usted asegúrese de imprimir este artículo AHORA, para sacar toda la
información a medida que la necesite. El proceso es muy fácil y consiste en
3 (tres) sencillos pasos:

PASO Nº.1: Obtenga 6 hojas de papel y escriba en cada una de ellas: «FAVOR
DE INCLUIRME EN SU LISTA DE CORRESPONDENCIA O E-MAIL».

Ahora consiga 6 billetes de US $1 (un dólar) e introduzca cada dólar en un
sobre, procurando envolverlo con la hoja de manera que el billete no se vea
a través del sobre!!, puede envolverlo tambien en papel carbon para que no
se note con la luz.

Envíe los 6 sobres a las siguientes direcciones:


1. Laura Origaen
14206 Green Gable Ct Orlando Fl 32824 USA

2. Andrea Leblanc
Nueva Maturana 0495, Villa Alemana
Quinta Región, CHILE

3. Maria Jesús García
C/ Pla de Roses 90 Empúria Brava 17487 Girona (España)

4. José Jorge Anes Rodríguez
C/ Castillo Gauzón Nº 13 - 6º B - Piedras Blancas - 33450 - Castrillón -
Asturias - (España)

5. Rubén Élez Fernández
Pº Alberto Palacios 78 - 1ºB - (28021) MADRID - ESPAÑA

6. Miguel Lima.
15 Ave A 36-45 Zona 12, Cond. Villasol II Apto 2342, Guatemala, Guatemala.

PASO Nº 2: Ahora elimine el numero 1 de lista de arriba y mueva los otros
nombres un numero para arriba ( el 6 se convierte en el 5, y el 5 se
convierte en el 4, etc...) y agregue su NOMBRE Y SU DIRECCIÓN en el 6 de la
lista.
PASO Nº 3: Cambie todo lo que crea conveniente de este artículo, pero trate
de mantenerlo lo más cercano posible al original. Ahora ponga su artículo en
por lo menos 200 NEWSGROUP o foros (existen más de 24,000,000 Newsgroups).
SI NO PUEDES CONSEGUIR DOLARES HAZLO CON EUROS, tú decides 1 dolar o 1 euro.
No enviés monedas porque se ve que es dinero en el sobre.

ESO ES TODO!!! y funciona. Increible

Preguntas similares