Добрый день!
Выгружаю из Access отчет в создаваемый файл Excel, хочется уйти от подключаемой библиотеки Excel
Программно создаю список диапазон, а затем выставляю необходимому диапазону проверку.
С поключенной библиотекой все отрабатывает как надо, а вот без библиотеку выдает ошибки.
Dim oXls As Object 'Excel.Application
Dim oBook As Object 'Excel.Workbook
Dim oSheet As Object 'Excel.Worksheet
Set oXls = CreateObject("Excel.Application")
Set oBook = oXls.Workbooks.Add '
Set oSheet = oBook.Worksheets.Item(1)
' здесь процесс выгрузки, создания диапазона
With oBook.Sheets("Сотрудники").Range(oBook.Sheets("Сотрудники").Cells(2, 1), oBook.Sheets("Сотрудники").Cells(50, 1)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Подразделение"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = _
"Если необходимо добавить еще одно Подразделение перейдите на лист Подразделение и добавьте данные в соответствующие столбцы."
.ShowInput = True
.ShowError = True
End With
вот здесь возникают ошибки:
.Add Type:=
xlValidateList, AlertStyle:=
xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Подразделение"
Пробовал менять, но ошибку так и выдает
.Add Type:=
oXls.xlValidateList, AlertStyle:=
oXls.xlValidAlertStop, Operator:= _
oXls.xlBetween, Formula1:="=Подразделение"
.Add Type:=
oBook.xlValidateList, AlertStyle:=
oBook.xlValidAlertStop, Operator:= _
oBook.xlBetween, Formula1:="=Подразделение"
.Add Type:=
oXls.oBook.xlValidateList, AlertStyle:=
oXls.oBook.xlValidAlertStop, Operator:= _
oXls.oBook.xlBetween, Formula1:="=Подразделение"
.Add Type:=
oXls.oBook.XlDVType.xlValidateList, AlertStyle:=
oXls.oBook.XlDVAlertStyle.xlValidAlertStop, Operator:= _
oXls.oBook.XlFormatConditionOperator.xlBetween, Formula1:="=Подразделение"
.Add Type:=
XlDVType.xlValidateList, AlertStyle:=
XlDVAlertStyle.xlValidAlertStop, Operator:= _
XlFormatConditionOperator.xlBetween, Formula1:="=Подразделение"
.Add Type:=
oXls.XlDVType.xlValidateList, AlertStyle:=
oXls.XlDVAlertStyle.xlValidAlertStop, Operator:= _
oXls.XlFormatConditionOperator.xlBetween, Formula1:="=Подразделение"
.Add Type:=
Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, AlertStyle:=
Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Operator:= _
Microsoft.Office.Interop.Excel.XlFormatConditionOperator.xlBetween, Formula1:="=Подразделение"
Прошу помощи в разрешении данного вопроса.
http://www.sql.ru/forum/1140079/izbavlyaemsya-ot-references-excel-oshibka-xlvalidatelist
