| Вопрос: Как открыть Word File в Exel-e?? | Добавлено: 27.07.05 15:57 |
Автор вопроса:  nihon
|
|
Пожалуйста помоги.. У меня на работе такая ситуация: ..приходит отчет
в Word-ом формате и соответсвенно с расширением .doc. Встала задача использование этого файла в Exel-e причем программа Exel открыта и при нажатие кнопки, исполняющей макрос опять же в Exel-e, желательно что б открывалось окно в котором можно было б выбрать Word document и открыть его в Exel-e. (Word документ состоит из одной таблицы). Как это реализовать? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 27.07.05 16:28 |
| CreateObject | ||
|
Номер ответа: 2 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #2 | Добавлено: 27.07.05 16:39 |
|
Sub sdfh()
Dim f As Variant f = Application.GetOpenFilename("Документы Word (*.doc),*.doc" 
If VarType(f) = vbString Then With CreateObject("Word.Application"
With .documents.Open(f) If .tables.Count > 0 Then .tables(1).Range.Copy With ThisWorkbook.Worksheets.Add .Paste .Cells(1, 1), False End With End If End With .Quit False End With End If End Sub |
||
Страница: 1 |