Question

xls工作簿另存CSV格式的VBA代码，请大大帮忙！！

xls工作簿，文件名为6位数数字（每次不同，如：538820.xls），内部有10几个工作表，其中一个工作表名称为：“样品整理”。
希望保存同时，将“样品整理”工作表单独另存为538820.csv的工作簿。
大概写了一下代码，如下：
Sub saveas()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.saveas Filename:="d:\a\" & ActiveWorkbook.Name，FileFormat：=xlCSV
Application.Quit
End Sub
以上代码在运行时，会弹出另存窗口，提示输入文件名称。因CSV不支持多工作表，会有错误讯息。如何可省略输入文件名称的步骤，直接使用当前工作簿名称。
请高手大大帮忙，谢谢

Answer 1

呵呵，碰巧看到你的问题，这不是CSV不支持多工作表的问题～
a = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="d:\a\" & Left(a, Len(a) - 3) & "csv", FileFormat:=xlCSV

Answer 2

用worksheet的saveas方法即可
即：
样品整理.saveas "aa.csv",6

Answer 3

1.这种软件到处都有注册版…
2.装在任何盘里都可以
3.不能识别文件图标是不能直接打开的文件，不必在意。