急急急！！马上就要毕业答辩了！commondialog另存为问题？？

Question

我调用下面的函数得到了一个excel文件，现在想通过commondialog选择该文件的保存位置，该怎么做啊？？我也做了下，都有问题。怎么得到这个文件的文件名给commondialog.filename?或者还是这个函数的返回值要改下？
Public Function SaveAsExcel(myrs2 As ADODB.Recordset) As Excel.Workbook
Dim rs As New ADODB.Recordset
Dim objExcel As New Excel.Application   '定义EXCEL类
Dim objBook As New Excel.Workbook       '定义工件簿类
Dim objSheet As New Excel.Worksheet     '定义工作表类
Dim rowCount As Long
Dim colCount As Integer
Dim j As Integer
Dim i As Integer
Set objExcel = CreateObject("Excel.Application")      '创建EXCEL对象
Set objBook = objExcel.Workbooks.Add
On Error GoTo Error1:
Set objSheet = objBook.Worksheets.Add
Set rs = myrs2
colCount = rs.Fields.Count
rowCount = rs.RecordCount
'保存字段名
For i = 0 To colCount - 1
objSheet.Cells(1, i + 1) = rs.Fields(i).Name '+ Chr(13)
objSheet.Columns(i + 1).Select
Selection.NumberFormatLocal = "@"
Next
'保存数据
For j = 2 To rowCount + 1
For i = 0 To colCount - 1
objSheet.Cells(j, i + 1) = CStr(rs.Fields(i) & "")
Next
rs.MoveNext
Next
rs.MoveFirst
SaveAsExcel = objBook
Set rs = Nothing
objBook.Close
objExcel.Quit
Set objExcel = Nothing
Exit Function
Error1:
   MsgBox Error
   objBook.Close
   objExcel.Quit
    Set objExcel = Nothing
End Function

Answer 1

commondialog.showsave
以commondialog.Filename 作为另存为的路径就行了

Answer 2

呵呵，我已经懂了些coomondialog的使用方法了，它只是提供文件名和路径，保存还是要自己写代码的。我原以为它本身有保存的功能···

Answer 3

根本就不用这样麻烦，直接用FileCopy函数将要打开的Excel复制到coomondialog指定的路径即可。

Answer 4

同上，建立一个菜单或者按钮，点击带开commondialog保存对话框，输入文件名，操作代码中使用FSO进行拷贝就可以了