Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Вставка строк в шаблон / 10 сообщений из 10, страница 1 из 1
20.11.2012, 17:13
    #38045742
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Здравствуйте !!!

Имеется шаблон - готовый лист Excel.
С определенной строки нужно
вставить строки со сдвигом тех, что уже есть ?
Нужно с использованием кода VB6.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:21
    #38045755
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Что вызывает проблему? Вставка строк? Подключение к эксель? Открытие файла?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:31
    #38045775
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Нет. Это все пройденный этап.

Нужно между:

ЧТО_ТО ЕСТЬ УЖЕ

СТАВИТЬ НОВОЕ

ЕСТЬ ЧТО_ТО УЖЕ (и это надо сдвигать вниз)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:32
    #38045777
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
в общем как-то так (не проверял)

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim EX As Object
Set EX = CreateObject("Excel.Application")
With EX.Open("v:\книга1.xls")
  .Worksheets(1).Rows("8:11").Insert -4121
  .Save
  .Close
End With
EX.Quit
Set EX = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:33
    #38045780
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
ValeriuНужно между:
ЧТО_ТО ЕСТЬ УЖЕ
СТАВИТЬ НОВОЕ
ЕСТЬ ЧТО_ТО УЖЕ (и это надо сдвигать вниз)от капса понятнее не стало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:52
    #38045819
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Я понял, но код не работает.
Попробую копаться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:55
    #38045826
Wamba
Wamba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Код: vbnet
1.
2.
    Rows("24:24").Select ' выделяем строку над которой надо вставить
    Selection.Insert Shift:=xlDown ' вставляем



Так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 17:59
    #38045833
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Wamba
Код: vbnet
1.
2.
    Rows("24:24").Select ' выделяем строку над которой надо вставить
    Selection.Insert Shift:=xlDown ' вставляем



Так?Вам персонально: http://www.sql.ru/forum/actualthread.aspx?tid=932594

ValeriuЯ понял, но код не работает.Очень информативно. Не работает и не выдает ошибок?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 18:32
    #38045873
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Shocker.ProОчень информативно. Не работает и не выдает ошибок?нашел возможность проверить - пропустил один класс:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim EX As Object
Set EX = CreateObject("Excel.Application")
With EX.Workbooks.Open("v:\книга1.xls")
  .Worksheets(1).Rows("8:11").Insert -4121
  .Save
  .Close
End With
EX.Quit
Set EX = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2012, 14:07
    #38046976
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Вставка строк в шаблон
Shocker.Pro
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Вставка строк в шаблон / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 423ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157312]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 282ms
total:  423ms
x
x
Закрыть


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