vba查找導入excel文件

『壹』 VBA濡備綍璺‥xcel琛ㄦ牸鏌ユ壘錛

涓涓宸ヤ綔鍚勪腑涓涓ゅ紶琛錛屽備笅鍏ユ墍紺猴紝鎯抽氳繃鍏寮忔妸浜哄憳宸ュ彿鍔犲叆鍒扮涓寮犺〃涓

『貳』 鐢╲ba濡備綍鏌ユ壘鏂囦歡澶逛笅鐨勬墍鏈塭xcel鏂囦歡

鐢‵ileSearch鍔熻兘錛岀粰涓渚嬪瓙錛岃嚜宸辯爺絀朵竴涓嬶細
Sub test()
With Application.FileSearch
'瀵繪壘鐨勭洰褰曟槸褰撳墠宸ヤ綔鍚勬墍鍦ㄧ殑鐩褰
.LookIn = ThisWorkbook.Path
'鍙瀵繪壘鏂囦歡,涓嶅繪壘涓嬬駭鐩褰
.SearchSubFolders = False
'瑕佹壘鐨勬枃浠舵槸XLS鏂囦歡
.FileType = msoFileTypeExcelWorkbooks
'瀵繪壘
.NewSearch
'濡傛灉鎵懼埌鏂囦歡錛.execute()灝嗗ぇ浜0
'鎵懼埌鐨勬枃浠舵繪暟鏄.foundFilescount
'浠ヤ笅鏄鎶婃壘鍒扮殑鏂囦歡鍚嶇О鍏ㄩ儴鏄劇ず鍦ㄨ〃鏍間腑
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next
End If
End With
End Sub

『叄』 ACCESS涓鐢╒BA濡備綍瀵煎叆褰撳墠鐩褰曞唴鐨勬寚瀹欵XCEL

寤鴻鐢ㄩ摼鎺ヨ〃錛

『肆』 excel運用VBA打開文件夾並搜索打開文件：

wb=range("B1")&""&range("C5")&".xls"
workbooks.open(wb)