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)

如何搜索封闭的excel文件

1 个答案: