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

[Oooleg]

в продолжение темы:
с ненужными меседжами вроде вопрос решился, но возникла другая проблема после длительных тестирований кода машина стала заметно тупить. Смотрю диспетчер задач и просто нет слов... процесс Winword.exe висит 27 раз!!!
Я так понимаю, что неправильно закрываю Word...
вот код: помогите пжлст

Private Sub CommandButton5_Click()

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

dataFile = "\tanks test.rtf"
'dataFile = "\hydrostatic.rtf"
'dataFile = "\CrossCurves.rtf"
curDir = ActiveWorkbook.Path

Application.DisplayAlerts = False
Application.ScreenUpdating = False

WA.DisplayAlerts = wdAlertsNone
Application.SendKeys "~"
WA.Documents.Open Filename:=curDir & dataFile ', ReadOnly:=False
Application.SendKeys "~"
WA.Selection.WholeStory
WA.Selection.Copy
WA.Quit
Sheets("one_f_in").Cells(1, 1).Select
ActiveSheet.paste


Unload myToolbar
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[EducatedFool]

Я так понимаю, что неправильно закрываю Word...

Вы его вообще не закрываете.
Возможно, где-то в коде формы присутствует on error resume next,
а метод WA.Quit выдаёт ошибку.

Попробуйте что-то вроде этого:

    Dim curDir, dataFile As String, WA As New Word.Application
    Dim wd As Word.Document
    On Error GoTo 0 ' отключаем обход ошибок
    Set wd = WA.Documents.Open(Filename:=curDir & dataFile, ReadOnly:=True)
    wd.Range.Copy
    wd.Close False ' закрываем файл
    WA.Quit False ' закрываем Word