Страница: 1 |
Нужно из VB6 скопировать со вставкой строку на листе Excel. Как это можно сделать?
Если никто не помогает - приходится искать методом научного тыка Вот может кому пригодится: 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 |
Вопрос: Помогите с Excel
Добавлено: 26.11.02 12:08
Автор вопроса:
Evgeny D
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа: Evgeny D
Вопросов: 10
Ответов: 33
Профиль | | #1
Добавлено: 27.11.02 14:06
)