| Вопрос: Из MSFlexGrid в Excel | Добавлено: 11.06.09 23:01 |
Автор вопроса:  Zahar | Web-сайт: partnerka-ru.info
|
|
Имеется форма, на ней - MSFlexGrid с данными.
Из VB открываю книгу Excel: set xlApp=CreateObject("Excel.Application") set Doc=wdApp.WorkBooks.Open ("C:/MyBook.xls") Можно ли одним махом данные из MSFlexGrid скопировать в один из листов открытой книги Excel. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #1 | Добавлено: 11.06.09 23:33 |
| откуда в MSFlexGrid попадают данные? | ||
|
Номер ответа: 2 Автор ответа: Zahar Вопросов: 91 Ответов: 67 |
Web-сайт: Профиль | | #2 | Добавлено: 12.06.09 00:17 |
|
Всё нашёл решение
Private Sub FlexToExcel() Dim xlObject As Excel.Application Dim xlWB As Excel.Workbook Set xlObject = New Excel.Application 'This Adds a new woorkbook, you could open the workbook from file also Set xlWB = xlObject.Workbooks.Add Clipboard.Clear 'Clear the Clipboard With MSFlexGrid1 'Select Full Contents (You could also select partial content) .Col = 0 'From first column .Row = 0 'From first Row (header) .ColSel = .Cols - 1 'Select all columns .RowSel = .Rows - 1 'Select all rows Clipboard.SetText .Clip 'Send to Clipboard End With With xlObject.ActiveWorkbook.ActiveSheet .Range("A1"  .Select 'Select Cell A1 (will paste from here, to different cells)
.Paste 'Paste clipboard contents End With ' This makes Excel visible xlObject.Visible = True End Sub |
||
Страница: 1 |