vba文件夾查找

⑴ excel，怎麼用vba寫段關於查找指定文件夾內的文件名，並將其提取值至表內

Alt+F11插入下面的代碼到模塊
'查找某個文件是否存在
Function IsExistFile(ByRef strDir As String, ByRef fileName As String)
Dim s As String
If (Right(strDir, 1) <> "\") Then
strDir = strDir & "\"
End If
s = dir(strDir & fileName, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
If (s <> "") Then
IsExistFile = fileName
Else
IsExistFile = "無"
End If
End Function

參數說明strDir為文件夾路徑，fileName為文件名
使用示例：某個單元格輸入=IsExistFile("E:\doc",B2) 即可，若不存在返回無，存在返回B2中的文件名稱。路徑和文件名可以直接用字元串或引用某個單元格內容。

⑵ 怎麼用vba 做一個文件搜索程序

代碼及注釋如下：

sub main
dim fs
Set fs = Application.FileSearch'定義fs為文件搜索
With fs
.LookIn = "C:\"'搜索位置為C盤根目錄
.FileName =worksheets("sheet1").cells(1,1) 』搜索名稱為工作表1中的第一個單元格
If .Execute > 0 Then'如果搜索結果不為空
For i = 1 To .FoundFiles.Count
worksheets("sheet1").cells(i,2)= .FoundFiles(i)'遍歷所有文件，並將之放到第二列中
Next i
Else
MsgBox "There were no files found."'如果找不到，則提示沒找到
End If
End With
end sub

⑶ vba 查找打開文件夾的文件

以下代碼，樓主可以參考，打開文件夾，選擇文件後自動打開
Sub text()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Title = "請選擇對應文本文件"
.AllowMultiSelect = False
If .Show Then f = .SelectedItems(1) Else Exit Sub '
End With
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & f, vbMaximizedFocus

End Sub

⑷ VBA如何獲取當前EXCEL文件的路徑

1、首先打開Excel數據表，在開發工具中打開VBA編輯器。

⑸ 如何用excel vba按關鍵字選擇性的遍歷文件夾搜索文件

Excel怎樣批量提取文件夾和子文件夾所有文件