vba中findnext怎樣才能嵌套使用？findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設(shè)置與上一次查找相同，例如：public sub ifind（） dim C as range，R

vba中findnext怎樣才能嵌套使用？

findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設(shè)置與上一次查找相同，例如：public sub ifind（） dim C as range，RNG as range，S$，Iadd$，MSG$，n&r set RNG=range（“A:A”）r S=“ABC”r with RNG/r set C=。查找，。單元格（細(xì)胞。計(jì)數(shù))，xlValues，xlWhole） 如果不是c，則/r Iadd=c.address（0,0）r do/r n=n 1/r MSG=MSG&vbcrlf&c.address（0,0）r set c=。Findnext（c）“如果條件保持不變，則使用Findnext/r如果c為nothing，則退出do/r循環(huán)，直到Iadd=c.address（0,0）r end if/r end with/r msgbox”！總共“&；n& ”“”&；S& “：”&vbcrlf&；MSG/R End Sub

可以使用“&；findnext函數(shù)需要包含<IO?！薄>頭文件。T您也可以使用API函數(shù)FindNextFile:T boolfindnextfile（thandle hfindfile，//searchhandletlpwin32FINDudata lpfindfiledata//databuffer（函數(shù)描述）繼續(xù)搜索FindFirstFile函數(shù)搜索的文件（參數(shù)描述）執(zhí)行handle hfindfile searches的文件句柄函數(shù)時(shí)搜索此句柄的下一個(gè)文件FINDudata lpfindfiledata指向結(jié)構(gòu)用于保存文件信息。如果調(diào)用成功，則返回一個(gè)非零值。如果調(diào)用失敗，則返回0。您可以調(diào)用GetLastError來(lái)獲取錯(cuò)誤信息。請(qǐng)參考我在另一個(gè)帖子中的回復(fù)。

findnext函數(shù)在visualstudio2005中無(wú)發(fā)使用？

/*可以直接編譯。您可以修改目錄（“E:enumfile*。*”，并注意雙杠*/#include<windows。H>void main（）{Win32}FINDuudatafindfiledatahandlefilehandlefilehandle=FindFirstFile（“E:enumfile*.*”，&findiledata）放入（FindFileData.cFileName文件名)while（文件句柄！=無(wú)效的句柄值{FindNextFile（FileHandle，&；findfiledata）puts（FindFileData.cFileName文件名)if（GetLastError（）==ERRORuNouMoreuFiles）break}