Change file name in Windows Save As Dialog

Below is a an example of what I am trying to attempt, which is to pass a save as file name to the windows Save As Dialog box. This is part of my trying to understand how to manipulate windows and not specific to finding a way to write data into a text file. Through Excel (vba), the sub opens Notepad, adds text and then prompts for a save as file name. It works except the passing of the file name from the vba code to Windows Save File dialog. Any help is appreciated. This has also been cross-posted on StackOverflow.

Please Login or Register  to view this content.

abousetta

Hello Doc,

It took a little time to identify the window classes to get this code to work. You can change the new file to what you want. Here is the result. Let me know if you have any questions.

Please Login or Register  to view this content.

EDIT: Added checking for Child Window being displayed. The DirectUIHWND interface will wait for network items to respond and be listed. This code will ensure this has happened before updating the File Name box

Hi Leith,

Thanks for taking a look at this. I haven't worked on windows, handles, etc. for a while and so I am a little rusty (not that I was ever any good at it to begin with). Anyways, ran the sub, but keeps going into an infinite loop looking for the "Edit" window in the Do While... Loop.

You jogged my memory and remembered that I had a workbook by Mark Rowlinson (www.markrowlison.co.uk) that displayed all the window info in a spreadsheet. Ran it and got the following hierarchy for the 'Save As Dialog'.

#32770
DUIViewWndClassName
DirectUIHWND
FloatNotifySink
ComboBox
Edit

I think your code will run through the child windows if it can get out of the loop, but not sure how to modify.

Thanks for all your help.

abousetta

Edit: Just checked the text being retrieved by "Text" and in the loop it is always "MSCTFIME UI".

Hello Doc,

If it hangs up, you can use the CTRL + Break key combination to interrupt the macro. This will work because of the DoEvents inside the loop.

Hi Leith,

In the Do While... Loop it seems to keep looping on only only one Retval. It doesn't want to return values for any of the other windows.

Hello Doc,

Looks like my mistake. I didn't check that the retval was not zero.

Replace the Child Window loop with this...

Please Login or Register  to view this content.

Hi Leith,

sorry man... that's wasn't it either. I did manage to find the culprit. GW_Child's value was never declared and it was giving it a 0 instead of 5.

Please Login or Register  to view this content.

Thanks again for looking into this for me.

abousetta

Hello Doc,

It was still my fault. I had those constants declared globally in another module when I tested the code. I forgot to copy them in your code when I posted. Argh!

Great job on finding the problem. Sorry for the oversight.

No worries. It works now. I didn't think about that being the issue till this morning.