| Вопрос: Помогите с Excel | Добавлено: 26.11.02 12:08 |
Автор вопроса:  Evgeny D
|
|
Нужно из VB6 скопировать со вставкой строку на листе Excel. Как это можно сделать? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Evgeny D Вопросов: 10 Ответов: 33 |
Профиль | | #1 | Добавлено: 27.11.02 14:06 |
|
Если никто не помогает - приходится искать методом научного тыка Вот может кому пригодится: Dim objExcel As Excel.Application 'заводится переменная для редактора Excel Dim objBook As Excel.Workbook 'заводится переменная для открытия документа Dim objSheet As Excel.Worksheet 'заводится переменная для страницы Set objExcel = CreateObject("Excel.Application") Set objBook = objExcel.Workbooks.Open(App.Path + "\Shablon\tabel.xls") Set objSheet = objBook.Worksheets(1) ' Для одной строки objSheet.Rows(32).EntireRow.Insert objSheet.Rows(27).Select objSheet.Rows(27).Copy objSheet.Rows(32).PasteSpecial xlPasteAll ' Для группы строк objSheet.Rows("33:36").EntireRow.Insert objSheet.Rows("28:31").Copy objSheet.Rows("33:36").PasteSpecial xlPasteAll objBook.Save objExcel.Quit |
||
)Страница: 1 |