Excel 将副本另存为CSV MSDO（无需关闭/更改工作簿）

我有一个宏，可以将当前工作簿保存为CSV MSDOS格式

这是我的密码：

Sub Save_CSV()
Dim Location, FileName As String
            Location = "C:\Users\myawesomename\OneDrive\Desktop\GM MRP\"
            FileName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5)
                ActiveWorkbook.SaveAs FileName:= _
                    Location & FileName & ".csv", FileFormat:= _
                    xlCSVMSDOS, CreateBackup:=False
                ActiveWorkbook.Save
End Sub

使用此宏后，我不再处理xlsv。更确切地说，我正在制作CSV版本，所有的工作表仍然存在。如果关闭工作簿而不保存它，则可以打开CSV文件，并且只显示第一张工作表。只显示第一个工作表很好，但我希望它保存一个单独的CSV文件（仅显示第一个工作表），同时继续处理XLSX文件而不打开CSV。我不会试图将每张图纸保存为单独的文件

我尝试了几件事，包括将“Activeworkbook.SaveAs”更改为“Activeworkbook.savecopyas”，但没有达到预期的效果

---

谢谢，

所以您提供了一个文件名，但希望它输出多个文件？它不是那样工作的-Excel没有做你想做的事情的选项。由于CSV文件不支持保存多张工作表，因此您必须循环浏览所有工作表并单独保存每一张工作表。可能重复“否”，我不尝试保存每一张工作表。它保存的一个工作表就可以了。我只需要将它另存为副本，让我继续处理XLSX文件。SaveAsCopy不起作用。有趣的是，你链接了“保存每张工作表”的内容，因为我在发帖之前已经读过了。好的，那么这张怎么样它会复制您的活动工作表，然后将其保存为CSV，将您的多工作表工作簿保存在tact.braX中，非常接近。但是，该链接中的代码被截断。IE:lastcol和lastrow没有尺寸或设置。我明天得看一看，看能不能把它拼起来。如果我能根据这个链接找到答案，我也会这么说。