Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытая книга Excel / 7 сообщений из 7, страница 1 из 1
19.01.2005, 11:24:06
    #32871798
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
у меня есть открытая книга связь.xls, текущий лист 1. как из кода
мне в этой открытой книге перейти на 2 лист.
делаю так:
Dim Xl As Excel.Application
Set Xl = CreateObject("Excel.Application")
Xl.Workbooks.open (App.Path + "\Связь.xls")
Xl.Sheets(2).Select
Xl.Visible = True
этот код всегда открывает новую книгу, а мне надо,
чтобы уже в открытой книге переходил не 2 лист. как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 11:32:06
    #32871825
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
примерно так


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim Xl As Excel.Application
dim wb as Excel.WorkBook
dim ws as Excel.WorkSheet

Set Xl = CreateObject("Excel.Application")
set wb = Xl.Workbooks.add (App.Path + "\Связь.xls")
set ws = wb.worksheet( 2 )
ws.Activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 11:41:32
    #32871854
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
HandKotпримерно так


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim Xl As Excel.Application
dim wb as Excel.WorkBook
dim ws as Excel.WorkSheet

Set Xl = CreateObject("Excel.Application")
set wb = Xl.Workbooks.add (App.Path + "\Связь.xls")
set ws = wb.worksheet( 2 )
ws.Activate

Так, ИМХО, неправильно, т.к. вообще создаётся новая книга с App.Path + "\Связь.xls" в качестве шаблона.
Если я правильно понял сабж, то д.б. нечто подобное:
Код: plaintext
1.
2.
3.
4.
    Dim wb As Workbook
    Set wb = GetObject(App.Path & "\Связь.xls")
    wb.Sheets( 2 ).Select
    Set xl = wb.Application
    xl.Visible = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 11:50:40
    #32871881
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
что-то не получается. а можно как у меня с одной переменной XL.
других не надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 12:08:16
    #32871939
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
что-то не получается. а можно как у меня с одной переменной XL.
других не надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 13:23:02
    #32872252
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
два раза повторять не нужно
два раза повторять не нужно
и топики тоже
и топики тоже

Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 13:23:31
    #32872254
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытая книга Excel
Dim Xl As Excel.Application
Set Xl = CreateObject("Excel.Application")
Xl.Workbooks.Open ("w:\связь.xls")
Xl.Sheets(2).Activate
Xl.Visible = True

У меня открывается файл связь.xls на 2-м листе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытая книга Excel / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 352ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168327]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 207ms
total:  352ms
x
x
Закрыть


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