Стринг в массив листов в Excel

HypeR
Дата: 04.12.2015 18:11:45
Добрый день всем форумчинам!
В базе есть функция, которая возвращает string, в котором перечень листов Excel ,которые надо скрывать
Public Function chooseSheet2Hide() as String
Dim ch As Byte
chooseSheet2Hide= ""
ch = Forms!Форма1!grH
Select Case ch
Case 1
chooseSheet2Hide= "Лист1, Лист2"
Case 2
chooseSheet2Hide= "Лист2, Лист3"
End Select
End Function

Потом пытаюсь открыть книгу Excel, выбрать массив листов и скрыть их
Dim xlApp As Object, xlWb As Object, spLists  as String
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(ReportName)
spLists = chooseSheet2Hide()
xlApp.Sheets(Array("& spLists &")).Select
xlApp.ActiveWindow.SelectedSheets.Visible = False

Выдает ошибку Subscript out of Range ..... названия листов такие существуют
?spLists 
Лист1, Лист2

Пытаюсь обрамить в кавывчки
spLists$ = Replace(chooseSheet2Hide, chooseSheet2Hide, Chr(34) & chooseSheet2Hide & Chr(34))
Ошибка та же, хотя
?spLists 
"Лист1, Лист2"

Как правильно передать список листов ?
guest_rusimport
Дата: 04.12.2015 18:51:35
HypeR,
Проверил такой код (см. ниже) - замечательно отрабатывает:)
Option Compare Database

Public Function chooseSheet2Hide() As Variant
Dim bbb(2)
ch = 2
Select Case ch
    Case 1
        bbb(0) = "Лист1"
        bbb(1) = "Лист2"
    Case 2
        bbb(0) = "Лист2"
        bbb(1) = "Лист3"
End Select
chooseSheet2Hide = bbb
End Function

Public Function fff()
Dim vvv() As Variant
Dim xlApp As Object, xlWb As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(CurrentProject.Path & "\Книга1.xls")
vvv = chooseSheet2Hide()
For i = 0 To UBound(vvv) - 1
    xlApp.Sheets(CStr(vvv(i))).Select
    xlApp.ActiveWindow.SelectedSheets.Visible = False
Next i
xlApp.Visible = True
End Function
Akina
Дата: 04.12.2015 18:51:56
spLists = chooseSheet2Hide()
arrLists = Split(spLists, ",")
For i = LBound(arrLists) To UBound(arrLists)
    xlWb.Sheets(arrLists(i)).Visible = False
Next i
HypeR
Дата: 04.12.2015 19:38:41
Akina, guest_rusimport, Благодарю!!