Импорт таблиц из *.rft в Excel, небольшая проблемка

[Oooleg]

Суть проблемы:
Есть отчеты создаваемые внешним приложением в формате .rtf, нужно их вгрузить в Excel для последующей обработки. Я попытался это реализовать через Word т.к. ничего лучше не придумал

код:

Private Sub CommandButton5_Click()

Dim curDir, dataFile As String, WordObject As Object

dataFile = "\hydrostatic.rtf"
curDir = ActiveWorkbook.Path

Application.DisplayAlerts = False
Application.ScreenUpdating = False

With CreateObject("Word.Application")
.DisplayAlerts = wdAlertsNone
.Documents.Open Filename:=curDir & dataFile, ReadOnly:=True
.Selection.WholeStory
.Selection.Copy
.Quit
End With
Set WordObject = Nothing

With Sheets("one_f_in")
.Cells(1, 1).Select
.paste
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


в принципе работает, но в процесе выполнения Word выдает два меседжа следующего содержания:

"Неверно указана единица измерения"

а следом за ним

"Невозможно закрыть приложение Microsoft Office Word, так как открыто диалоговое окно. Нажмите кнопку "Ok", перейдите в приложение Word и закройте это окно."


а теперь вопрос почему это происходит и как от этого избавиться?

файл rtf прилагаю (хотя в ворде он открывается без проблем )

[EducatedFool]

Сразу бросаются в глаза эти 2 строчки:

With CreateObject("Word.Application") 
.DisplayAlerts = wdAlertsNone

Вы используете раннее или позднее связывание?
Короче говоря, у вас подключена к проекту библиотека Word?

1) Если подключена, то не проще ли так:
dim wa as new word.application
with wa
...

2) Если не подключена (о чем свидетельствует запись WordObject As Object), то не надо использовать вордовские константы типа wdAlertsNone - в этом случае они будут возвращать ноль.
Возможно, ошибка "Неверно указана единица измерения" как раз из-за этого.

Далее,

"Невозможно закрыть приложение Microsoft Office Word, так как открыто диалоговое окно.

Так поставьте после строки With CreateObject("Word.Application")
строку .visible = true
и увидите те самые сообщения. Тогда хоть будет понятно, из-за чего они появляются.

файл rtf прилагаю

К чему Вы его прилагаете?

[Oooleg]

hydrostatic.doc

в rtf формате не грузится сори

[EducatedFool]

А зачем нам Вордовский документ?

Проблема-то не в нём, а в Excel-евском макросе...
Его надо написать без ошибок, и всё будет работать.

[Oooleg]

Подключил библиотеку Microsoft Word 12.0 Object Library
Код теперь выглядит следующим образом:

Dim curDir, dataFile As String, WA As New Word.Application

dataFile = "\hydrostatic.rtf"
curDir = ActiveWorkbook.Path

With WA
.Visible = True
.Documents.Open Filename:=curDir & dataFile, ReadOnly:=True
.Selection.WholeStory
.Selection.Copy
.Quit
End With

With Sheets("one_f_in")
.Cells(1, 1).Select
.paste
End With

а сообщения вот так:
первое
Запись.jpg
второе
Запись2.jpg

в чем проблема по прежнему не понятно...

[mchip]

Попробуй заменить

.Selection.WholeStory

на

ActiveDocument.Tables(1).Select

Обе проблемы снимаются

(это если нужно только таблица)

[mchip]

Можно еще так:
.Quit - убрать

В конце вставить

WA.Quit SaveChanges:=wdDoNotSaveChanges

Тогда будет копироваться весь документ вместе с графиком

[Oooleg]

Сообщение от mchip

Попробуй заменить

.Selection.WholeStory

на

ActiveDocument.Tables(1).Select

Обе проблемы снимаются

(это если нужно только таблица)

Количество таблиц в отчетах разное, но даже если закрыть на это глаза то проблему такой вариант не решает, поскольку первый меседж возникает при первом упоминании объекта WA

WA.Visible = True

и вот вам здрасте! Запись.jpg ну и так далее...

[Oooleg]

Сообщение от mchip

Можно еще так:
.Quit - убрать

В конце вставить

WA.Quit SaveChanges:=wdDoNotSaveChanges

Тогда будет копироваться весь документ вместе с графиком

А такой вариант ругается при вставке данных в Excel Запись3.jpg

[mchip]

Вот. Все работает без ошибок.