Dialog box "xlDialogOpenText" don't work

[leecs]

Hi,
When I used statement like "Application.Dialogs.Item(xlDialogOpen).Show , False, True", it works fine and able to call up "open file" dialog box.


But when I used statement
"Application.Dialogs.Item(xlDialogOpenText).Show"
OR even with parameter as
"Application.Dialogs.Item(xlDialogOpenText).Show "C:\T.txt", 437, 2, xlDelimited, xlDoubleQuote, False, True, True, Flase, False, False, , Array(Array(1, 1), Array(2, 1)")

it don't work. It pop up error message saying "Run Time Error 1004. Application-defined or object defined error". Please let me know what going wrong and how to solve it?

Thanks.

[Steven_Daniel]

Hi leecs

The reason why you are receiving this error, is that it is complaining that there is no constant for xlDialogOpenText under Dialogs. which is why you are receiving this runtime error.

Please try the following example below.

Application.Dialogs(xlDialogTextToColumns).Show "C:\T.txt", 437, 2, xlDelimited, xlDoubleQuote, False, True, True, False, False, False, , Array(Array(1, 1), Array(2, 1))

Hope this helps.

Regards,

Steven Daniel
ONTRACK SOFTWARE & TECHNOLOGY SOLUTIONS
http://www.ontrack-software.com.au/

[leecs]

Dear Steven,
Thank you very much.
But no luck. I try and some error message appear. So I attach the files and I hope it may help to figure up the problem. Please help.

My intention is to capture parameter used for OpenText dialog. Then those parameters can be saved and also used for next batch of similar pattern of text file . ( I try to prevent record macro for every pattern of text file).

Thanks. Regards,

From, Lee CS

[rylo]

Hi

Have a look at

http://support.microsoft.com/kb/117412

This is a follow on from the response from Steven.

Basically, while it has the relevant code and arguments, it will not raise an interactive dialog.

There are various alternatives. Here's a link to one

http://www.vbforums.com/archive/index.php/t-366132.html

HTH

rylo

[leecs]

Dear Rylo,
Thank you very much. I have better understand now. (I am now study the alternative way follow the link above).
Thanks.

Regards, Lee CS.