请大家帮我（hongwanxin)

[hongwanxin]

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.SaveAs FileName:=strDestFile1, FileFormat:=6, CreateBackup:=False
ex.quit
Set exwbook = Nothing

错误提示:
实时错误 ‘438’对象不支持该对象或方法

请问各位大侠该怎么办？？？

[bluntknife]

下面是我测试后可用的代码，不过在文件保存后会提示文件格式之类的问题，自己解决吧!

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