Título: Leer una columna de un .XLS y contar los repetidos VBScript
Publicado por: guillehampp en 3 Febrero 2015, 00:49 am
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!!
Título: Re: Leer una columna de un .XLS y contar los repetidos VBScript
Publicado por: guillehampp en 9 Febrero 2015, 22:03 pm
Aqui he logrado Solucionarlo :o :o :o :o :o :o 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
|