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.


esta linea obtiene solamente el nombre del archivo, sin la extensión.

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"

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

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


Muchas Grcias!