打开并将新工作簿另存为CSV文件（分隔）

我有一个包含约30张工作表的工作簿。每张表都有它自己的宏。然后，一张名为“主页面”的工作表具有宏，其中一个合并所有工作表，创建一个新工作表，我需要另一个宏，单击时打开一个NEW工作簿，复制Sheet“Combined”中的数据并将其保存为自己的工作簿，并将其命名为“跟踪导入文件（今天的日期）.CSV”（分隔）我可以做到这一切，除了CSV格式的文件是不一样的，当我手动做它。。有此宏这样做了另一片为好，但片被保存为一个正常的工作簿的扩展，这是工作就好这是代码，我现在所拥有的：打开并将新工作簿另存为CSV文件（分隔）

Set wb = Workbooks.Add 
ThisWorkbook.Sheets("Back Order Follow up Report").Copy Before:=wb.Sheets(1) 
wb.SAVEAS "S:\Production Department\Backorder Follow up reports\Back Order Follow up Report." & Format(Date, "MM.DD.YY") & ".xlsx" 

*Set wb = Workbooks.Add 
ThisWorkbook.Sheets("Combined").Copy Before:=wb.Sheets(1) 
wb.SAVEAS "S:\Production Department\Tracking import\Tracking Import FileTEST." & Format(Date, "MM.DD.YY") & ".csv"* 

End Sub

来源

2014-11-03 Daniel Reardon

如果使用不带参数的“WorkSheet.Copy”，则不需要添加工作簿。复制的工作表将创建一个新的工作簿，该工作簿将成为活动工作簿。 – 2014-11-03 21:15:04

我不知道为什么这不起作用了。从字面上看，2天内它完美无缺，毫无理由地无法正常工作。 – 2014-11-07 20:25:53

还有第二个，可选wb.SaveAs方法中的参数，它告诉Excel以什么格式保存文件。仅仅在文件末尾放置“.csv”并不会使其成为CSV文件，这是关闭的一个名字。要保存为CSV文件，请执行以下操作：

wb.SAVEAS "S:\Production Department\Tracking import\Tracking Import FileTEST." & Format(Date, "MM.DD.YY") & ".csv", xlCSV

来源

2014-11-03 21:20:26 JNevill

完美。谢谢！ – 2014-11-03 22:18:01

因此，这是2天，现在我得到一个运行时错误429 activeX组件不能创建对象。这是什么意思？和JBARKER 2160.我如何使用您写的关于worksheet.cop的功能重新编写代码？ – 2014-11-06 21:01:02

错误是否发生在wb.saveas行上？ – JNevill 2014-11-06 21:05:51

打开并将新工作簿另存为CSV文件（分隔）

回答

相关问题