【已解决】求教---快速查找excel中指定字符串
本帖最后由 SHINE 于 2011-9-16 13:47 编辑求教---快速查找excel中指定字符串，并返回字符串的位置
我是菜鸟，现在用_ExcelReadCell的方式，读取3个子表，每个子表20列，1000行，共花掉了1分半钟~~觉得这个速度太慢~~
有什么方法可以快速查询吗？
请各位帮忙看看，谢谢了~~ 本帖最后由 kevinch 于 2011-8-29 13:52 编辑
Global $oExcelApp,$oExcel
$oExcelApp=ObjGet("","excel.application")
If IsObj($oExcelApp) Then
$oExcelApp.visible=True
If $oExcelApp.workbooks.count>0 then
For $oExcel In $oExcelApp.activeworkbook.worksheets
searchcell("test2")
Next
EndIf
EndIf
Func searchcell($sFindValue)
With $oExcel
$oRng=.usedrange.find($sFindValue)
If IsObj($oRng) Then
$oR=$oRng
Do
MsgBox(0,"GetColor",$oExcel.name&@TAB&$oR.address&@tab&$oR.offset(0,2).interior.color)
$oR=.usedrange.findnext($oR)
Until $oR.address=$oRng.address
MsgBox(0,"END","END")
EndIf
EndWith
EndFunc改成这样，为了让你明白，再提供一组对应的vba代码，看后你会知道多明白一点的。Sub test()
Dim Ws As Worksheet, Rng As Range, R As Range
For Each Ws In Worksheets
If Not Ws.UsedRange.Find("test2") Is Nothing Then
With Ws
Set Rng = .UsedRange.Find("test2")
Set R = Rng
Do
MsgBox .Name & vbTab & R.Address & vbTab & R.Offset(, 2).Interior.Color, , ""
Set R = .UsedRange.FindNext(R)
Loop Until Rng.Address = R.Address
End With
End If
Next Ws
MsgBox "End", vbOKOnly, "End"
End Sub 贴上你的代码，大家好帮你改下。 本帖最后由 SHINE 于 2011-8-29 09:35 编辑
#include <array.au3>
#include <ExcelCOM_UDF.au3>
Global $sRowStart,$iRowEnd,$iColStart,$iColEnd,$oExcel,$sFindValue,$i,$j,$get,$k,$color
Global $aArray
$sFindValue="test2"
$sRowStart=1
$iRowEnd=1000
$iColStart=1
$iColEnd=20
$oExcel=_ExcelBookOpen("C:\Users\shine\Desktop\test\1.xls", 0)
$aArray = _ExcelSheetList($oExcel)
For $k = $aArray To 1 Step -1 ;Work backwards through loop
_ExcelSheetActivate($oExcel, $aArray[$k])
disgroup()
searchcell()
Next
MsgBox(0,"END","END")
_ExcelBookClose($oExcel , 0,0)
Func disgroup()
With $oExcel
For $Rng In .activesheet.usedrange
If $rng.mergecells=True Then
$rng.select
$rng.parent.parent.parent.selection.unmerge
$rng.parent.parent.parent.selection.cells.value=$rng.value
EndIf
Next
EndWith
EndFunc
Func searchcell()
For $i = $sRowStart To $iRowEnd
For $j = $iColStart To $iColEnd
If _ExcelReadCell($oExcel, $i, $j) = $sFindValue Then
$color=_ExcelCellColorGet($oExcel, $i, $j)
MsgBox(0,"getcolor",$color)
EndIf
Next
Next
MsgBox(0,"END","END")
EndFunc
谢谢各位了 本帖最后由 SHINE 于 2011-8-28 22:57 编辑
这个执行的时间有点久了
主要应该是耗在这段上了
Func searchcell()
For $i = $sRowStart To $iRowEnd ;1000
For $j = $iColStart To $iColEnd ;20
If _ExcelReadCell($oExcel, $i, $j) = $sFindValue Then
$color=_ExcelCellColorGet($oExcel, $i, $j)
MsgBox(0,"getcolor",$color)
EndIf
Next
Next
MsgBox(0,"END","END")
EndFunc Func searchcell($sFindValue)
With $oExcel
$oRng=.usedrange.find($sFindValue)
If IsObj($oRng) Then
$oR=$oRng
Do
MsgBox(0,"GetColor",$oR.interior.color)
$oR=.usedrange.findnext($oR)
Until $oR.address=$oRng.address
EndIf
EndWith
MsgBox(0,"END","END")
EndFunc这个测试通过 Global $oExcelApp,$oExcel
$oExcelApp=ObjGet("","excel.application")
If IsObj($oExcelApp) Then
$oExcelApp.visible=True
If $oExcelApp.workbooks.count>0 then
$oExcel=$oExcelApp.activeworkbook.activesheet
searchcell("付出款")
EndIf
EndIf
Func searchcell($sFindValue)
With $oExcel
$oRng=.usedrange.find($sFindValue)
If IsObj($oRng) Then
$oR=$oRng
Do
MsgBox(0,"GetColor",$oR.interior.color)
$oR=.usedrange.findnext($oR)
Until $oR.address=$oRng.address
EndIf
EndWith
MsgBox(0,"END","END")
EndFunc完整的测试程序 本帖最后由 SHINE 于 2011-8-29 11:09 编辑
谢谢！速度很快了，但是不懂这写法，不会改~~
试下来发现只能在当前子表里面查询，我想在3个（或者更多）子表里面查。
另外，查询到字符串后，可否知道该单元格坐标呢？想根据它再来抓去其前后单元格的信息。如附件中，找到test2后，再抓到后面框的颜色（标为红色），以及前面filepath。附件只是一个格式~~
感谢~~ 可以了，谢谢~~
再麻烦问一下，如果要从它前一个单元格读取内容，命令咋写呢？
这个是啥语言写的呢？找来学学~~呵呵，以前没见过~~
非常感谢~~ MsgBox(0,"GetColor",$oExcel.name&@TAB&$oR.address&@tab&$oR.offset(0,2).interior.color)
改成
MsgBox(0,"GetColor",$oExcel.name&@TAB&$oR.address&@tab&$oR.offset(0,-1).interior.color)
就是报前面一个单元格的了。
offset(行偏移量,列偏移量)
offset(0,0)是自己 谢谢，搞定了～～～
哥哥，这是什么语言呢？ Excel VBA
Visual Basic for Application 谢谢你~~~~ 用msado把excel做数据库源来读 数据快很多 单个表的话，数组+字典比sql快，这个我们进行过测试的，平均2-3倍吧。
页:
[1]
2