如何将当前的sheet保存在指定路径（以时间命名）的文件夹内

cjj8818

Hi  各位前辈，
小弟最近在写一段宏，目的是要将当前的EXCEL表格转化为CSV文件，并保存到指定的文件夹内，先前运行的时候，这个新的CSV文件总是并列生成在指定文件夹外，后来索性就不生成CSV文件了，各位大神帮忙看看需要改什么代码，十分感谢。
Sub CSVtransfer()

Dim nm$
    shijian = Format$(Date, "yymmdd")
    If Dir("d:\data\" & shijian, vbDirectory) = "" Then
       MkDir ("d:\data\" & shijian)

       nm = "d:\data\" & shijian & Application.Trim(Cells(1, 6))

    ActiveWorkbook.SaveAs Filename:=nm, _
        FileFormat:=xlCSV, CreateBackup:=False


    End If
End Sub