Какая-то очень нехорошая вещь случилась после чистки компьютера Касперским - перестали работать упомянутые функции - неважно, стоит ли ссылка на Excel/Word или нет.
Sub testcreate()
Dim xlAPP As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlAPP = CreateObject("Excel.Application")
Set xlBook = xlAPP.Workbooks.AddNew 'в этом месте код останавливается с ошибкой
'"Object variable or With block variable not set"
Set xlSheet = xlBook.ActiveSheet
xlAPP.Visible = True
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlAPP = Nothing
End Sub |
Еще: при попытке импорта текстового файла мастер импорта говорит, что в файле нет данных. При этом Excel данные видит и импортирует как надо. Перестановка офиса ничего не дала - все то же самое. Вопрос: что могло сломаться? Что нужно переставить? Офис 2000.