Question

VB中使用Commondialog控件保存Excel出现了一个问题

VB中用commondialog控件对excel保存出现了一个问题
希望通过打开一个excel文件，经过一系列的数据处理和筛选等等，将新的excel文件保存到另一个位置，因此我试着在VB中通过公用对话框commondialog打开并保存excel。现在打开excel没有问题，问题就是运行保存程序的时候，也出来保存对话框，也可以单击保存，只是保存不进去--访问刚刚保存文件的那个文件夹，发现里面并没有刚刚保存的文件。
我是VB初学者，还有很多东西没有研究过，真诚的希望各位能不吝赐教，本人感激不尽。为了方便解决问题，我在这里提供一下原来的代码还有原程序，请大家帮忙看看里面到底是哪儿做得不够完善，谢谢了！
注意，打开程序的时候点击：工程-引用-“microsoft excel 11.0 object library”(我的是XP版本和OFFICE2003） + 工程-部件-"microsoft common dialog control 6.0"

Public oldxls As Excel.Application
Public oldbook As Excel.Workbook
Public oldsheet As Excel.Worksheet

Private Sub Form_Load() '第一步--连接EXCEL
Call JoinExcel
End Sub

Public Sub JoinExcel()
On Error Resume Next
Set oldxls = GetObject(App.Path, "Excel.Application")
If Err Then
Err.Clear
Set oldxls = CreateObject("Excel.Application")
If Err Then
Exit Sub
End If
End If
oldxls.Visible = True
Set oldbook = oldxls.Workbooks.Add
Set oldsheet = oldbook.Worksheets(1)
End Sub

Private Sub Command1_Click() '第二步--执行“打开”对话框
Call OpenExcel
End Sub

Public Sub OpenExcel()
CommonDialog1.Filter = "Excel文件| *.xls"
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then
expath = CommonDialog1.FileName
Workbooks.Open FileName:=expath
oldbook.Close
Else
End If
End Sub

Private Sub Command2_Click() '第三步--执行“保存”对话框
Call SaveExcel
End Sub

Public Sub SaveExcel()
CommonDialog1.Filter = "Excel文件| *.xls"
CommonDialog1.Action = 2
CommonDialog1.FileName = ""
If CommonDialog1.FileName <> "" Then
expath = CommonDialog1.FileName
ActiveWorkbook.SaveAs FileName:=expath
Else
End If
End Sub
谁做出来把完整的程序发给我，我可是赏分的哦！

Answer 1

把 Public Sub SaveExcel()中的
CommonDialog1.FileName = ""删除

Answer 2

抱歉，公司不允许qq

Answer 3

hoho ,分都没有