Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как поместить значение в ячейку в "Лист2" / 4 сообщений из 4, страница 1 из 1
25.11.2004, 16:15
    #32800075
REBUS
REBUS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить значение в ячейку в "Лист2"
Вот пример упрощенной (неработающей как надо) программы для создания Excel-файла:

Код: plaintext
1.
2.
3.
4.
5.
6.
Dim xlApp As Object
Dim xlWkb As Object
Dim xlsheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlWkb.Sheets( 1 )
xlsheet.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet.Application.Cells( 1 ,  3 ).Value =  200

Мне нужно чтобы значение 100 помещалось на "Лист1",
а значение 200 на "Лист2"

Знающие люди - откликнитесь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2004, 16:20
    #32800089
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить значение в ячейку в "Лист2"
xlApp.worksheets("Лист2").cells(......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2004, 08:18
    #32800697
REBUS
REBUS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить значение в ячейку в "Лист2"
Вот фрагмент программы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim xlApp As Object
Dim FNShablon As String
Dim xlWkb As Object
Dim xlsheet1 As Object
Dim xlsheet3 As Object

FNShablon = "C:\SHABLON.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open(FNShablon)
Set xlsheet1 = xlApp.worksheets("Лист1")
Set xlsheet3 = xlApp.worksheets("Лист3")
xlsheet1.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Application.Cells( 2 ,  3 ).Value =  200

Все работает правильно только при условии:
В файле "C:\SHABLON.xls" текущий лист (при открытии файла в Excel-е) - "Лист1 "

Если текущий лист "Лист3" - то тогда неправильно :
числа 100 и 200 помещаются на "Лист3".

Как сделать так, чтобы распределение по листам было независимо от того, какой лист активный (при открытии Excel-файла)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2004, 08:35
    #32800706
REBUS
REBUS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить значение в ячейку в "Лист2"
Нашел решение проблемы:

Вместо
Код: plaintext
1.
xlsheet1.Application.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Application.Cells( 1 ,  3 ).Value =  200

надо:
Код: plaintext
1.
xlsheet1.Cells( 1 ,  3 ).Value =  100 
xlsheet3.Cells( 1 ,  3 ).Value =  200
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как поместить значение в ячейку в "Лист2" / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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