Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вернуть название страницы в экселе... / 3 сообщений из 3, страница 1 из 1
15.02.2010, 16:14
    #36470350
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вернуть название страницы в экселе...
всем привет.
проблема значит такая...
есть файл эксел, в нём хранится база... мне нада открыть этот файл, и сохранить определённые поля в масив в ВБ, для дальнейшей обработки данных в других файлах...
Код: plaintext
1.
  Workbooks.Open Filename:= _
        "C:\Ключи.xls"
с открытием я справился,но этот файл каждый раз обновляется и название листа меняется, как мне на уровне когда узнать это имя и переименовать в "Лист1"
Код: plaintext
1.
2.
  Dim SH As Worksheet
         Set SH = ActiveWorkbook.Worksheets("Лист1")
я уже привык так работать с областью даных... не хочется напригать юзеров и просить переименовывать вручную.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2010, 16:18
    #36470367
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вернуть название страницы в экселе...
vladAnco,

если индекс листа известен можно выбрать лист по индексу а не по имени (например первый лист)

Код: plaintext
1.
Set SH = ActiveWorkbook.Sheets(i) 'где i- индекс листа

Если индекс не известен нужно детектить базу по признакам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2010, 16:52
    #36470480
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вернуть название страницы в экселе...
Shamanus,
ага спс попробую... думаю если лист существует 1 то и индекс его будет 1й)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вернуть название страницы в экселе... / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]