Question

我的工作簿大约有30张。每张纸都有自己的宏。然后，一个名为“主页面有宏的工作表。其中一个合并所有工作表，创建一个新工作表组合。我需要另一个宏，当点击，打开一个新工作簿，从工作表复制数据”合并“并保存它自己工作簿，并将其命名为“跟踪导入文件（今天日期）.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

Answer 1

wb.SaveAs方法上有第二个可选参数，它告诉Excel保存文件的格式。仅仅放置＆＃34; .csv＆＃34;在文件的末尾不能使它成为CSV，这只是一个名称。要另存为CSV：

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

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

1 个答案: