Temas

Hola, me han dado un problema, como calcular la intersección de dos rectángulos?
La verdad que eh googleado y no me ha quedado del todo claro.
Alguien sabe como?, muchas gracias!!

Hola, cuando trato de cuardar un archivo .xls con la funcion SaveAS me arroja el siguiente error:
"No se puede tener acceso al archivo"

Código (vb) [Seleccionar] Expandir

Const xlNormal = -4143
filename = objFile.GetFileName(oFile)
IF objFile.FileExists(deletefile) Then
objFile.DeleteFile(deletefile)
objRawData.SaveAS "d:\Script\Outbox\" & filename & ".xls"&, xlNormal
ELSE
objRawData.SaveAs  "d:\Script\Outbox\" & filename & ".xls"&, xlNormal
objRawData.Close SaveChanges=True

END IF


Hola, estoy tratando de leer un archivo de excel, donde tiene varias palabras repetida, pero en una una sola columna. Como puedo hacer para leer esa columna, y mostrar cuales se repiten?

EJ: Pepe 5 veces

Muchas Gracias!!

Hola, estoy intentando renombrar(Convertirlos a mayusculas) todos los archivos de una carpeta,
este es mi codigo, cuando lo ejecuto me arroja este error

Argumento o llamada a procedimientos no valida

Código [Seleccionar] Expandir

Set objfso = CreateObject("scripting.filesystemobject")
Set folder = objfso.getfolder("D:\Pelis\")
Dim myname
For Each archivos In folder.Files
    myname = UCase(CStr(archivos))
    archivos.Name = myname
Next

Muchas Grcias!

Hola:
      Alguien sabe como hacer una lista con TKinter, que contenga dos columnas?
     
      Muchas Gracias!!

Hola, alguien me podria ayudar?
sumar el código ASCII de cada uno de los
caracteres, que contiene una lista
milista=['089 20 0001 15/02/10 13:30 1 hora AJ 24592246\r\n',
'089 20 0001 15/02/10 13:30 1 hora AJ 24592242\r\n',
'089 20 0001 15/02/10 13:44 1 hora AJ 24592251\r\n',]