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

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

findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設置與上一次查找相同，例如：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=。查找，。單元格（細胞。計數(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。”。H>頭文件。T您也可以使用API函數(shù)FindNextFile:T boolfindnextfile（thandle hfindfile，//searchhandletlpwin32FINDudata lpfindfiledata//databuffer（函數(shù)描述）繼續(xù)搜索FindFirstFile函數(shù)搜索的文件（參數(shù)描述）執(zhí)行handle hfindfile searches的文件句柄函數(shù)時搜索此句柄的下一個文件FINDudata lpfindfiledata指向結(jié)構(gòu)用于保存文件信息。如果調(diào)用成功，則返回一個非零值。如果調(diào)用失敗，則返回0。您可以調(diào)用GetLastError來獲取錯誤信息。請參考我在另一個帖子中的回復。

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

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