使用基於前一個單元格的路徑摘錄的文件名填充單元格

Question

我正在使用一個Excel電子表格，其中包含列A中的標題列表以及列D中的文件名列表。文件名是使用特定命名例如，如果A1中的標題是「Taco_123」，那麼D1中的文件名將包含精確的短語「Taco_123」。

目前，文件名必須在創建文件後手動輸入到D1中。但是我想要的是一個可以自動完成的VBA腳本。我的想法是，對於每一行，它將讀取列A中的標題，在文件所在的目錄中搜索包含該確切短語的文件，然後將文件名稱（減去擴展名）複製到列D中。

這樣的事情甚至可能嗎？我試着在網上搜索一個解決方案，因爲我知道關於VBA的zilch，但我沒有太多的運氣;我甚至找不到有其他問題的人。任何幫助，將不勝感激。

編輯：我不知道這是否有所作爲，但需要搜索匹配文件名的文件類型是PSD。

Answer 1

這樣的事絕對有可能。有一種簡單的方法可以在Excel，舊版Excel中使用Application.FileSearch在較早版本的Excel中執行此操作。對於2007年和更新，你將不得不使用或修改從P. Havdra的解決方案，在這裏：

http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6/

此腳本會打印出符合搜索條件的參數文件的清單，並給你一個惱人的消息框彈出。

我對他的FileSearch子例程進行了一些修改，以幫助您入門。這將在指定的目錄中構建一組匹配的PSD文件名，然後您可以對該數組執行任何操作並與工作表數據交互。

Sub FileSearch() 
' 
' Example of FileSearchByHavrda procedure calling as replacement of missing FileSearch  function in the newest MS Office VBA 
' 01.06.2009, Author: P. Havrda, Czech Republic 

'As modified Feb-13-2013, David Zemens, for _ 
http://stackoverflow.com/questions/14865258/populate-cell-with-a-filename-based-on-path-excerpt-in-previous-cell 
' 
Dim sDir As String '< this is the search directory you will use 

Dim FileNameWithPath As Variant 
Dim ListOfFilenamesWithParh As New Collection ' create a collection of filenames 
Dim rCount As Long 'row counter 

Dim myArray() As Variant 
Dim a As Long 'array iterator 
a = 0 

'Set the search directory: 
sDir = "C:\DESKTOP\" '<-- MODIFY TO SUIT YOUR NEEDS 

' Filling a collection of filenames (search Excel files including subdirectories) 
Call FileSearchByHavrda(ListOfFilenamesWithParh, sDir, "*.psd", False) 

' Print list to immediate debug window and as a message window 
For Each FileNameWithPath In ListOfFilenamesWithParh ' cycle for list(collection) processing 
    'Create an array of matching filenames 
    ReDim Preserve myArray(a) 
    myArray(a) = FileNameWithPath 
    a = a + 1 
Next FileNameWithPath 

' If no file was found: 
If ListOfFilenamesWithParh.Count = 0 Then 
    'Debug.Print "No file was found !" 
    MsgBox "No file was found !" 
Else: 
    'some files were found, so do something with myArray 
    '######################################################## 
    ' 
    ' <-- Code to manipulate your worksheet will go here --> 
    ' 
    ' 
    '######################################################## 
End If 
End Sub