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)