Автосатически нажать OK в диалоге

[eglantier]

Программа открывает один за другим несколько текстовых файлов. При этом открывается окно диалога, которое сообщает, что файл в неэксцелевском формате и т.д. (Кодировка у всех разная, свойство Origin программой задается для каждого файла).

Вопрос: как сделать, чтобы в случае появления диалогового окна кнопка "OK" нажималась автоматически.

[EducatedFool]

как сделать, чтобы в случае появления диалогового окна кнопка "OK" нажималась автоматически.

Не так-то это и просто...

Может, просто отключить вывод предупреждений?
Application.DisplayAlerts = False

Программа открывает один за другим несколько текстовых файлов

Или подкорректировать программу...
Что за программа-то?

[eglantier]

Попробую Дисплей-Алертс

Программа-то самая обычная: Конвертировать текстовый файл в ексцел, забрать данные, закрыть файл, открыть следующий по списку.

Код открытия вот:

Workbooks.OpenText Filename:= _
        FileToOpen _
        , Origin:=Encoding, StartRow:=7, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 9), Array(26, 2), Array(40, 9), Array(82, 4), Array(92, 9), Array(93, 1), Array( _
        118, 9), Array(119, 1), Array(122, 9), Array(123, 1), Array(135, 9), Array(136, 1), Array( _
        150, 9)), TrailingMinusNumbers:=True