Mensajes

Claro, lo que pasa que no es propiamente una Colisión, yo tomo 4 valores por pantalla de 1 rectángulo (largo, alto, X , Y), y de otro rectángulo lo mismo.

Según las medidas que yo de y la ubicación, tendría que saber en que puntos se intersectan.
No se si me explico bien

Muy Claro!!, Muchas Gracias!

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!!

Antes que nada, muchas gracias la explicacion. Como dices, parece ser un problema de compatibilidad al intentar guardarlo, por lo que he agregado esta linea al codigo, si es necesario agrego todo el codigo. lo he dejado de esta manera.

Código [Seleccionar] Expandir

filename = objFile.GetFileName(oFile)
IF objFile.FileExists(deletefile) Then
objFile.DeleteFile(deletefile)
objExcel.ActiveWorkbook.CheckCompatibility = False
objExcel.ActiveWorkbook.SaveAs  "d:\Script\Outbox\" & filename, -4143
objExcel.ActiveWorkbook.Close True
ELSE
objExcel.ActiveWorkbook.CheckCompatibility = False
objExcel.ActiveWorkbook.SaveAs  "d:\Script\Outbox\" & filename, -4143
objExcel.ActiveWorkbook.Close True
END IF

Código [Seleccionar] Expandir

filename = objFile.GetFileName(oFile) esta linea obtiene solamente el nombre del archivo, sin la extensión.

Código [Seleccionar] Expandir

IF objFile.FileExists(deletefile) Then
objFile.DeleteFile(deletefile)
objRawData.SaveAS "d:\Script\Outbox\" & filename & ".xls"&, xlNormal

primero comprobas si existe y si te da verdadero lo borras?
creo q la primer parte no va? lo estas borrando y luego lo qeres guardar pero no lo encuentra por q lo borraste
porq el rawdata creo q escribe sobre el archivo no lo crea

no se sobre scripting manejo vb quizas me equivoque

Es asi, esto es una actividad que se hace una vez por semana, por lo que el archivo es distinto c/semana.
dispongo de dos carpetas Inbox y Outbox
Este Script completo lo que hace, es copiar de una Sheet a otro Xls
cuando guarda comprueba si ya hay un archivo, si lo hay, lo borra y guarda el nuevo.

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


Aqui he logrado Solucionarlo

Código (vb) [Seleccionar] Expandir

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("d:\Script\Inbox\comandos.xls")
Set data = objWorkbook.WorkSheets("comandos")
ReDim pass(790)
j = 1
For i = 1 To data.UsedRange.Rows.Count
   pass(i) = data.Cells(i, 1).Value
Next

DisplayArrayDupeCount pass,1

Sub DisplayArrayDupeCount(aTemp, iShow)
Dim itemNameKey
Dim d:Set d = GetDupDict(aTemp)

For Each itemNameKey In d.Keys
If d(itemNameKey) > iShow Then
    WScript.Echo itemNameKey & " found in array " & d(itemNameKey) & " times"
   End If
Next
Set d = Nothing
End Sub

Function GetDupDict(aTemp)
Dim dItems, j

Set dItems = CreateObject("Scripting.Dictionary")

For j = 0 To UBound(aTemp)
  If Not IsEmpty(aTemp(j)) Then
     dItems(aTemp(j)) = dItems(aTemp(j)) + 1
  End If
Next
Set GetDupDict = dItems
Set dItems = Nothing
End Function

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!!

Muchas Gracias por los Ejemplos, y la explicacion.

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!