求VBA的宏 excel表格转换 csv格式解决思路

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