Question

我是vba的新手，无法获得用户确定的工作簿 - 工作表保存到变量。我打算使用变量来控制循环，因为它在excel表中搜索单词。使用下面的代码段，系统会提示用户，并可以选择一个显示为checkReport变量的字符串格式的文件。但是检查表不会保存。

 Dim CheckReport As Variant
 Dim Checksheet As Object

 'Open the target workbook
  CheckReport = Application.GetOpenFilename("Excel-files,*.xls*", _
  1, "Select Your CheckList File To Open", , False)

   'Saves the Worksheet in order to control the loop
   If CheckReport <> False Then
    Workbooks.Open Filename:=CheckReport
     Set Checksheet = ActiveWorkbook.Worksheets("Sheet1")

  End If

Answer 1

Workbooks.Open()返回对工作簿的引用（假设没有错误）。您可以将其分配给这样的变量：

Set Checksheet = Workbooks.Open(Filename:=CheckReport).Worksheets("Sheet1")

我正在尝试创建一个Excel 2013宏来在工作簿中搜索指定的单词工作表

1 个答案: