求VBA的宏 excel报表转换 csv格式

求VBA的宏 excel表格转换 csv格式
如题
[解决办法]

Sub Macro1()
'
    ChDir "C:\Documents and Settings\Administrator\桌面"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Administrator\桌面\1212.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub