Страница: 1 |
Подскажите как прочесть данные в таблице из документа RTF на VB или VBA(желательно).
Петровичам и другим спецам по VBA. Ну ответьте плиз !!! Ладно блин сам отвечу, раз вам лень. x = ActiveDocument.Tables(TableNumber).Cell(Row, Col) А чёрт меня уже клинит. Вот тебе любимиый и уважаемый CyRax ещё способ сохранения в Excel. ' Declare an object variable to hold the object Страница: 1 |
Вопрос: Таблица в документе RTF
Добавлено: 22.07.02 14:30
Автор вопроса: CyRax | Web-сайт:
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #1
Добавлено: 22.07.02 20:52
Номер ответа: 2
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #2
Добавлено: 23.07.02 12:33
Номер ответа: 3
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #3
Добавлено: 23.07.02 14:01
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing