Excel 2003 API has a GetSaveAsFilename method that pops up the Save As dialog. This file type (XLS, TSTT, CSV, ...) takes some of the following parameters like:
GetSaveAsFilename (missing value, "Microsoft Office Excel workbook (* .xls), * .xls ", 1, missing value, value lost);My problem is, I only see the "* .xls" dialog in the File Type dropdown. If I leave the file type part (2 parameters), then I see it as "all files (*. *)" How can I get to see the normal list, without creating a long string of all file types All file types are included and are near the method?
This is what can help. The relevant post is the third thing, it is not an ideal solution (which will be stable), but it can be a way to loop programmically and use a GetSaveAsFilename through the available filters for you.
Here is the relevant part of the code:
sub main () 'declare a variable as a file dialog file filter. FileDialogFilters' as a fdfs declare a directory as a file FileDialogFilter Object Dim 'set fileDialogFilters store variable' as filedialogfilter FileDialogFilters Set the collection of SaveAs dialog box fdfs = Application.FileDialog (msoFileDialogSaveAs). Filter the 'SaveAs' dialog box through each' default filter's details and extensions. Display the details of the 'filter in fdfs for each FDF that contains the debug. Print FDF Description & amp; "(" & Amp; FDF. Extension & amp; ")," & amp; Fdf.Extensions Next FDF & All Hope it helps!
Comments
Post a Comment