Страница: 1 |
Вопрос: Из MSFlexGrid в Excel | Добавлено: 11.06.09 23:01 |
Автор вопроса: ![]() |
Имеется форма, на ней - MSFlexGrid с данными.
Из VB открываю книгу Excel: set xlApp=CreateObject("Excel.Application") set Doc=wdApp.WorkBooks.Open ("C:/MyBook.xls") Можно ли одним махом данные из MSFlexGrid скопировать в один из листов открытой книги Excel. |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 11.06.09 23:33 |
откуда в MSFlexGrid попадают данные? |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 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" ![]() .Paste 'Paste clipboard contents End With ' This makes Excel visible xlObject.Visible = True End Sub |
Страница: 1 |
|