HTA и функция поиска Excel VBA

Question

Sub search  
Set objExl = CreateObject("Excel.Application") 
Set objWb = objExl.Workbooks 
objWb.Open("C:\Documents and Settings\user\Desktop\book.xls") 
Set strbol = objWb("C:\Documents and Settings\user\Desktop\book.xls").Sheets(1).Cells.Find(document.getElementById("q").Value, Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, False) 
Set objDiv = document.getElementById("content") 
objDiv.innerText = "Result: " & objWb.Sheets(1).Cells(strbol.Row,strbol.Column).Offset(0,-4).Value  
objWb("C:\Documents and Settings\user\Desktop\book.xls").Close 
Set objWb = Nothing 
Set objExl = Nothing 
End Sub 

Выше есть HTA-код, который получает слово запроса из текстового поля HTA, находит это слово в excel и возвращает/отображает итоговое значение строки смещения в содержимом с именем div. Я могу запустить скрипт успешно до открытия файла excel. Но скрипт дает ошибку в строке: Set strbol. , , Сообщение об ошибке: Подзаголовок за пределами допустимого диапазона.

Я тестировал метод поиска в excel vba, который работал, но не в HTA примечание: публикация из IE6, поэтому прощение за отступы и ошибка форматирования.

Answer 1

Вы должны полностью квалифицировать этот диапазон.

Я также заменил xlValues, xlPart, xlByRows, xlNext своими значениями. Я не уверен, что в hta, как в VBS можно определить константу в верхней части кода

Попробуйте это (UNTESTED, как я никогда не работал в ОМТ).

Sub search() 
    Set objExl = CreateObject("Excel.Application") 
    Set objWb = objExl.Workbooks.Open("C:\Documents and Settings\user\Desktop\book.xls") 
    Set strbol = objWb.Sheets(1).Cells.Find(document.getElementById("q").Value, objWb.Sheets(1).Range("A1"), -4163, 2, 1, 1, False, False) 
    Set objDiv = document.getElementById("content") 
    objDiv.innerText = "Result: " & objWb.Sheets(1).Cells(strbol.Row, strbol.Column).Offset(0, -4).Value 
    objWb.Close 
    Set objWb = Nothing 
    Set objExl = Nothing 
End Sub 

EXTRA ПРИМЕЧАНИЕ:

Поскольку вы используете .Find, вам необходимо также улавливает код, чтобы увидеть, если вы на самом деле нашли матч еще objDiv.innerText = "Result: " & objWb.Sheets(1).Cells(strbol.Row, strbol.Column).Offset(0, -4).Value подведет.

Что-то вроде

If Not strbol Is Nothing Then 
    objDiv.innerText = "Result: " & _ 
         objWb.Sheets(1).Cells(strbol.Row, strbol.Column).Offset(0, -4).Value 
End If 

Followup (Из комментариев ниже)

Код испытания в VBS. Я создаю файл C:\Sample.xlsx и набрал «Sid» в ячейке N95, а затем запустил файл VBS, который имеет код ниже. Он работал без ошибок и показал мне окно сообщения $N$95

Dim objExl, objWb, strbol 

Set objExl = CreateObject("Excel.Application") 
Set objWb = objExl.Workbooks.Open("C:\Sample.xls") 
Set strbol = objWb.Sheets(1).Cells.Find("Sid", objWb.Sheets(1).Range("A1"), _ 
      -4163, 2, 1, 1, False, False) 

msgbox strbol.address 

objWb.Close 
Set objWb = Nothing 
Set objExl = Nothing