我在使用CommonDialog控件进行保存文件时，想实现如下目的：
1、显示“另存为”对话框时，文件名框显示默认的文件名；
2、最后获取的完整文件名应该是用户选择的路径及更改后的文件名。
请问，对下面的代码应如何修改？
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    With CommonDialog1
        .Filter = "Excel文档(*.xls)|*.xls"
        .FilterIndex = 1
        .InitDir = App.Path
        .Flags = &H2
        .Action = 2
    End With

CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    With CommonDialog1
        .FileName="123"        '这里设置默认文件名
        .Filter = "Excel文档(*.xls)|*.xls"
        .FilterIndex = 1
        .InitDir = App.Path
        .Flags = &H2
        .Action = 2
    End With
return CommonDialog1.FileName   '这里返回的就是包含路径和文件名的完整路径.

回楼上，最开始我也是这样设置的，但文件名框没有显示出默认的“123”，而且CommonDialog1.FileName显示的是不包含路径的文件名。。

已经找到问题所在了，谢谢。