Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 

Страницы: 1
Поиск
Извлечь данные из таблицы Word с переносом строк
... vbBoolean Then         Exit Sub     End If         Set objWrdApp = CreateObject("Word.Application")         objWrdApp.Visible = False         Set objWrdDoc = objWrdApp.Documents.Open(avFiles)         Set tbl = objWrdDoc.Tables(1)         ActiveSheet.Cells(1, 1) = tbl.Cell(2, 1).Range.text                objWrdDoc.Close True         objWrdApp.Quit         Set objWrdDoc = Nothing: Set objWrdApp = Nothing End Sub
Изменен: 14 Ноя 2019
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх