请教个小问题：我设置commondialog控件另存为对话框的默认文件名为文本框textbox的text值，但执行showsave不能打开另存为对话框.
 
我的代码是： text2.text="让MSHFlexGrid不再显示多余的小数"
Private Sub Command1_Click()

    With CommonDialog1
         .FileName = ""
         .Filter = "*.txt|*.txt|*.rtf|*.rtf|*.*|*.*"
         .DialogTitle = "另存为"
         .FileName = Trim(Text2.Text)
         .CancelError = True                        '捕获 取消 错误时得先设置为true 然后再showsave
        On Error GoTo ErrorHandler
         .ShowSave
     End With
 
ErrorHandler:
    Exit Sub
End Sub

谢谢版主的热心，不过这样不行哦。附件是我代码

[ 本帖最后由 Artless 于 2011-3-29 23:48 编辑 ]

麻烦版主看看附件中的代码可以吗？   我知道如果赋值就可以解决，但是如果是读取text2.text那就不行了。总是不能调取成功，就像我最开始发的图片里面演示的一样。附件代码是错误演示示例，我自己程序里面是通过单击mshflexgrid记录将内容显示到textbox中，然后双击记录行的时候导出记录并以text值为默认文件名。我就想知道附件代码为何执行不成功，我一个朋友琢磨了下说里面有个看不到的字符，说在工程中用ascii可以看到。我不是很懂。

[ 本帖最后由 mbccie 于 2011-3-30 00:05 编辑 ]

text2.text 里的文本，你是复制网页上的吧！
后面有个换行符。注意注意。

多谢斑竹！我是复制的网页内容，还真的是有个换行符。我用replace函数解决了，CommonDialog1.FileName = Replace(Trim(Text1.Text), Chr(13) & Chr(10), "") ，谢谢两位斑竹的热情答疑。