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

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Стринг в массив листов в Excel

4 сообщений из 4, страница 1 из 1

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

#39120941

HypeR

Гость

Добрый день всем форумчинам!
В базе есть функция, которая возвращает string, в котором перечень листов Excel ,которые надо скрывать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

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, выбрать массив листов и скрыть их

Код: vbnet

1.
2.
3.
4.
5.
6.

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 ..... названия листов такие существуют

Код: vbnet

1.
2.

?spLists 
Лист1, Лист2

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

Код: vbnet

1.
2.

?spLists 
"Лист1, Лист2"

Как правильно передать список листов ?

...

Рейтинг:

0 / 0

04.12.2015, 18:11

| Ответить | Цитировать | Написать

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

#39120979

guest_rusimport

Гость

HypeR,
Проверил такой код (см. ниже) - замечательно отрабатывает:)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

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

...

Рейтинг:

0 / 0

04.12.2015, 18:51

| Ответить | Цитировать | Написать

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

#39120980

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.

spLists = chooseSheet2Hide()
arrLists = Split(spLists, ",")
For i = LBound(arrLists) To UBound(arrLists)
    xlWb.Sheets(arrLists(i)).Visible = False
Next i

...

Рейтинг:

0 / 0

04.12.2015, 18:51

| Ответить | Цитировать | Написать

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

#39121011

HypeR

Гость

Akina, guest_rusimport, Благодарю!!

...

Рейтинг:

0 / 0

04.12.2015, 19:38

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Стринг в массив листов в Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39120980&tid=1614197]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	12ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	15ms

total:	150ms