把你的指定单元格的内容 放到一个新的Sheet中 并把这个Sheet设置为当前活动的Sheet
然后使用下面的代码
Sub SaveAsCSV()
ActiveSheet.SaveAs "c:\aaaaa.csv", xlCSV
End Sub
比如你原来有3个Sheet 那你可以再创建一个新的Sheet 然后通过VBA把这个Sheet切换到当前活动的状态 然后把原来的某个Sheet中的你想要的那一行内容 复制到新的这个Sheet中 然后用上面的命令 保存掉
然后再把这个新添加的Sheet删除掉
在把焦点切换回原来你停留的Sheet 就可以了 天衣无缝.