| Вопрос: Из Text1 в Excel | Добавлено: 01.04.04 09:10 |
Автор вопроса:  Seregahome
|
| Как текст из Техт1 добавить в ячейку А2 в С:\sheet.xls? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  ol2003 Вопросов: 3 Ответов: 122 |
Профиль | | #1 | Добавлено: 02.04.04 01:33 |
|
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet................................... Private Sub FeelExcell xlApp = CType(CreateObject("Excel.Application"), Excel.Application)xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)xlSheet.Cells(1, 2) = Text1.text xlApp.Visible = Trueend sub |
||
Страница: 1 |