怎样实现利用vb导出excel.xsl时，自动利用系统时间给文件命名？？？

Question

怎样实现利用vb导出excel.xsl时，自动利用系统时间给文件命名？？？　　　我用VB做了个小程序，要经常导出数据，为了便于区分，想在VB导出文件时自动利用系统时间作为文件名：例如：2009-03-03.XLS  ;   2009-03-06.XLS。
我用name 函数重新命名这一办法也没能解决（重新命名时，以时间函数赋值给变量，然后以变量作为新文件名，但结果输出的是变量名。）
请高手回复，谢谢！　　[email protected]能直接回复到我的邮箱最好。

Answer 1

dim FName as string 
FName=format(now,"yyyymmdd") & ".xls"还需要什么？

Answer 2

Dim FName As StringPrivate Sub Command1_Click()
Dim exFile As String
 On Error GoTo err
  CommonDialog1.CancelError = True
  CommonDialog1.ShowSave
    Exit Sub
err:
  Select Case err.Number
  Case 32755
  End Select
End SubPrivate Sub Form_Load()
CommonDialog1.FileName = Format(Now, "yyyy-mm-dd") & ".xls"
CommonDialog1.Filter = "Excel文件|*.xls"
End Sub

Answer 3

我操作没有成功，问题是：
CommonDialog1.FileName = Format(Now, "yyyy-mm-dd") & ".xls"
此句找不到对象，我是先连接了一加密的Access数据库，再用SELECT * INTO导出为excel文档
请给个详细说明和操作过程。谢谢