小编Ric*_*ick的帖子

我在网上找到了这段代码,打开了一个另存为对话框的驱动器上的位置,让用户保存文件.单击"保存"时,文件不会保存.我不知道我在这里做错了什么.救命？

这是有问题的代码:

Dim varResult As Variant
        'displays the save file dialog
        varResult = Application.GetSaveAsFilename(FileFilter:= _
                 "Excel Files (*.xlsx), *.xlsx", Title:="Save PO", _
                InitialFileName:="\\showdog\service\Service_job_PO\")
        'checks to make sure the user hasn't canceled the dialog
        If varResult <> False Then
         Exit Sub
        End If