Leer una columna de un .XLS y contar los repetidos VBScript

[guillehampp]

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

[guillehampp]

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