如何搜索封閉的Excel文件

Question

我想搜索一個匹配的封閉的excel文件，然後將相對於該匹配的引用轉換爲一個字符串，然後將進入開放的文檔doc，然後重複，直到找到所有匹配。我完全停留在簡單地打開excel文件來訪問它來搜索，雖然開始。

它在任務管理器中生成一個excel進程，但我無法引用它，而且實際上我會期望它打開該應用程序。我可能完全用錯誤的方式去做這件事。

Sub stringPrompt2() 
'Find match 
'build output 
'put into word doc 
'repeat 

    Dim sSearchString As String 
    Dim sSearchDirectory As String 
    Dim dlgFile As FileDialog 
    Dim vSelectedItem As Variant 
    Dim Loc As Excel.Range 
    Dim sPath As String 

    sSearchString = InputBox("String to search for", vbOKOnly, "Search String") 

    Set vSelectedItem = Application.FileDialog(filedialogtype:=msoFileDialogFilePicker) 
    With vSelectedItem 
    .AllowMultiSelect = False 
    .Show 
    End With 

    sPath = vSelectedItem.SelectedItems.Item(1) 

    Workbooks.Open sPath ' it isn't launching excel here. 
End Sub 

Answer 1

你只需要創建一個變量來保存工作簿引用和Workbooks.Open命令的結果分配給變量，以便用戶可以使用它：

Dim myWorkbook As Workbook 

Set myWorkbook = Workbooks.Open sPath 

' Then do whatever you want with the Workbook object 
MsgBox(myWorkbook.Name)