请大家帮我（hongwanxin)

Question

下面是我测试后可用的代码，不过在文件保存后会提示文件格式之类的问题，自己解决吧!strDestFile = CommonDialog1.FileName '为xls文件
Set ex = CreateObject("Excel.Application")
ex.Visible = True
Set exwbook = ex.Workbooks()
strDestFile1 = Mid(strDestFile, 1, InStr(1, strDestFile, ".")) + "csv"
'为csv文件
exwbook.Open FileName:=strDestFile
exwbook(1).SaveAs FileName:=strDestFile1, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False '去掉试试看
ex.quit
Set exwbook = Nothing